<% dbpath = server.mappath("db/guestbook.mdb") connString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + dbpath set oConn = server.createobject("adodb.connection") oconn.Open connString sql = "Select * from guestbooktbl order by signdate desc" set ORS = oconn.execute(sql) if ORS.eof then response.write "Welcome to the guestbook for Henry And Jenny. Please Sign it." ors.close set ors = nothing 'closedbConnection else ors.movefirst while not ors.eof%> ● [ <%=returnmonth(month(ors("signdate")))%>. <%=day(ors("signdate"))%>, <%=year(ors("signdate"))%> ] From: <%=ors("name")%> Email: <%=ors("email")%> Comment:<%=chr(13)%> <%=ors("comment")%><%=chr(13)%><%=chr(13)%><% ors.movenext wend end if oConn.close set oConn = nothing %>

Sign Our Guestbook