<%
set rstemp=Server.CreateObject("ADODB.Recordset")
'connectme="DSN=DSNHERE;uid=;pwd="
connectme="PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("comments.mdb")
rstemp.open "select * from tblComments ORDER BY dateposted DESC ", _
connectme,adopenstatic
%>
|
Thanx
for visiting the website - hope you enjoyed your visit. Feel free
to browse what others have had to say. If you would like to sign
the guestbook.
If
you just entered some comments and they haven't shown up, click
the Refresh/Reload button on your browser to make sure before
you enter them again or else they will show up twice! :-
|
|
<% Do while not rstemp.EOF %>
| ><%=rstemp("title")%> |
| <%=rstemp("comment")%> |
| ">
"><%=rstemp("name")%> -
<%=rstemp("dateposted")%> |
| |
<%
rstemp.movenext
loop
rstemp.close
set rstemp=nothing
%>
| |
| Add
Comments |
