<%
dim SqlString, cnnData, StdRS
Set cnnData= Server.CreateObject("ADODB.connection")
Set StdRS = Server.CreateObject("ADODB.RecordSet")
cnnData.Open "Provider = Microsoft.Jet.OLEDB.4.0;Data Source="&Server.Mappath("data.mdb")
SqlString ="SELECT * FROM feedback"
StdRS.Open SqlString,cnnData,1,3
%>
<%
DO WHILE NOT StdRS.EOF
%>
-----------------------------------------------------------------------------------------------
<%=StdRS("name")%> ==> <%=StdRS("email")%>
<%=StdRS("message")%>
|
<%
StdRS.MoveNext
LOOP
StdRS.Close
%>
|
|