ADO Recordset

<%

set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open "e:/vyomworld/vyom.mdb"
set rs=Server.CreateObject("ADODB.recordset")
rs.Open "Employee", conn

%>

<%

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

%>

<%

set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open "c:/vyomworld/vyom.mdb"
set rs=Server.CreateObject("ADODB.recordset")
rs.Open "Select * from Employee", conn

%>

<%

set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open "c:/vyomworld/vyom.mdb"
set rs=Server.CreateObject("ADODB.recordset")
rs.Open "Select * from Employee", conn
for each x in rs.fields
response.write(x.name)
response.write(" = ")
response.write(x.value)
next

%>