" & strWebsiteName & "

<%@LANGUAGE="VBSCRIPT"%> <% Option Explicit %> <% Response.Buffer = True %> [an error occurred while processing this directive] [an error occurred while processing this directive] [an error occurred while processing this directive] <% response.write "" & vbcrlf response.write "" & vbcrlf response.write "" & strWebsiteName & "" & vbcrlf %> [an error occurred while processing this directive] [an error occurred while processing this directive] <% Dim counter, adoRec, requestedPage, Page_Header, Page_Second_Header Dim Page_Content, Page_Bottom, Page_Template, Page_ID, strPageErr, intPageTemplate requestedPage = checkInt(Request.QueryString("PID")) response.write "" & vbcrlf response.write "" & vbcrlf response.write "" & vbcrlf response.write "" & vbcrlf response.write "" & vbcrlf response.write "" & vbcrlf response.write "

" ArrangeColumn(1) response.write "

" & vbcrlf Set Module_Box = New ModBox_Class Module_Box.box_toggle = False Module_Box.printBoxTop Module_Box.printBoxLeftSide response.write "

" response.write "" & vbcrlf response.write "" & vbcrlf response.write "" & vbcrlf response.write "" & vbcrlf strSQL = "SELECT Top 1 " & strDbTable & "Documents.* FROM " & strDbTable & "Documents WHERE " & strDBTable & "Documents.Page_ID=" & requestedPage Set adoRec = adoCon.Execute(strSQL) If not adoRec.EOF Then Page_ID = adoRec("Page_ID") Page_Header = adoRec("Page_Main_Heading") Page_Second_Header = adoRec("Page_Second_Heading") Page_Content = adoRec("Page_Content") Page_Bottom = adoRec("Page_Bottom_Text") Page_Template = adoRec("Page_Template") closeRS(adoRec) response.write "" & vbcrlf response.write "" & vbcrlf response.write "" & vbcrlf response.write "" & vbcrlf response.write "" & vbcrlf response.write "" & vbcrlf response.write "" & vbcrlf response.write "" & vbcrlf response.write "" & vbcrlf response.write "" & vbcrlf response.write "" & vbcrlf response.write "" & vbcrlf response.write "" & vbcrlf response.write "" & vbcrlf response.write "" & vbcrlf response.write "" & vbcrlf response.write "" & vbcrlf response.write "" & vbcrlf response.write "" & vbcrlf response.write "" & vbcrlf response.write "" & vbcrlf response.write "" & vbcrlf response.write "" & vbcrlf response.write "" & vbcrlf response.write "" & vbcrlf response.write "" & vbcrlf response.write "" & vbcrlf response.write "" & vbcrlf response.write "" & vbcrlf response.write "" & vbcrlf Else response.write "" & vbcrlf response.write "" & vbcrlf response.write "" & vbcrlf End If response.write "" & vbcrlf response.write "

" & strPageCreatorModify & "

" & strPageCreatorTemplateType & ":" response.write "" & strPageCreator3col response.write "" & strPageCreator2col response.write "

" response.write strPageCreatorHeader response.write "

" & vbcrlf Dim oFCKeditor If blnRTEEditor Then Set oFCKeditor = New FCKeditor oFCKeditor.BasePath = web_root & "forum/admin/fck2/" oFCKeditor.Width = "100%" oFCKeditor.Height = 75 oFCKeditor.Lang = "en" oFCKeditor.InitialValue = Page_Header oFCKeditor.instanceName = "top1" oFCKeditor.ToolbarName = "GuestBook" oFCKeditor.CreateFCKeditor Set oFCKeditor = Nothing Else Response.Write ("") End if response.write "

" response.write strPageCreatorSubHeader response.write "

" & vbcrlf If blnRTEEditor Then Set oFCKeditor = New FCKeditor oFCKeditor.BasePath = web_root & "forum/admin/fck2/" oFCKeditor.Width = "100%" oFCKeditor.Height = 75 oFCKeditor.Lang = "en" oFCKeditor.InitialValue = Page_Second_Header oFCKeditor.instanceName = "top2" oFCKeditor.ToolbarName = "GuestBook" oFCKeditor.CreateFCKeditor Set oFCKeditor = Nothing Else Response.Write ("") End if response.write "

" response.write strPageCreatorContent response.write "

" & vbcrlf If blnRTEEditor Then Set oFCKeditor = New FCKeditor oFCKeditor.BasePath = web_root & "forum/admin/fck2/" oFCKeditor.Width = "100%" oFCKeditor.Height = 250 oFCKeditor.Lang = "en" oFCKeditor.InitialValue = Page_Content oFCKeditor.instanceName = "content" oFCKeditor.ToolbarName = "PageCreator" oFCKeditor.CreateFCKeditor Set oFCKeditor = Nothing Else Response.Write ("") End if response.write "

" response.write strPageCreatorBotText response.write "

" & vbcrlf If blnRTEEditor Then Set oFCKeditor = New FCKeditor oFCKeditor.BasePath = web_root & "forum/admin/fck2/" oFCKeditor.Width = "100%" oFCKeditor.Height = 75 oFCKeditor.Lang = "en" oFCKeditor.InitialValue = Page_Bottom oFCKeditor.instanceName = "bottom" oFCKeditor.ToolbarName = "GuestBook" oFCKeditor.CreateFCKeditor Set oFCKeditor = Nothing Else Response.Write ("") End if response.write "

" response.write " " response.write "" response.write "" If Len(strPageErr) > 0 Then Response.Write "

" & strPageCreatorErrors & ":
" & strPageErr response.write "" response.write "

" response.write strTxtNoMatchesFound response.write "

" response.write "

" & vbcrlf Module_Box.printBoxrightSide Module_Box.printBoxBottom Set Module_Box = Nothing response.write "

" & vbcrlf %>

Site hosted by Angelfire.com: Build your free website today!