<!-- METADATA TYPE="typelib"
              FILE="C:\Program Files\Common Files\System\ado\msado15.dll" -->
<%
  Dim objConn, rs, sql
  Set objConn = Server.CreateObject("ADODB.Connection")
  'objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("db2.mdb")

  SQLServer_Conn = "dsn=myweb;uid=webuser9;pwd=jiujin965;"
  'objConn.ConnectionTimeout = "1000"
  'objConn.CommandTimeout = "1000"
  objConn.Open SQLServer_Conn

  Set rs = Server.CreateObject("ADODB.Recordset")
  Set rs1 = Server.CreateObject("ADODB.Recordset")
  Set rs2 = Server.CreateObject("ADODB.Recordset")

%>