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


 

Viewers/devotees can download material for purely personal and spiritual purpose and not for commercial use.