<%
set con = Server.CreateObject("ADODB.Connection")
con.Open strCon
sqlDocuments="select * from Documents where DocumentID=6"
set rsDocuments=server.CreateObject("ADODB.Recordset")
rsDocuments.Open sqlDocuments,con,1,2
if not rsDocuments.EOF then
strTitle=rsDocuments("ptitle")
strKeywords=rsDocuments("pkeywords")
strDescription=rsDocuments("pdescription")
strContents=rsDocuments("content")
end if
%>
News
