%
dim rs,sql,sel,typeid,linenumber,str,pages,records,currentpage,t
dim rstp,sqltp
set rstp=server.createobject("adodb.recordset")
sqltp="select * from type"
rstp.open sqltp,conn,3,2
set rs=server.createobject("adodb.recordset")
typeid=request("typeid")
%>