<% Dim con,rs,rs1,rs2,rs3,rs4 set con = Server.CreateObject("ADODB.Connection") Con.open("PROVIDER=SQLOLEDB;DATA SOURCE=216.185.52.60;UID=ajconin;PWD=ajc789n;DATABASE=ajconin") 'con.open ("DSN=civicsense;uid=ait;pwd=ait123;database=ait;") 'con.open ("DSN=ait;uid=sa;pwd=sa;database=ait;") 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") %>