<% '-- Get any message sent strMessage = Trim(Lcase(Request.QueryString("msg"))) %> Clann Arthur : Guestbook

 

 

<% Set objCon = Server.CreateObject("ADODB.Connection") objCon.Open Application("strConnection") Set objRst = objCon.Execute("qryGuestList") Do While objRst.EOF=False And objRst.BOF=False Response.Write " from " & objRst("GuestName") & " on " & objRst("GuestDate") & "
" strBody = objRst("GuestBody") strBody = Replace(strBody, vbCrLf, "
") Response.Write " 
" & strBody & "
 
" & vbCrLf objRst.MoveNext Loop %>
Back to Visitor Book