Create New Page

Enter the name of the new page you wish to create below.
Page Names Cannot Contain Spaces!

Page Name:   .asp

<% Dim pagename pagename = Request.Form("pagename") Dim Mode If request.querystring("action") = "create" then Mode = "Create" End If If Mode = "Create" then '********************************************************** '*** Begin check that page name is not already in use *** '********************************************************** Dim rsCommonC Dim blnpagenameOK blnpagenameOK = True 'Read in the the page names from the database to check that the page name does not already exsist 'Create an ADO recordset object Set rsCommonC = Server.CreateObject("ADODB.Recordset") 'Initalise the strSQL variable with an SQL statement to query the database strSQL = "SELECT tblPages.pagetitle FROM tblPages WHERE tblPages.pagetitle = '" & pagename & "';" 'Query the database rsCommonC.Open strSQL, adoCon 'If there is a record returned from the database then the page name is already used If NOT rsCommonC.EOF Then blnpagenameOK = False 'Close the recordset rsCommonC.Close '******************************************************** '*** End check that page name is not already in use *** '******************************************************** If blnpagenameOK = True Then Call CreatePage Else Response.write("
Page not created! You already have a page named "& pagename &".
") End If End If Function CreatePage 'Dimension variables Dim rsAddPage 'Holds the recordset for the new record to be added 'Create an ADO recordset object Set rsAddPage = Server.CreateObject("ADODB.Recordset") 'Initialise the strSQL variable with an SQL statement to query the database strSQL = "SELECT tblPages.pagetitle, tblPages.pagepath, tblPages.pagecontents, tblPages.pageonoff, tblPages.column3 FROM tblPages;" 'Set the cursor type we are using so we can navigate through the recordset rsAddPage.CursorType = 2 'Set the lock type so that the record is locked by ADO when it is updated rsAddPage.LockType = 3 'Open the recordset with the SQL query rsAddPage.Open strSQL, adoCon 'Tell the recordset we are adding a new record to it rsAddPage.AddNew 'Add a new record to the recordset rsAddPage.Fields("pagetitle") = pagename rsAddPage.Fields("pagepath") = "pages/" & pagename & ".asp" rsAddPage.Fields("pagecontents") = "" rsAddPage.Fields("pageonoff") = "Yes" rsAddPage.Fields("column3") = "Off" 'Write the updated recordset to the database rsAddPage.Update 'Reset server objects rsAddPage.Close Set rsAddPage = Nothing 'Set adoCon = Nothing '***************************** Set rsAddPage = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT tblPages.* From tblPages;" rsAddPage.Open strSQL, adoCon Dim ID Do While not rsAddPage.EOF ID = rsAddPage("ID") 'Move to the next record in the recordset rsAddPage.MoveNext Loop 'Reset server objects rsAddPage.Close Set rsAddPage = Nothing Set adoCon = Nothing '***************************** Const fsoForWriting = 2 Dim objFSO Set objFSO = Server.CreateObject("Scripting.FileSystemObject") 'Open the text file Dim objTextStream Set objTextStream = objFSO.OpenTextFile(Server.MapPath("../ezadmin/" & ""& pagename &"" & ".asp"), fsoForWriting, True) 'Display the contents of the asp file objTextStream.WriteLine "<" & "%" & " @ Language=VBScript " & "%" & ">" objTextStream.WriteLine "<" & "%" & " Option Explicit " & "%" & ">" objTextStream.WriteLine "<" & "!--#include file=" & """settings.asp""" & "-->" objTextStream.WriteLine "<%" objTextStream.WriteLine "'****************************************************************************************" objTextStream.WriteLine "'** Copyright Notice" objTextStream.WriteLine "'**" objTextStream.WriteLine "'** EzASPSite™" objTextStream.WriteLine "'**" objTextStream.WriteLine "'** Copyright 2003-2005 VSBrown All Rights Reserved." objTextStream.WriteLine "'**" objTextStream.WriteLine "'** This program is free software; you can modify (at your own risk) any part of it" objTextStream.WriteLine "'** and use it both privately and commercially." objTextStream.WriteLine "'**" objTextStream.WriteLine "'** All copyright notices must remain in tacked in the scripts and the" objTextStream.WriteLine "'** outputted HTML." objTextStream.WriteLine "'**" objTextStream.WriteLine "'** You may use parts of this program in your own private work, but you may NOT" objTextStream.WriteLine "'** redistribute, repackage, or sell the whole or any part of this program even" objTextStream.WriteLine "'** if it is modified or reverse engineered in whole or in part without express" objTextStream.WriteLine "'** permission from the author." objTextStream.WriteLine "'**" objTextStream.WriteLine "'** You may not pass the whole or any part of this application off as your own work." objTextStream.WriteLine "'**" objTextStream.WriteLine "'** All links to EzASPSite™ and Powered By EzASPSite™ link must remain unchanged and in place" objTextStream.WriteLine "'** and must remain visible when the pages are viewed unless permission is first granted" objTextStream.WriteLine "'** by the copyright holder." objTextStream.WriteLine "'**" objTextStream.WriteLine "'** This program is distributed in the hope that it will be useful," objTextStream.WriteLine "'** but WITHOUT ANY WARRANTY; without even the implied warranty of" objTextStream.WriteLine "'** MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE OR ANY OTHER" objTextStream.WriteLine "'** WARRANTIES WHETHER EXPRESSED OR IMPLIED." objTextStream.WriteLine "'**" objTextStream.WriteLine "'** No official support is available for EzASPSite™ but you may post support questions at:" objTextStream.WriteLine "'** http://www.ezaspsite.com/forum" objTextStream.WriteLine "'**" objTextStream.WriteLine "'****************************************************************************************" objTextStream.WriteLine "'Set the response buffer to true" objTextStream.WriteLine "Response.Buffer = True" objTextStream.WriteLine "" objTextStream.WriteLine "'Make sure this page is not cached" objTextStream.WriteLine "Response.Expires = -1" objTextStream.WriteLine "Response.ExpiresAbsolute = Now() - 2" objTextStream.WriteLine "Response.AddHeader ""pragma"",""no-cache""" objTextStream.WriteLine "Response.AddHeader ""cache-control"",""private""" objTextStream.WriteLine "Response.CacheControl = ""No-Store""" objTextStream.WriteLine "" objTextStream.WriteLine "Dim ID" objTextStream.WriteLine "ID = " & ""& ID &"" & "" objTextStream.WriteLine "" objTextStream.WriteLine "Dim blnLCode1" objTextStream.WriteLine "" objTextStream.WriteLine "'Variables" objTextStream.WriteLine "Dim strMode 'This Is The Page Mode" objTextStream.WriteLine "Dim sitepath 'This Is The Path To Your Site" objTextStream.WriteLine "Dim htmleditor 'This Is The HTML Editor On/Off Feature" objTextStream.WriteLine "Dim " & ""& pagename &"" & " 'This Is The Name Of The Page" objTextStream.WriteLine "Dim pagecontents 'This Is " & ""& pagename &"" & " Contents" objTextStream.WriteLine "Dim pagetitle 'This Is " & ""& pagename &"" & " Title" objTextStream.WriteLine "Dim pageonoff 'This Is " & ""& pagename &"" & " On/Off Feature" objTextStream.WriteLine "Dim pagepath 'This Is " & ""& pagename &"" & " Path" objTextStream.WriteLine "Dim column3 'This Is " & ""& pagename &"" & " 3 Column On/Off Feature" objTextStream.WriteLine "" objTextStream.WriteLine "'Pull Data From Database" objTextStream.WriteLine "" objTextStream.WriteLine "'--------------------- Path And Name Of Database --------------------------------------------------------------------------------" objTextStream.WriteLine "strCon = ""DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="" & Server.MapPath(strEzDBPath3) ' ""../../db/ez.mdb""" objTextStream.WriteLine "" objTextStream.WriteLine "'Alternative Drivers Faster Than The Default One Above" objTextStream.WriteLine "'strCon = ""Provider=Microsoft.Jet.OLEDB.3.51; Data Source="" & Server.MapPath(""../db/ez.mdb"") 'This one is if you convert the database to Access 97" objTextStream.WriteLine "'strCon = ""Provider=Microsoft.Jet.OLEDB.4.0; Data Source="" & Server.MapPath(""../db/ez.mdb"") 'This one is for Access 2000/2002" objTextStream.WriteLine "" objTextStream.WriteLine "'If you wish to use DSN then comment out the driver above and uncomment the line below (DSN is slower than the above drivers)" objTextStream.WriteLine "'strCon = ""DSN = DSN_NAME"" 'Place the DSN where you see DSN_NAME" objTextStream.WriteLine "" objTextStream.WriteLine "'NOTE: For extra security it is highly recommended you change the name of the database, db/ez.mdb, to another name and then" objTextStream.WriteLine "'replace the db/ez.mdb found above with the name you changed the EzASPSite database to." objTextStream.WriteLine "'---------------------------------------------------------------------------------------------------------------------------------------------" objTextStream.WriteLine "" objTextStream.WriteLine "'Read In The Site Details" objTextStream.WriteLine "" objTextStream.WriteLine "pagecontents = Request.Form(""pagecontents"")" objTextStream.WriteLine "pagetitle = Request.Form(""pagetitle"")" objTextStream.WriteLine "pageonoff = Request.Form(""pageonoff"")" objTextStream.WriteLine "pagepath = Request.Form(""pagepath"")" objTextStream.WriteLine "column3 = Request.Form(""column3"")" objTextStream.WriteLine "" objTextStream.WriteLine "strMode = Request.Form(""mode"")" objTextStream.WriteLine "" objTextStream.WriteLine "Set rsCommon = Server.CreateObject(""ADODB.Recordset"")" objTextStream.WriteLine "strSQL = ""SELECT tblSettings.* From tblSettings;""" objTextStream.WriteLine "rsCommon.Open strSQL, strCon" objTextStream.WriteLine "" objTextStream.WriteLine "If Not rsCommon.EOF Then" objTextStream.WriteLine "" objTextStream.WriteLine " htmleditor = rsCommon(""htmleditor"")" objTextStream.WriteLine " sitepath = rsCommon(""sitepath"")" objTextStream.WriteLine "" objTextStream.WriteLine "End If" objTextStream.WriteLine "rsCommon.close" objTextStream.WriteLine "" objTextStream.WriteLine "Set rsCommon = Server.CreateObject(""ADODB.Recordset"")" objTextStream.WriteLine "strSQL = ""SELECT tblPages.ID,tblPages.pagetitle,tblPages.pagecontents,tblPages.pagepath,tblPages.pageonoff,tblPages.column3 FROM tblPages WHERE ID="& ID &";""" objTextStream.WriteLine "" objTextStream.WriteLine "'Set the cursor type property of the record set to Dynamic so we can navigate through the record set" objTextStream.WriteLine "rsCommon.CursorType = 2" objTextStream.WriteLine "" objTextStream.WriteLine "'Set the Lock Type for the records so that the record set is only locked when it is updated" objTextStream.WriteLine "rsCommon.LockType = 3" objTextStream.WriteLine "" objTextStream.WriteLine "'Query the database" objTextStream.WriteLine "rsCommon.Open strSQL, strCon" objTextStream.WriteLine "" objTextStream.WriteLine "'If Changing Site Settings Then Update Database" objTextStream.WriteLine "If strMode = ""change"" Then" objTextStream.WriteLine "" objTextStream.WriteLine " 'Update the recordset" objTextStream.WriteLine " With rsCommon" objTextStream.WriteLine "" objTextStream.WriteLine " .Fields(""pagecontents"") = pagecontents" objTextStream.WriteLine " .Fields(""pagetitle"") = pagetitle" objTextStream.WriteLine " .Fields(""pageonoff"") = pageonoff" objTextStream.WriteLine " .Fields(""pagepath"") = pagepath" objTextStream.WriteLine " .Fields(""column3"") = column3" objTextStream.WriteLine "" objTextStream.WriteLine " 'Update the database with the new site settings" objTextStream.WriteLine " .Update" objTextStream.WriteLine "" objTextStream.WriteLine " 'Re-run the query to read in the updated recordset from the database" objTextStream.WriteLine " .Requery" objTextStream.WriteLine " End With" objTextStream.WriteLine "End If" objTextStream.WriteLine "" objTextStream.WriteLine "'Read In The Site Settings From Database" objTextStream.WriteLine "If NOT rsCommon.EOF Then" objTextStream.WriteLine "" objTextStream.WriteLine " " & ""& pagename &"" & " = rsCommon(""pagetitle"")" objTextStream.WriteLine " pagecontents = rsCommon(""pagecontents"")" objTextStream.WriteLine " pagepath = rsCommon(""pagepath"")" objTextStream.WriteLine " pagetitle = rsCommon(""pagetitle"")" objTextStream.WriteLine " pageonoff = rsCommon(""pageonoff"")" objTextStream.WriteLine " column3 = rsCommon(""column3"")" objTextStream.WriteLine "" objTextStream.WriteLine "End If" objTextStream.WriteLine "" objTextStream.WriteLine "'Reset Server Objects" objTextStream.WriteLine "rsCommon.Close" objTextStream.WriteLine "" objTextStream.WriteLine "Set rsCommon = Server.CreateObject(""ADODB.Recordset"")" objTextStream.WriteLine "strSQL = ""SELECT tblHitCount.* From tblHitCount;""" objTextStream.WriteLine "rsCommon.Open strSQL, strCon" objTextStream.WriteLine "" objTextStream.WriteLine "If Not rsCommon.EOF Then" objTextStream.WriteLine "" objTextStream.WriteLine "blnLCode1 = CBool(rsCommon(""L_Code""))" objTextStream.WriteLine "" objTextStream.WriteLine "End If" objTextStream.WriteLine "rsCommon.close" objTextStream.WriteLine "%" & ">" objTextStream.WriteLine "" objTextStream.WriteLine "" objTextStream.WriteLine "Site Settings" objTextStream.WriteLine "" objTextStream.WriteLine "" objTextStream.WriteLine "" objTextStream.WriteLine "" objTextStream.WriteLine "" objTextStream.WriteLine "" objTextStream.WriteLine "" objTextStream.WriteLine "" objTextStream.WriteLine "" objTextStream.WriteLine "" objTextStream.WriteLine "" objTextStream.WriteLine "" objTextStream.WriteLine "
" objTextStream.WriteLine "

"& pagename &" Contents
" objTextStream.WriteLine " """ & " target=""_top"">Return To Home Page" objTextStream.WriteLine "

" objTextStream.WriteLine "
" objTextStream.WriteLine "
" objTextStream.WriteLine "" objTextStream.WriteLine "" objTextStream.WriteLine "" objTextStream.WriteLine "" objTextStream.WriteLine " " objTextStream.WriteLine " " objTextStream.WriteLine " " objTextStream.WriteLine "" objTextStream.WriteLine "" objTextStream.WriteLine "" objTextStream.WriteLine " " objTextStream.WriteLine " " objTextStream.WriteLine " " objTextStream.WriteLine " " objTextStream.WriteLine "" objTextStream.WriteLine "" objTextStream.WriteLine "" objTextStream.WriteLine " " objTextStream.WriteLine " " objTextStream.WriteLine " " objTextStream.WriteLine " " objTextStream.WriteLine "" objTextStream.WriteLine "" objTextStream.WriteLine "" objTextStream.WriteLine " " objTextStream.WriteLine " " objTextStream.WriteLine " " objTextStream.WriteLine " " objTextStream.WriteLine "" objTextStream.WriteLine "" objTextStream.WriteLine "" objTextStream.WriteLine " " objTextStream.WriteLine " " objTextStream.WriteLine " " objTextStream.WriteLine "" objTextStream.WriteLine "" objTextStream.WriteLine "" objTextStream.WriteLine " " objTextStream.WriteLine " " objTextStream.WriteLine "" objTextStream.WriteLine " " objTextStream.WriteLine " " objTextStream.WriteLine "
Page Details
Site Page Title    " objTextStream.WriteLine " Active: Yes" objTextStream.WriteLine " >   No" objTextStream.WriteLine " name=""pageonoff"">
" objTextStream.WriteLine " This Is The Page Title
"" size=""30"" maxlength=""50"" >
Site Page Path
This Is The Page Path
"" size=""30"" maxlength=""50"" >
Display As 3 Column Page View" objTextStream.WriteLine " On" objTextStream.WriteLine " >   Off" objTextStream.WriteLine " name=""column3"">
Page Contents
"& pagename &" Contents
This Is The Contents Of "& pagename &"
" objTextStream.WriteLine "" objTextStream.WriteLine "<" & "% If htmleditor = ""On"" Then %" & ">" objTextStream.WriteLine "" objTextStream.WriteLine "<" & "% End If %" & ">" objTextStream.WriteLine "
" objTextStream.WriteLine "" objTextStream.WriteLine "
" objTextStream.WriteLine "" objTextStream.WriteLine "" objTextStream.WriteLine "" objTextStream.WriteLine "" objTextStream.WriteLine "" objTextStream.WriteLine " " objTextStream.WriteLine " " objTextStream.WriteLine " " objTextStream.WriteLine "

" objTextStream.WriteLine " " objTextStream.WriteLine " " objTextStream.WriteLine "" objTextStream.WriteLine "

" objTextStream.WriteLine "
" objTextStream.WriteLine "<" & "% If blnLCode1 = True Then %" & ">" objTextStream.WriteLine "" objTextStream.WriteLine "
Donate To The EzASPSite™ Project If You Feel It Has Helped You In Anyway
" objTextStream.WriteLine "
" objTextStream.WriteLine "Powered By EzASPSite <" & "% response.write version %" & ">" objTextStream.WriteLine "
" objTextStream.WriteLine "" objTextStream.WriteLine "<" & "% End If %" & ">" objTextStream.WriteLine "" objTextStream.WriteLine "" 'Close the file and clean up objTextStream.Close Set objTextStream = Nothing Set objFSO = Nothing Response.Write("


The page " & pagename & " has been created successfully!") Response.Write("

It has been saved as pages/" & pagename & ".asp") Response.Write("

Click HERE to load your new page into the left Navigation Menu!
") Set objFSO = Server.CreateObject("Scripting.FileSystemObject") 'Open the text file Set objTextStream = objFSO.OpenTextFile(Server.MapPath("../../pages/" & ""& pagename &"" & ".asp"), fsoForWriting, True) 'Display the contents of the asp file objTextStream.WriteLine "<" & "%" & " @ Language=VBScript " & "%" & ">" objTextStream.WriteLine "<" & "%" & " Option Explicit " & "%" & ">" objTextStream.WriteLine "<%" objTextStream.WriteLine "'****************************************************************************************" objTextStream.WriteLine "'** Copyright Notice" objTextStream.WriteLine "'**" objTextStream.WriteLine "'** EzASPSite™" objTextStream.WriteLine "'**" objTextStream.WriteLine "'** Copyright 2003-2005 VSBrown All Rights Reserved." objTextStream.WriteLine "'**" objTextStream.WriteLine "'** This program is free software; you can modify (at your own risk) any part of it" objTextStream.WriteLine "'** and use it both privately and commercially." objTextStream.WriteLine "'**" objTextStream.WriteLine "'** All copyright notices must remain in tacked in the scripts and the" objTextStream.WriteLine "'** outputted HTML." objTextStream.WriteLine "'**" objTextStream.WriteLine "'** You may use parts of this program in your own private work, but you may NOT" objTextStream.WriteLine "'** redistribute, repackage, or sell the whole or any part of this program even" objTextStream.WriteLine "'** if it is modified or reverse engineered in whole or in part without express" objTextStream.WriteLine "'** permission from the author." objTextStream.WriteLine "'**" objTextStream.WriteLine "'** You may not pass the whole or any part of this application off as your own work." objTextStream.WriteLine "'**" objTextStream.WriteLine "'** All links to EzASPSite™ and Powered By EzASPSite™ link must remain unchanged and in place" objTextStream.WriteLine "'** and must remain visible when the pages are viewed unless permission is first granted" objTextStream.WriteLine "'** by the copyright holder." objTextStream.WriteLine "'**" objTextStream.WriteLine "'** This program is distributed in the hope that it will be useful," objTextStream.WriteLine "'** but WITHOUT ANY WARRANTY; without even the implied warranty of" objTextStream.WriteLine "'** MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE OR ANY OTHER" objTextStream.WriteLine "'** WARRANTIES WHETHER EXPRESSED OR IMPLIED." objTextStream.WriteLine "'**" objTextStream.WriteLine "'** No official support is available for EzASPSite™ but you may post support questions at:" objTextStream.WriteLine "'** http://www.ezaspsite.com/forum" objTextStream.WriteLine "'**" objTextStream.WriteLine "'****************************************************************************************" objTextStream.WriteLine "Dim pagetitle" objTextStream.WriteLine "Dim pagecontents" objTextStream.WriteLine "Dim column3" objTextStream.WriteLine "%" & ">" objTextStream.WriteLine "<" & "!--#include file=" & """../includes/psettings.asp""" & "-->" objTextStream.WriteLine "<" & "!--#include file=" & """../functions/readcookie.asp""" & "-->" objTextStream.WriteLine "<%" objTextStream.WriteLine "Set rsCommon = Server.CreateObject(""ADODB.Recordset"")" objTextStream.WriteLine "strSQL = ""SELECT tblPages.ID,tblPages.pagetitle,tblPages.pagecontents,tblPages.column3 FROM tblPages WHERE ID="& ID &";""" objTextStream.WriteLine "rsCommon.Open strSQL, strCon" objTextStream.WriteLine " Do While not rsCommon.EOF" objTextStream.WriteLine "" objTextStream.WriteLine " pagetitle = rsCommon(""pagetitle"")" objTextStream.WriteLine " pagecontents = rsCommon(""pagecontents"")" objTextStream.WriteLine " column3 = rsCommon(""column3"")" objTextStream.WriteLine "" objTextStream.WriteLine " 'Move to the next record in the recordset" objTextStream.WriteLine " rsCommon.MoveNext" objTextStream.WriteLine "" objTextStream.WriteLine "Loop " objTextStream.WriteLine "" objTextStream.WriteLine "'Reset server objects " objTextStream.WriteLine "rsCommon.Close" objTextStream.WriteLine "%" & ">" objTextStream.WriteLine "" objTextStream.WriteLine "" objTextStream.WriteLine " " & " : <" & "% response.write pagetitle %" & ">"">" objTextStream.WriteLine " "">" objTextStream.WriteLine " "">" objTextStream.WriteLine " " objTextStream.WriteLine " " objTextStream.WriteLine " <" & "% response.write sitetitle %" & "> : <" & "% response.write pagetitle %" & ">" objTextStream.WriteLine "" objTextStream.WriteLine """ background=""../forum/<" & "% response.write strbgimage %" & ">"">" objTextStream.WriteLine "" objTextStream.WriteLine "" objTextStream.WriteLine "<%" objTextStream.WriteLine "Dim str3Column" objTextStream.WriteLine "str3Column = column3" objTextStream.WriteLine "%" & ">" objTextStream.WriteLine "<" & "!--#include file=" & """../includes/header.asp""" & "-->" objTextStream.WriteLine "" objTextStream.WriteLine "" objTextStream.WriteLine "<" & "%" & " If roundview = ""On"" Then " & "%" & ">" objTextStream.WriteLine "" objTextStream.WriteLine "" objTextStream.WriteLine "" objTextStream.WriteLine "" objTextStream.WriteLine "" objTextStream.WriteLine "" objTextStream.WriteLine "" objTextStream.WriteLine "
/top-left.gif"">/top-bg.gif"">" objTextStream.WriteLine "/spacer.gif"" width=""1"" height=""1"">/top-right.gif"">
" objTextStream.WriteLine "" objTextStream.WriteLine "" objTextStream.WriteLine "" objTextStream.WriteLine "" objTextStream.WriteLine "" objTextStream.WriteLine "" objTextStream.WriteLine "
/left-side-table-bg.gif"">" objTextStream.WriteLine "/left-side-table-bg.gif"">" objTextStream.WriteLine "" objTextStream.WriteLine "<" & "%" & " Else " & "%" & ">" objTextStream.WriteLine "<" & "%" & " End If " & "%" & ">" objTextStream.WriteLine "/<" & "% response.write minimenuimage %" & ">"" bgcolor=""<" & "% response.write footercolor %" & ">"" cellpadding=""0"" cellspacing=""0"" style=""border-left: 1px <" & "% response.write bordercolor %" & "> solid;border-right: 1px <" & "% response.write bordercolor %" & "> solid;border-top: 1px <" & "% response.write bordercolor %" & "> solid;"">" & "
<" & "% If pagetitles = ""On"" Then %" & ">   <" & "% response.write pagetitle %" & ">:<" & "% Else %" & "> <" & "% End If %" & ">
" objTextStream.WriteLine " "" style=""border-left: 1px <" & "% response.write bordercolor %" & "> solid;border-right: 1px <" & "% response.write bordercolor %" & "> solid;border-top: 1px <" & "% response.write bordercolor %" & "> solid;border-bottom: 1px <" & "% response.write bordercolor %" & "> solid;"">" objTextStream.WriteLine " " objTextStream.WriteLine " " objTextStream.WriteLine " " objTextStream.WriteLine "
" objTextStream.WriteLine "
" objTextStream.WriteLine "<%" & "=pagecontents" & "%" & ">" objTextStream.WriteLine "
" objTextStream.WriteLine "
" objTextStream.WriteLine "<" & "%" & " If roundview = ""On"" Then " & "%" & ">" objTextStream.WriteLine "" objTextStream.WriteLine "
/right-side-table-bg.gif"">" objTextStream.WriteLine "/right-side-table-bg.gif"">
" objTextStream.WriteLine "" objTextStream.WriteLine "" objTextStream.WriteLine "" objTextStream.WriteLine "" objTextStream.WriteLine "" objTextStream.WriteLine "" objTextStream.WriteLine "
/bottom-left.gif"">/bottom-bg.gif"">" objTextStream.WriteLine "/spacer.gif"" width=""100%"" height=""1"">/bottom-right.gif"">
" objTextStream.WriteLine "" objTextStream.WriteLine "<" & "%" & " Else " & "%" & ">" objTextStream.WriteLine "<" & "%" & " End If " & "%" & ">" objTextStream.WriteLine "" objTextStream.WriteLine "" objTextStream.WriteLine "<" & "!--#include file=" & """../includes/footer.asp""" & "-->" objTextStream.WriteLine "" objTextStream.WriteLine "" objTextStream.WriteLine "" 'Close the file and clean up objTextStream.Close Set objTextStream = Nothing Set objFSO = Nothing End Function %>