<%OpenDB con, "GuestBook"%> GUESTBOOK

<% SQL = "SELECT * FROM tblGuestbook ORDER BY fldAuto DESC" Set rs = con.Execute(SQL) %> <% While Not rs.EOF varName = Trim(rs("fldName")) varEmail = Trim(rs("fldEmail")) varHomePage = Trim(rs("fldHomePage")) varCity = Trim(rs("fldCity")) varState = Trim(rs("fldState")) varCountry = Trim(rs("fldCountry")) varMessage = Trim(rs("fldMessage")) varTime = rs("fldTime") varDate = rs("fldDate") %> <% rs.MoveNext Wend rs.Close %>
WELCOME TO AJ's GUESTBOOK
Post A Message Now
<%=Replace(varMessage,vbCrLf,"
")%>
<%If varHomePage = "http://" OR varHomePage = "" Then%> <%=varName%> <%Else%> <%=varName%> <%End if%>  <<%=varEmail%>>
<%=varCity%>, <%if not varState="" Then%><%=varState%> <%end If%><%If not varCountry="" Then%><%=varCountry%> - <%End if%><%=varDate%> at <%=varTime%>