<%@ Language=VBScript %> <% sql = "select * from tblGuestbook order by SubmitDate desc" set PPConn = server.createobject("adodb.connection") PPConn.Open "DBQ=" & Server.Mappath("../db/patrickpearse") & ";Driver={Microsoft Access Driver (*.mdb)};" 'PPConn.open "patrickpearsedb","","" Set GUESTBOOK_rs = Server.CreateObject("ADODB.Recordset") GUESTBOOK_rs.open sql, PPConn, adOpenStatic %>

<% Do While NOT GUESTBOOK_rs.EOF%> <% strPosted = WeekDayName(WeekDay(Day(GUESTBOOK_rs("SubmitDate"))), False, vbSunday) & ", " & MonthName(Month(GUESTBOOK_rs("SubmitDate"))) _ & " " & Day(GUESTBOOK_rs("SubmitDate")) & ", " & Year(GUESTBOOK_rs("SubmitDate")) %> <% GUESTBOOK_rs.MoveNext Loop %>

Click here to Post a Message
This is not a place for Advertisments or Political statements. We reserve the right to remove any Guestbook posting!
Name:	<%=GUESTBOOK_rs("Name")%>
Email:	<%=GUESTBOOK_rs("Email")%>
From:	<% if GUESTBOOK_rs("City") <> "" then %> <%=GUESTBOOK_rs("City")%>, <% end if %> <% if GUESTBOOK_rs("State") <> "" then %> <%=GUESTBOOK_rs("State")%>   <% end if %> <% if GUESTBOOK_rs("Country") <> "" then %> <%=GUESTBOOK_rs("Country")%> <% end if %>
Posted:	<%=strPosted%>
Comment:	<%=GUESTBOOK_rs("Comment")%>