<%@LANGUAGE="vbscript" CODEPAGE="1252"%> Marilyn Ainslie's Guestbook <% Function Zerofill(s) If s<10 then Zerofill = "0" & s else Zerofill = s end if end function %>

[Bypass navigation bar] Warning! You are using an old web browser that does not support modern web standards so I'm afraid that you will not see any formatting on this site. I strongly recommend that you read my guide to upgrading your browser and making your PC secure. Not only will websites look 'right' with a modern browser, but you will be far less vulnerable to viruses and other nasties.

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%>
<%=web%>
<%=Remarks%>

<% rs.MoveNext loop %> <% rs.Close set rs=nothing objconn.Close set objconn=nothing %>