% const MaxPerPage=10
dim totalPut
dim CurrentPage
dim TotalPages
dim i,j
dim sql
dim rs
dim rstype
dim typesql
dim typeid,typename1
if not isempty(request("page")) then
currentPage=cint(request("page"))
else
currentPage=1
end if
typeid=request.QueryString("typeid")
connstr="DBQ="+server.mappath("news123.MDB")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
sql1="select * from type where typeid="+cstr(typeid)
Set rss= Server.CreateObject("ADODB.Recordset")
rss.open sql1,conn,1,1
tname=rss("type")
rss.close
set rss=nothing
%>