%@ language="Vbscript" %>
<%
set cnndb=server.createobject("adodb.connection")
set rsinfo=server.createobject("adodb.recordset")
cnndb.open strconn
rsinfo.open" select ename,eemail,em from feedaccess order by ename asc" ,cnndb
%>
Mission
|
|
|
List of Guestbook Entries
<% Do While Not rsinfo.EOF %>
Complete name:
<%=rsinfo.Fields("ename")%>
E-mail:
<%=rsinfo.Fields("eemail")%>
Message:
<%=rsinfo.Fields("em")%>
<%
rsinfo.MoveNext
Loop
%>
|
Sign our
Guestbook here!
<%
rsinfo.close
cnndb.close
%> |