dim connstr,myconn,rs
connstr="provider=sqloledb;initial catalog=database;data source=127.0.0.1;uid=sa;pwd="
set myconn=server.createobject("adodb.connection")
set rs=server.createobject("adodb.recordset")
set rs1=server.createobject("adodb.recordset")
set rs2=server.createobject("adodb.recordset")
myconn.open connstr
%>