<%
Dim rsList, myconn
set myconn=server.createobject("adodb.connection")
myconn.open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & server.mappath("wz20090403.asp")
set rsList = server.CreateObject("ADODB.RecordSet")
rsList.open "select * from wz20090403 order by id desc ",myconn,1
response.write "
"
do while not rsList.eof
%>
- [<%=rsList("yourname")%>]: <%=rsList("opinion")%> <%=rsList("regdate")%>
<%
rsList.movenext
loop
rsList.close
myconn.close
set myconn=nothing
response.write "
"
%>