01.<% Option Explicit %>
02.<html>
03.<head>
04.<title>ThaiCreate.Com ASP & Microsoft Access Tutorial</title>
05.</head>
06.<body>
07.<%
08. Dim Conn,strSQL,objRec,arrField
09. Set Conn = Server.Createobject("ADODB.Connection")
10. Conn.Open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("mydatabase.mdb"),"" , ""
11. strSQL = "SELECT * FROM customer"
12. Set objRec = Server.CreateObject("ADODB.Recordset")
13. objRec.Open strSQL, Conn, 1,3
14. Response.write "<b>Table customer have "& objRec.Fields.Count &" Fields.</b><br>"
15. For Each arrField In objRec.Fields
16. Response.write arrField.Name & "<br>"
17. Next
18.
19. objRec.Close()
20. Conn.Close()
21. Set objRec = Nothing
22. Set Conn = Nothing
23.%>
24.</body>
25.</html>
