<% option explicit dim conn dim rs dim sql dim bgc bgc = "FFFFFF" Set conn = Server.CreateObject("ADODB.Connection") conn.Open("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" & server.mappath("_Private/guestbook.mdb") & ";") sql = "Select * From [guests] Order By [SignUpDate] Desc" set rs = conn.execute(sql) %> Awesome Hunting
Sunrise/Sunset Times
Venison Recipes
Whitetail Information
Waterfowl Information
Hunting Stories
Nashville, TN
 

GuestBook

<% response.write "" do while not rs.eof response.write "" if bgc = "#FFEED9" then bgc = "#FFFFFF" else bgc = "#FFEED9" end if rs.movenext loop response.write "
[" & rs("SignUpDate") & "] " & rs("Name") & " - " & rs("Location") & "
" response.write "" & rs("URL") & "
" response.write rs("Comment") & "
" %>
<% rs.close conn.close set rs = nothing set conn = nothing %>