%
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=69" & intDocumentID
set adoRs = adoCn.Execute(strSQL)
If not adoRs.EOF then
strTitle = adoRs("Title")
strContent = adoRs("Content")
strPageProperties = adoRs("PageProperties")
End If
adoRs.Close
set adoRs = nothing
adoCn.Close
set adoCn = nothing
%>
Mighty Eighth Air Force Museum
What's New...
<%=strContent%>
Mighty Eighth Air Force Museum 175 Bourne Ave. Pooler, GA 31322 Tel: 912.748.8888 Fax: 912.748.0209