% session.Timeout = 30 dim sql,rs,rs1,rs2,rs3,rs4 Set rs=server.createobject("adodb.recordset") Set rs1=server.createobject("adodb.recordset") Set rs2=server.createobject("adodb.recordset") Set rs3=server.createobject("adodb.recordset") Set rs4=server.createobject("adodb.recordset") %>