<%OpenDB con, "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 %>

TRMP Database Guestbook

Post A Message Now       Back to TRMP Database

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