ASP DAtA BASE CODE

<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open "D:/ldc/Employee.mdb"

response.write("Connection connected" & "<br>")
set rs=Server.CreateObject("ADODB.recordset")
rs.Open "Select * from Emp", conn

do until rs.EOF
  for each x in rs.Fields
    Response.Write(x.name)
    Response.Write(" = ")
    Response.Write(x.value & "<br>")
  next
  Response.Write("<br>")
  rs.MoveNext
loop

rs.close
conn.close
%>