<%
set conn=server.createobject("ADODB.Connection")
conn.open"Driver={Microsoft Access Driver (*.mdb)};DBQ="&Server.Mappath("../private/wb.mdb")
sql="select * from Question order by Qid desc"
set rs =server.createobject("ADODB.Recordset")
rs.open sql, conn, 3, 3
rs.pagesize=10
if request.querystring("page")="" then
currentpage=1
else
currentpage=CInt(Request.querystring("page"))
End if
with response
.write ""
end with
%>
