<%@ LANGUAGE = VBScript%><%Option Explicit
Dim oConn,oRs,filePath,RecID, oAs,oCs
RecID=Request.QueryString("ID")
'RecId=38
' Create ADO Connection Component to connect
filePath = Server.MapPath("Adm_ThuyetPhapTestDB.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 Where UniqueID=""" & RecID & """")
Set oAs = oConn.Execute("Select * from Author")
Set oCs = oConn.Execute("Select * from Category order by Cat_Name")
%>
Edit Records
<%oConn.Close%>