<%@ 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 & "'") %> Sẽ xóa record sau đây
Địa Chỉ: <%=oRs("Path")%>
Tựa Bài: <%=oRs("Title")%>
Giảng Sư: <%=oRs("Author")%>
Nơi: <%=oRs("Location")%>
Ngày: <%=oRs("Date")%>
Nguồn: <%=oRs("Source")%>
Ghi Chú: <%=oRs("Note")%>
">Khẳng Định Xóa hoặc Trở Về Danh Sách Thuyết Pháp <%oConn.Close%>