<%@LANGUAGE="VBSCRIPT"%> <% Option Explicit %> <% Response.Buffer = True %> <% response.write "" & vbcrlf response.write "" & vbcrlf response.write "" & strWebsiteName & "" & vbcrlf %><% Dim requiredPage Dim adoRec, Page_Main_Heading, Page_Second_Heading, Page_Content, Page_Bottom_Text, Page_Created Dim Page_Author_ID, Page_Modified, Page_Author_Name requiredPage = CheckInt(Request.QueryString("PID")) strSQL = "SELECT " & strDBTable & "Documents.Page_Author_ID, " & strDBTable & "Documents.Page_Template, " & strDBTable & "Documents.Page_Main_Heading, " _ & strDBTable & "Documents.Page_Second_Heading, " & strDBTable & "Documents.Page_Content, " & strDBTable & "Documents.Page_Bottom_Text, " _ & strDBTable & "Documents.Page_Created, " & strDBTable & "Documents.Page_Modified FROM " & strDBTable & "Documents WHERE " _ & strDBTable & "Documents.Page_ID=" & requiredPage Set adoRec = adoCon.Execute(strSQL) If Not(adoRec.EOF) Then Page_Author_ID = adoRec("Page_Author_ID") Page_Author_Name = getUserNamebyID(Page_Author_ID) Page_Main_Heading = adoRec("Page_Main_Heading") Page_Second_Heading = adoRec("Page_Second_Heading") Page_Content = adoRec("Page_Content") Page_Bottom_Text = adoRec("Page_Bottom_Text") Page_Created = adoRec("Page_Created") Page_Modified = adoRec("Page_Modified") If adoRec("Page_Template") = 1 Then %><% Else %><% End If Response.Write "

" If isDate(Page_Modified) Then Response.write strTxtPageLastModified & ": " & DateFormat(Page_Modified,saryDateTimeData) & " " _ & TimeFormat(Page_Modified,saryDateTimeData) Else Response.write strTxtPageLastModified & ": " & DateFormat(Page_Modified,saryDateTimeData) & " " _ & TimeFormat(Page_Created,saryDateTimeData) End If ' Response.Write strTxtPageCreatedBy & ": " _ ' & Page_Author_Name & " " _ ' & DateFormat(Page_Created,saryDateTimeData) & " " & TimeFormat(Page_Created,saryDateTimeData) ' If isDate(Page_Modified) Then ' Response.write "
" & strTxtPageLastModified & ": " & DateFormat(Page_Modified,saryDateTimeData) & " " _ ' & TimeFormat(Page_Modified,saryDateTimeData) ' End If Response.Write "
" Else %><% End If closeRS(adoRec) %>