%@LANGUAGE="VBSCRIPT"%>
<%
Dim Recordset1
Dim Recordset1_numRows
Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_twinoaks_STRING
Recordset1.Source = "SELECT * FROM LOISHOMEPAGE"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()
Recordset1_numRows = 0
%>
Lois Scott Web Site
|
<%
Dim MyText
MyText = Recordset1.Fields.Item("hpText").Value
MyText =Replace(MyText,vbcrlf," ")
Response.write MyText
%>
|
|
|
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>