<%
set rs = server.createobject("adodb.recordset")
rsSQL = "SELECT * FROM [Pages] WHERE [Title] = 'WhoIsSyndicating'"
rs.open rsSQL, cnn
%>
<%
Text = rs("Content")
If isNull(Text) then
Response.Write(" ")
Else
'Response.Write(strVar)
Response.Write(Replace(Text,vbCrLf," "))
End If
set Text = nothing
%>
<% 'Cleanup rs
rs.close
set rs = nothing
set rsSQL = nothing
%>
|
|