View guestbook
Please feel free to sign this guestbook yourself
<% Param = Request.QueryString("Param") Data = Request.QueryString("Data") %> <% Dim MM_connCVS_STRING, objConn MM_connCVS_STRING="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=D:\users\ainslieuk\public_html\GuestBook.mdb;" Set objConn=Server.CreateObject("ADODB.Connection") objConn.Open MM_connCVS_STRING ' Set conn = Server.CreateObject("ADODB.Connection") ' conn.open "DSN=GBook" ' conn.open "fileDSN=d:\users\ainslieuk\GBook.dsn","","" %> <% sql = "SELECT * FROM GBTable ORDER BY [PostDate] desc" If cstr(Param) <> "" And cstr(Data) <> "" Then sql = sql & " WHERE [" & cstr(Param) & "] = " & cstr(Data) End If Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql,objconn %> <% do while not rs.eof %> <% FDate = rs.Fields("PostDate").value PDate = year(FDate) & "-" & Zerofill(month(FDate)) & "-" & Zerofill(day(Fdate)) & " " & Zerofill(hour(FDate)) PDate = PDate & ":" & Zerofill(minute(FDate)) & ":" & Zerofill(second(FDate)) Pstr = rs.Fields("Poster").value Eml = rs.Fields("EMail").value Eml_despammed=replace(Eml,"@","") if len(rs.Fields("www").value)>0 and left(rs.Fields("www").value,4) <>"http" then web="http://"&rs.Fields("www").value else web = rs.Fields("www").value end if if right(rs.Fields("www").value,1) <>"]" then web = ""&web&"" end if if len(rs.Fields("www").value)>0 then web="Website :
"&web&"
"
else
web = ""
end if
'web = ""&rs.Fields("www").value&""
Remarks = rs.Fields("Comments").value%>
Name :
<%=Pstr%>
Email :
<%=Eml_despammed%>
Date :
<%=PDate%>
<%=Remarks%>
<% rs.MoveNext loop %> <% rs.Close set rs=nothing objconn.Close set objconn=nothing %>