<%
strSQL = "select Text from Front_Page where ID = 1"
Set oRs = Server.CreateObject("ADODB.Recordset")
oRs.Open strSQL, strDSN, 1, 3, 1
maxRecords = oRs.RecordCount
While Not oRs.EOF
Response.Write oRs("Text")
oRs.MoveNext
Wend
oRs.Close
Set oRs = Nothing
%>
|
