Brandon Michael's GuestBook

Sign My GuestBook | Homepage

<% Set objConn = Server.CreateObject("ADODB.Connection") Set rsUsers = Server.CreateObject("ADODB.Recordset") Set rsCount = Server.CreateObject("ADODB.Recordset") strConnect = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.Mappath("guests.mdb") objConn.Open strConnect rsUsers.Open "Select * from Entries order by entry desc", objConn do while not rsUsers.eof Location=rsUsers("Location") Comments=rsUsers("Comments") Name=rsUsers("Name") DTStamp=rsUsers("Date") Entry=rsUsers("Entry") %>

Entry #<%=entry%>
Name: <%=Name%>
Location: <%=Location%>
Comments: <%=Comments%>
Date: <%=DTStamp%>

<% rsUsers.movenext loop rsUsers.close objConn.close set rsUsers=nothing set objconn=nothing %>