<% dim conn1 set conn1 =SERVER.CREATEOBJECT("ADODB.CONNECTION") conn1.OPEN "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=c:\343\Nwind.mdb;" dim rsl,mysql set rs1=SERVER.CREATEOBJECT("ADODB.RECORDSET") mysql = "select * from Employees" rs1.OPEN mysql,conn1 RESPONSE.WRITE("

") do while not rs1.EOF RESPONSE.WRITE("

") RESPONSE.WRITE VBCRLF rs1.MoveNext loop RESPONSE.WRITE("
Employee IDLast NameFirst NameHire Date
"& rs1("EmployeeID") & "" & rs1("LastName") &" " & rs1("FirstName") & " " & rs1("HireDate") &"
") rs1.CLOSE conn1.CLOSE %>