Dim objU2Conn as Object
Dim objRst1 as Object
Dim ss as String
Dim vID as String
Dim vFirstName as String
Dim vLastName as String
objU2Conn = Server.CreateObject("ADODB.Connection")
objU2Conn.Open ("DSN=DSN_Name;Uid=User_ID;Pwd=password")
objRst1 = Server.CreateObject("ADODB.Recordset")
ss = "select * from The_File "
objRst1.Open (ss, objU2Conn)
while Not objRst1.EOF
vID = objRst1.Fields("ID").Value
vFirstName = objRst1.Fields("CCC_FIRSTNAME").Value
vLastName = objRst1.Fields("CCC_LASTNAME").Value
objRst1.MoveNext
end while