<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Dim cLocation 'As String
Dim rsComments 'As ADODB.RecordSet
Dim cDomainName 'As String
Dim cName 'As String
Dim cSignDate 'As String
Dim cComments 'As String
Dim adoCon_String
adoCon_String = "dsn=cnailor-GuestBook;"
cDomainName = Request.QueryString("site")
if cDomainName = "" then
cDomainName = "Raven"
end if
Set rsComments = Server.CreateObject("ADODB.Recordset")
rsComments.ActiveConnection = adoCon_String
rsComments.CursorType = 0
rsComments.CursorLocation = 2
rsComments.LockType = 1
if cDomainName = "Raven" then
rsComments.Open("SELECT * FROM GuestBook WHERE Domain = 'Raven' ORDER BY DateAdded DESC")
elseif cDomainName = "Tallen" then
rsComments.Open("SELECT * FROM GuestBook WHERE Domain = 'Tallen' ORDER BY DateAdded DESC")
else
rsComments.Open("SELECT * FROM GuestBook WHERE Domain = 'History' ORDER BY DateAdded DESC")
end if
%>
Guest Comments for <%=cDomainName%>
<%
if cDomainName = "Tallen" then
Response.Write(" ")
Response.Write("
Here are the comments other guests have added, the most recent first (which should be yours if you got here from the "Sign Book" page. Please use your Browser's back button to get back to where
you started...
Name
Date
To
Comments
<%
Do While Not rsComments.Eof
Response.Write("
" )
Response.Write("
" & rsComments("Name") & "
")
Response.Write("
" & rsComments("DateAdded") & "
")
Response.Write("
" & rsComments("Domain") & "
")
Response.Write("
" & rsComments("Comments") & "
")
Response.Write("
")
rsComments.MoveNext
Loop
%>
<%
if cDomainName = "Tallen" then
Response.Write("