% dim typename dim type1 dim rst dim rst1 dim i,j dim sql set rst=server.createobject("adodb.recordset") set rst1=server.createobject("adodb.recordset") %>