<% 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
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
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:
Site Keywords:
Site Description:
Under Construction: checked<% End If %>>No checked<% End If %>>Yes
<% End If %> <% End If %>