<%@ LANGUAGE = VBScript%><%Option Explicit
Dim oConn,oRs,filePath,RecID, oAs,oCs,Index
RecID=Request.QueryString("ID")
'RecId=38
' Create ADO Connection Component to connect
filePath = Server.MapPath("Adm_ThuyetPhap.mdb")
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & filePath
Set oRs = oConn.Execute("Select * from ThuyetPhap")
%>
List All Fields from Record Set
<%'================================================================
'ASP code to display all fields of a recordset in html table
Response.Write "
"
Do while (Not oRs.eof)
Response.Write "
"
For Index=0 to (oRs.fields.count-1)
Response.Write "