<%@ LANGUAGE = VBScript%><%Option Explicit
Dim SourceDir, fso, Indent, nl, SrcDrLen, tmp, TitleFile, Title,oConn,oRs,filePath,RecID
nl=vbCrLf
Indent=0
Const ForReading = 1
RecID=Request.QueryString("ID")
SourceDir=Server.MapPath("./")
Set fso = CreateObject("Scripting.FileSystemObject")
Set SourceDir = fso.GetFolder(SourceDir)
SrcDrLen=Len(SourceDir.Path)+2
' 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 Where UniqueID='" & RecID & "'")
%>
Record Deleted
<%
oConn.Execute("Delete from ThuyetPhap0 Where UniqueID='" & RecID & "'")
oConn.Close
Response.Redirect "Adm_Listmaintenance.asp"
%>