"
else
ErrorMessage = ""
end if
ReviewGuestbook Conn, RS, TemplateURL, GuestName, Message, PostDate, PostTime, _
ErrorMessage, RevNumber, RevHighNumber
elseif Request.QueryString = "delete" and Request.Cookies("ASPGuestbook")("Login") = "LoggedIn" then
GetNumOfDelete RS, NumOfDel, tempdel
if tempdel = 0 then
ErrorMessage = "
There are no messages to be deleted.
"
else
ErrorMessage = ""
end if
DeleteGuestbook Conn, RS, TemplateURL, GuestName, Message, PostDate, PostTime, _
ErrorMessage, Number, RevNumber, DelHighNumber
elseif Request.QueryString = "view&sortby=guestname" then
SQLState = "SELECT Num, GuestName, PostDate, PostTime, Message FROM guestbook ORDER BY GuestName ASC"
OrderMes = "Sort By:Newest | Oldest | Guest Name"
ViewGuestbook Conn, RS, TemplateURL, GuestName, Message, PostDate, PostTime, _
ErrorMessage, Number, SQLState, OrderMes, RevNumber
elseif Request.QueryString = "view&sortby=time" then
SQLState = "SELECT Num, GuestName, PostDate, PostTime, Message FROM guestbook ORDER BY PostTime ASC"
OrderMes = "Sort By:Newest First | Oldest | Guest Name"
ViewGuestbook Conn, RS, TemplateURL, GuestName, Message, PostDate, PostTime, _
ErrorMessage, Number, SQLState, OrderMes, RevNumber
elseif Request.QueryString = "logoff" and Request.Cookies("ASPGuestbook")("Login") = "LoggedIn" then
Response.Cookies("ASPGuestbook")("Login") = "LoggedOut"
Response.Redirect HomePage
elseif Request.QueryString = "logoff" and Request.Cookies("ASPGuestbook")("Login") <> "LoggedIn" then
Response.Redirect HomePage
elseif Request.QueryString = "about" then
TemplateURL = RootDir & "_about.html"
InsertTemplate
else
CA = 1
end if
end Sub
'-----------------------------------------------------------------------------------------
'
'-----------------------------------------------------------------------------------------
Sub ReviewGuestbook (Conn, RS, TemplateURL, GuestName, Message, PostDate, PostTime, _
ErrorMessage, RevNumber, RevHighNumber)
RevHighNumber = 0
DRHTML = ""
Set RS = Server.CreateObject("ADODB.Recordset")
RS.Open "unreviewed", Conn, , , adCmdTable
Do While Not RS.EOF
RevNumber = RS("Num")
GuestName = RS("GuestName")
PostDate = RS("PostDate")
PostTime = RS("PostTime")
Message = RS("Message")
if RevNumber > RevHighNumber then
RevHighNumber = RevNumber
end if
DelRevURL = RootDir & "_rev_mid.html"
InsertDelRev DelRevHTML
DRHTML = DRHTML & DelRevHTML
RS.MoveNext
Loop
RS.Close
Set RS = Nothing
Set RS = Server.CreateObject("ADODB.Recordset")
RS.Open "admininfo", Conn, , adLockOptimistic, adCmdTable
RS("RevHighNum") = RevHighNumber
RS.Update
RS.Close
Set RS = Nothing
if RevHighNumber = 0 then
SubmitStatement = ""
else
SubmitStatement = " "
end if
InsertMenu menu_bar
TemplateURL = RootDir & "_rev_main.html"
InsertTemplate
End Sub
'-----------------------------------------------------------------------------------------
'
'-----------------------------------------------------------------------------------------
Sub DeleteGuestbook (Conn, RS, TemplateURL, GuestName, Message, PostDate, PostTime, _
ErrorMessage, Number, RevNumber, DelHighNumber)
DelHighNumber = 0
DRHTML = ""
Set RS = Server.CreateObject("ADODB.Recordset")
RS.Open "guestbook", Conn, , , adCmdTable
Do While Not RS.EOF
Number = RS("Num")
GuestName = RS("GuestName")
PostDate = RS("PostDate")
PostTime = RS("PostTime")
Message = RS("Message")
if Number > DelHighNumber then
DelHighNumber = Number
end if
DelRevURL = RootDir & "_del_mid.html"
InsertDelRev DelRevHTML
DRHTML = DRHTML & DelRevHTML
RS.MoveNext
Loop
RS.Close
Set RS = Nothing
Set RS = Server.CreateObject("ADODB.Recordset")
RS.Open "admininfo", Conn, , adLockOptimistic, adCmdTable
RS("DelHighNum") = DelHighNumber
RS.Update
RS.Close
Set RS = Nothing
if DelHighNumber = 0 then
SubmitStatement = ""
else
SubmitStatement = " "
end if
InsertMenu menu_bar
TemplateURL = RootDir & "_del_main.html"
InsertTemplate
End Sub
'-----------------------------------------------------------------------------------------
'
'-----------------------------------------------------------------------------------------
Sub ViewGuestbook (Conn, RS, TemplateURL, GuestName, Message, PostDate, PostTime, _
ErrorMessage, Number, SQLState, OrderMes, RevNumber)
TemplateURL = RootDir & "_view_begin.html"
InsertTemplate
Set RS = Server.CreateObject("ADODB.Recordset")
RS.Open SQLState, Conn
Do While Not RS.EOF
GuestName = RS("GuestName")
PostDate = RS("PostDate")
PostTime = RS("PostTime")
Message = RS("Message")
TemplateURL = RootDir & "_view_mid.html"
InsertTemplate
RS.MoveNext
Loop
RS.Close
Set RS = Nothing
GetAdminSettings Conn, RS, Review, Homepage
TemplateURL = RootDir & "_view_end.html"
InsertTemplate
End Sub
'-----------------------------------------------------------------------------------------
'
'-----------------------------------------------------------------------------------------
Sub CheckForm (Form, GuestName, Message, PostDate, PostTime, ErrorMessage, TemplateURL, _
Username, Password, Confirm, RootDir, ScriptURL, Conn, RS, NewPassword, _
NewUsername, Review, RevEnCh, RevDisCh, RevMessage, Number, RevNumber, _
DelHighNumber, RevHighNumber, DelSig, AddSig, RS2)
AssignForm Form, GuestName, Message, PostDate, PostTime
if Form("GuestName") = "" AND Form("Message") = "" AND len(Form("PostDate")) AND _
Form("Submit") = "Sign Guestbook" then
ErrorMessage = " ERROR: Name and Message may not be left blank "
TemplateURL = RootDir & "_sign_guestbook.html"
InsertTemplate
response.end
elseif Form("GuestName") = "" AND Form("Message") <> "" AND len(Form("PostDate")) AND _
Form("Submit") = "Sign Guestbook" then
ErrorMessage = " ERROR: Name may not be left blank "
TemplateURL = RootDir & "_sign_guestbook.html"
InsertTemplate
response.end
elseif Form("GuestName") <> "" AND Form("Message") = "" AND len(Form("PostDate")) AND _
Form("Submit") = "Sign Guestbook" then
ErrorMessage = " ERROR: Message may not be left blank. "
TemplateURL = RootDir & "_sign_guestbook.html"
InsertTemplate
response.end
elseif Form("GuestName") <> "" AND Form("Message") <> "" AND len(Form("PostDate")) AND _
Form("Submit") = "Sign Guestbook" then
TemplateURL = RootDir & "_user_review.html"
InsertTemplate
elseif Form("UserConfirm") = "Post" then
if Review = "Enabled" then
UpdateRevbook Conn, RS, GuestName, PostDate, PostTime, Message, RevNumber, RevHighNumber
RevMessage = "Your message has been sent to the administrator for review.
"
else
UpdateGuestbook Conn, RS, GuestName, PostDate, PostTime, Message, Number
RevMessage = ""
end if
TemplateURL = RootDir & "_thank_you.html"
InsertTemplate
elseif Form("UserConfirm") = "Revise" then
TemplateURL = RootDir & "_sign_guestbook.html"
InsertTemplate
elseif Form("Username") = Username AND Form("Password") = Password then
Response.Cookies("ASPGuestbook")("Login") = "LoggedIn"
GetAdminSettings Conn, RS, Review, Homepage
if Review = "Enabled" then
RevEnCh = "checked"
RevDisCh = ""
RevMessage = "* Review Guestbook Postings"
else
RevDisCh = "checked"
RevEnCh = ""
RevMessage = "* Review Guestbook PostingsDisabled"
end if
ErrorMessage = ""
GetNumOfReview RS, NumOfRev, temprev
GetNumOfDelete RS, NumOfDel, tempdel
InsertMenu menu_bar
InsertAdmin DRHTML
TemplateURL = RootDir & "_admin_main.html"
InsertTemplate
elseif Form("Submit") = "Login" AND (Form("Username") <> Username OR Form("Password") <> Password) then
ErrorMessage = "Invalid"
TemplateURL = RootDir & "_admin_login.html"
InsertTemplate
elseif Form("Submit") = "Cancel" then
Response.Redirect HomePage
elseif Form("Submit") = "Update Info" then
NewUsername = Form("NewUsername")
NewPassword = Form("NewPassword")
UpdateUserPass Conn, RS, NewUsername, NewPassword
elseif Form("Review") = "Enabled" OR Form("Review") = "Disabled"then
ErrorMessage = "Settings have been updated! "
UpdateRevCook Conn, RS, Form
GetAdminSettings Conn, RS, Review, Homepage
if Form("Review") = "Enabled" then
RevEnCh = "checked"
RevDisCh = ""
RevMessage = "* Review Guestbook Postings"
else
RevDisCh = "checked"
RevEnCh = ""
RevMessage = "* Review Guestbook PostingsDisabled"
end if
if len(Form("NewUsername")) AND len(Form("NewPassword")) then
NewUsername = Form("NewUsername")
NewPassword = Form("NewPassword")
UpdateUserPass Conn, RS, NewUsername, NewPassword
end if
GetNumOfReview RS, NumOfRev, temprev
GetNumOfDelete RS, NumOfDel, tempdel
GetExpiration RS, ExpirNum
InsertMenu menu_bar
TemplateURL = RootDir & "_update_admin.html"
InsertTemplate
elseif Form("Submit") = "Update" then
DRHTML = ""
Set RS = Server.CreateObject("ADODB.Recordset")
RS.Open "admininfo", Conn, , , adCmdTable
RevHighNumber = RS("RevHighNum")
RS.Close
Set RS = Nothing
Set RS = Server.CreateObject("ADODB.Recordset")
RS.Open "unreviewed", Conn, , , adCmdTable
dim Counter
Counter = 1
if not RS.EOF then
Counter = RS("Num")
end if
if not RS.BOF then
RS.MoveFirst
end if
do while Counter <= RevHighNumber and not RS.EOF
if Form("Rev" & Counter) = "Delete" OR Form("Rev" & Counter) = "Post" then
dim ExitNum
ExitNum = 0
if Form("Rev" & Counter) = "Delete" then
DelSig = "checked"
AddSig = ""
else
AddSig = "checked"
DelSig = ""
end if
do while ExitNum = 0 AND NOT RS.EOF
if RS("Num") = Counter then
RevNumber = RS("Num")
GuestName = RS("GuestName")
PostDate = RS("PostDate")
PostTime = RS("PostTime")
Message = RS("Message")
DelRevURL = RootDir & "_rev_conf_mid.html"
InsertDelRev DelRevHTML
DRHTML = DRHTML & DelRevHTML
ExitNum = 1
else
RS.MoveNext
end if
loop
end if
Counter = Counter + 1
loop
RS.Close
Set RS = Nothing
InsertMenu menu_bar
TemplateURL = RootDir & "_rev_conf_main.html"
InsertTemplate
elseif Form("Submit") = "Confirm Update" then
Set RS = Server.CreateObject("ADODB.Recordset")
RS.Open "unreviewed", Conn, adOpenStatic, adLockOptimistic, adCmdTable
Set RS2 = Server.CreateObject("ADODB.Recordset")
RS2.Open "guestbook", Conn, , adLockOptimistic, adCmdTable
RevHighNumber = 0
Do while not RS.EOF
if len(RS("GuestName")) then
RevNumber = RS("Num")
if RevNumber > RevHighNumber then
RevHighNumber = RevNumber
end if
RS.MoveNext
end if
Loop
if not RS.BOF then
RS.MoveFirst
end if
DelHighNumber = 0
Do While Not RS2.EOF
Number = RS2("Num")
if Number > DelHighNumber then
DelHighNumber = Number
end if
RS2.MoveNext
Loop
DelHighNumber = DelHighNumber + 1
dim RevConfNum
Counter = 1
if not RS.EOF then
Counter = RS("Num")
end if
do while Counter <= RevHighNumber and not RS.EOF
RS.MoveFirst
if len(Form("Rev" & Counter)) then
ExitNum = 0
RS.MoveFirst
if Form("Rev" & Counter) = "Delete" then
do while ExitNum = 0 and not RS.EOF
if RS("Num") = Counter then
RS.Delete
ExitNum = 1
RevConfNum = 1
else
RS.MoveNext
end if
loop
elseif Form("Rev" & Counter) = "Post" then
do while ExitNum = 0 and not RS.EOF
if RS("Num") = Counter then
RS.MovePrevious
RS.MoveNext
GuestName = RS("GuestName")
PostDate = RS("PostDate")
PostTime = RS("PostTime")
Message = RS("Message")
RS.Delete
ExitNum = 1
RevConfNum = 1
PostDate = Date()
PostTime = Time()
RS2.AddNew
RS2("GuestName") = GuestName
RS2("PostDate") = PostDate
RS2("PostTime") = PostTime
RS2("Message") = Message
RS2.Update
else
RS.MoveNext
end if
loop
DelHighNumber = DelHighNumber + 1
end if
end if
Counter = Counter + 1
loop
RS.Close
Set RS = Nothing
RS2.Close
Set RS2 = Nothing
if RevConfNum = 1 then
ErrorMessage = " Selected updates were made! "
else
ErrorMessage = " No updates were made! "
end if
GetAdminSettings Conn, RS, Review, Homepage
if Review = "Enabled" then
RevEnCh = "checked"
RevDisCh = ""
RevMessage = "* Review Guestbook Postings"
else
RevDisCh = "checked"
RevEnCh = ""
RevMessage = "* Review Guestbook PostingsDisabled"
end if
GetNumOfReview RS, NumOfRev, temprev
GetNumOfDelete RS, NumOfDel, tempdel
InsertMenu menu_bar
InsertAdmin DRHTML
TemplateURL = RootDir & "_admin_main.html"
InsertTemplate
elseif Form("Submit") = "Confirm Delete" then
Set RS = Server.CreateObject("ADODB.Recordset")
RS.Open "guestbook", Conn, , adLockOptimistic, adCmdTable
DelHighNumber = 0
Do While Not RS.EOF
if len(RS("GuestName")) then
Number = RS("Num")
if Number > DelHighNumber then
DelHighNumber = Number
end if
RS.MoveNext
end if
Loop
DelHighNumber = DelHighNumber
RS.Close
RS.Open "guestbook", Conn, adOpenStatic, adLockOptimistic, adCmdTable
dim DelConfNum
Counter = 1
if not RS.EOF then
Counter = RS("Num")
end if
if not RS.BOF then
RS.MoveFirst
end if
do while Counter <= DelHighNumber and not RS.EOF
if len(Form("Del" & Counter)) then
ExitNum = 0
if Form("Del" & Counter) = "Yes" then
RS.MoveFirst
do while ExitNum = 0 and not RS.EOF
if RS("Num") = Counter then
RS.MovePrevious
RS.MoveNext
RS.Delete
ExitNum = 1
DelConfNum = 1
else
RS.MoveNext
end if
loop
end if
end if
Counter = Counter + 1
loop
RS.Close
Set RS = Nothing
GetAdminSettings Conn, RS, Review, Homepage
if DelConfNum = 1 then
ErrorMessage = " Selected postings have been deleted! "
else
ErrorMessage = " No postings have been deleted! "
end if
if Review = "Enabled" then
RevEnCh = "checked"
RevDisCh = ""
RevMessage = "* Review Guestbook Postings"
else
RevDisCh = "checked"
RevEnCh = ""
RevMessage = "* Review Guestbook PostingsDisabled"
end if
GetNumOfReview RS, NumOfRev, temprev
GetNumOfDelete RS, NumOfDel, temprev
InsertMenu menu_bar
InsertAdmin DRHTML
TemplateURL = RootDir & "_admin_main.html"
InsertTemplate
elseif Form("Submit") = "Delete" then
DRHTML = ""
Set RS = Server.CreateObject("ADODB.Recordset")
RS.Open "admininfo", Conn, , , adCmdTable
DelHighNumber = RS("DelHighNum")
RS.Close
Set RS = Nothing
Set RS = Server.CreateObject("ADODB.Recordset")
RS.Open "guestbook", Conn, , , adCmdTable
Counter = 1
if not RS.EOF then
Counter = RS("Num")
end if
if not RS.BOF then
RS.MoveFirst
end if
do while Counter <= DelHighNumber and not RS.EOF
if len(Form("Del" & Counter)) then
ExitNum = 0
do while ExitNum = 0 and not RS.EOF
if RS("Num") = Counter then
Number = RS("Num")
GuestName = RS("GuestName")
PostDate = RS("PostDate")
PostTime = RS("PostTime")
Message = RS("Message")
DelRevURL = RootDir & "_del_conf_mid.html"
InsertDelRev DelRevHTML
DRHTML = DRHTML & DelRevHTML
ExitNum = 1
else
RS.MoveNext
end if
loop
end if
Counter = Counter + 1
loop
RS.Close
Set RS = Nothing
InsertMenu menu_bar
TemplateURL = RootDir & "_del_conf_main.html"
InsertTemplate
elseif CA = 1 then
SQLState = "SELECT Num, GuestName, PostDate, PostTime, Message FROM guestbook ORDER BY Num DESC"
OrderMes = "Sort By: Newest | Oldest | Guest Name"
ViewGuestbook Conn, RS, TemplateURL, GuestName, Message, PostDate, PostTime, _
ErrorMessage, Number, SQLState, OrderMes, RevNumber
end if
end Sub
'-----------------------------------------------------------------------------------------
'
'-----------------------------------------------------------------------------------------
Sub InsertAdmin (DRHTML)
DRHTML = ""
Set RS = Server.CreateObject("ADODB.Recordset")
RS.Open "guestbook", Conn, , , adCmdTable
Do While Not RS.EOF
Number = RS("Num")
GuestName = RS("GuestName")
PostDate = RS("PostDate")
PostTime = RS("PostTime")
Message = RS("Message")
DelRevURL = RootDir & "_view_mid.html"
InsertDelRev DelRevHTML
DRHTML = DRHTML & DelRevHTML
RS.MoveNext
Loop
RS.Close
Set RS = Nothing
if tempdel = 0 then
ErrorMessage = "There no messages in the guestbook at this time."
end if
end Sub
Sub InsertDelRev (DelRevHTML)
Set TextStream = FSO.OpenTextFile(DelRevURL, 1)
DelRevHTML = TextStream.ReadAll
DelRevHTML = Replace(DelRevHTML, "$Number$", Number, 1, -1, 1)
DelRevHTML = Replace(DelRevHTML, "$RevNumber$", RevNumber, 1, -1, 1)
DelRevHTML = Replace(DelRevHTML, "$GuestName$", GuestName, 1, -1, 1)
DelRevHTML = Replace(DelRevHTML, "$PostDate$", PostDate, 1, -1, 1)
DelRevHTML = Replace(DelRevHTML, "$PostTime$", PostTime, 1, -1, 1)
DelRevHTML = Replace(DelRevHTML, "$Message$", Message, 1, -1, 1)
DelRevHTML = Replace(DelRevHTML, "$ErrorMessage$", ErrorMessage, 1, -1, 1)
DelRevHTML = Replace(DelRevHTML, "$DelSig$", DelSig, 1, -1, 1)
DelRevHTML = Replace(DelRevHTML, "$AddSig$", AddSig, 1, -1, 1)
TextStream.Close
Set TextStream = Nothing
end Sub
Sub InsertTemplate
Set TextStream = FSO.OpenTextFile(TemplateURL, 1)
HTML = TextStream.ReadAll
HTMLarray = Split(HTML, "$")
for each Section in HTMLarray
if Section = "GuestName" then
Response.Write(GuestName)
elseif Section = "PostDate" then
Response.Write(PostDate)
elseif Section = "PostTime" then
Response.Write(PostTime)
elseif Section = "Message" then
Response.Write(Message)
elseif Section = "ErrorMessage" then
Response.Write(ErrorMessage)
elseif Section = "RevEnCh" then
Response.Write RevEnCh
elseif Section = "RevDisCh" then
Response.Write RevDisCh
elseif Section = "RevMessage" then
Response.Write RevMessage
elseif Section = "Number" then
Response.Write Number
elseif Section = "Order" then
Response.Write OrderMes
elseif Section = "RevNumber" then
Response.Write RevNumber
elseif Section = "DelSig" then
Response.Write DelSig
elseif Section = "AddSig" then
Response.Write AddSig
elseif Section = "NumOfRev" then
Response.Write NumOfRev
elseif Section = "NumOfDel" then
Response.Write NumOfDel
elseif Section = "Username" then
Response.Write InsUser
elseif Section = "Password" then
Response.Write InsPass
elseif Section = "ExpirNum" then
Response.Write ExpirNum
elseif Section = "User" then
Response.Write User
elseif Section = "Pass" then
Response.Write Pass
elseif Section = "RootDir" then
Response.Write RootDir
elseif Section = "ScriptURL" then
Response.Write ScriptURL
elseif Section = "titlebar" then
Response.Write titlebar
elseif Section = "footerbar" then
Response.Write footerbar
elseif Section = "menu_bar" then
Response.Write menu_bar
elseif Section = "DRHTML" then
Response.Write DRHTML
elseif Section = "Homepage" then
Response.Write Homepage
elseif Section = "SubmitStatement" then
Response.Write SubmitStatement
elseif Section = "progRel" then
Response.Write progRel
elseif Section = "progUpd" then
Response.Write progUpd
else
Response.Write Section
end if
next
TextStream.Close
Set TextStream = Nothing
end Sub
%>