<% If Request.Form("unme")="admin" AND Request.Form("pwd")="isherwood12" Then Session("al")="aahss" & day(date) Response.Redirect "admin.asp" End If %> <% If Session("al")<>"aahss" & day(date) Then %>

Please note that you have entered a restricted area. Please click here to return to the home page.
Username:
Password:

<% Else If Request.Form("PageID").count>0 Then PageID = Request.Form("PageID") PageName = replace("" & Request.Form("PageName"),"'","''") PageDefault = Request.Form("DefaultPage") PageOrder = Request.Form("PageOrder") PageParent = Request.Form("ParentPage") PageContent = replace("" & Request.Form("PageContent"),"'","''") Set RSupd = Conn.Execute("UPDATE PageContent SET pName='" & PageName & "',pParent=0" & PageParent & ",pIsDefault=0" & PageDefault & ",pMenuOrder=0" & PageOrder & ",pContent='" & PageContent & "' WHERE pID=0" & PageID) If len("" & Request.Form("username"))>3 AND len("" & Request.Form("password"))>3 Then Set RSupduser = Conn.Execute("UPDATE GCUsers Set uLogin='" & Request.Form("username") & "', uPassword='" & Request.Form("password") & "' WHERE uID=1") End If Response.Redirect "admin.asp" End If If Request.Querystring("DelPageID").count>0 Then PageID = Request.Querystring("DelPageID") Set RSupd = Conn.Execute("UPDATE PageContent SET pActive=0 WHERE pID=0" & PageID) Response.Redirect "admin.asp" End If If Request.Form("NewPage").count>0 Then PageName = replace("" & Request.Form("PageName"),"'","''") PageDefault = Request.Form("DefaultPage") PageOrder = Request.Form("PageOrder") PageParent = Request.Form("ParentPage") Set RSupd = Conn.Execute("INSERT INTO PageContent (pName, pParent, pIsDefault, pMenuOrder) VALUES ('" & PageName & "',0" & PageParent & ",0" & PageDefault & ",0" & PageOrder & ")") Response.Redirect "admin.asp" End If %> Site Pages | News and Specials |


<% If Request.Querystring("sp").count>0 Then Set RSpage = Conn.Execute("Select pName FROM PageContent WHERE pID=" & Request.Querystring("sp")) PageName = RSpage("pName") RSpage.Close %> : <%= PageName %> Sub Pages
Return to Parent Pages<% End If %>
<% SelectedParent = 0 If Request.Querystring("sp").count>0 Then SelectedParent = Request.Querystring("sp") End If LastParent = 0 Set RSpages = Conn.Execute("SELECT pID, pName, pParent, pIsDefault, pMenuOrder, Datalength(pContent) AS PageSize, NumChildren=(SELECT COUNT(*) FROM PageContent AS AA WHERE AA.pParent=PageContent.pID AND pActive=1) FROM PageContent WHERE (pParent=0" & SelectedParent & " OR pParent=1000) AND pActive=1 ORDER BY pParent, pMenuOrder") Do While NOT RSpages.eof %> bgcolor="#ffeeee"<% Else %> bgcolor="<%= AltBGColor() %>"<% End If %> valign=top> <% If LastParent=0 Then LastParent = RSpages("pParent") End If RSpages.MoveNext Loop %> <% If Request.Querystring("edpage").Count>0 Then Set RScontent = Conn.Execute("SELECT pID, pName, pIsDefault, pMenuOrder, pParent, pContent FROM PageContent WHERE pID=0" & Request.Querystring("edpage") & " AND pActive=1") If NOT RScontent.eof Then pID = clng("0" & RScontent("pID")) pName = "" & RScontent("pName") pIsDefault = clng("0" & RScontent("pIsDefault")) pMenuOrder = clng("0" & RScontent("pMenuOrder")) pParent = clng("0" & RScontent("pParent")) PageContent = "" & RScontent("pContent") Else PageContent = "" End If RScontent.Close Set RScontent = Nothing %> <% End If %>

ID	Name	Default	Order
<%= RSpages("pID") %>	<%= RSpages("pName") %> <% If RSpages("NumChildren")>0 Then %> " class=vsmall>View/Edit <%= RSpages("NumChildren") %> Sub Pages <% End If %>	<% If RSpages("pIsDefault")=1 Then %>Y<% Else %>-<% End If %>	<%= RSpages("pMenuOrder") %>	#editsection">Edit	" onClick="return confirmit();">Delete
back to top Name Default Order Section YesNo Top Level Unlinked Page <% Set RSparents = Conn.Execute("SELECT pID, pName FROM PageContent WHERE (pActive = 1) AND (pParent = 0) ORDER BY pMenuOrder") Do While NOT RSparents.eof %> "<% If LastParent=RSparents("pID") Then %> selected<% End If %>><%= RSparents("pName") %> <% Set RSkids = Conn.Execute("SELECT pID, pName FROM PageContent WHERE (pActive = 1) AND (pParent = 0" & RSparents("pID") & ") ORDER BY pMenuOrder") Do While NOT RSkids.eof %> "<% If LastParent=RSkids("pID") Then %> selected<% End If %>>  :: <%= RSkids("pName") %> <% RSkids.MoveNext Loop RSkids.Close Set RSkids = Nothing RSparents.MoveNext Loop RSparents.Close Set RSparents = Nothing %>
back to top <% If pID=50 Then Set RSuser = Conn.Execute("SELECT uLogin, uPassword FROM GCUsers WHERE uID=1") Username = RSuser("uLogin") Password = RSuser("uPassword") %> <% End If %> Name Default Order Section checked<% End If %>>Yes checked<% End If %>>No Top Level Unlinked Page <% Set RSparents = Conn.Execute("SELECT pID, pName FROM PageContent WHERE (pActive = 1) AND (pParent = 0) ORDER BY pMenuOrder") Do While NOT RSparents.eof %> "<% If pParent=RSparents("pID") Then %> selected<% End If %>><%= RSparents("pName") %> <% Set RSkids = Conn.Execute("SELECT pID, pName FROM PageContent WHERE (pActive = 1) AND (pParent = 0" & RSparents("pID") & ") ORDER BY pMenuOrder") Do While NOT RSkids.eof %> "<% If pParent=RSkids("pID") Then %> selected<% End If %>>  :: <%= RSkids("pName") %> <% RSkids.MoveNext Loop RSkids.Close Set RSkids = Nothing RSparents.MoveNext Loop RSparents.Close Set RSparents = Nothing %> Username Password Page Content <% Dim sBasePath sBasePath = Request.ServerVariables("PATH_INFO") sBasePath = Left( sBasePath, InStrRev( sBasePath, "/_samples" ) ) Dim oFCKeditor Set oFCKeditor = New FCKeditor oFCKeditor.BasePath = "" oFCKeditor.Height = 450 oFCKeditor.Value = PageContent oFCKeditor.Create "PageContent" %>

<% If Request.Querystring("sp").count=0 AND Request.Querystring("edpage").count=0 Then %> Site Setup

Contact Info:	<%= KeyPhrase %>
Site Keywords:	<%= metaKeywords %>
Site Description:	<%= metaDescription %>
Under Construction:	checked<% End If %>>No checked<% End If %>>Yes

<% End If %> <% End If %>