<%
dim intDocumentID
dim strTitle
dim strContent
dim adoCn
dim strSQL
set adoCn = Server.CreateObject("ADODB.Connection")
adoCn.Open strConn2
intDocumentID = Request.QueryString("DocumentID")
dim adoRs
set adoRs = Server.CreateObject("ADODB.Recordset")
strSQL = "Select * From Documents where DocumentID=" & 5
set adoRs = adoCn.Execute(strSQL)
If not adoRs.EOF then
strTitle = adoRs("Title")
strContent = adoRs("Content")
strPageProperties = adoRs("PageProperties")
strKw = adoRS("Kw")
strDs = adoRS("Ds")
End If
adoRs.Close
set adoRs = nothing
adoCn.Close
set adoCn = nothing
%>
<%=strTitle%>
