<%@ LANGUAGE = VBScript%><%Option Explicit Dim SourceDir, fso, Indent, nl, SrcDrLen, tmp, TitleFile, Title,oConn,oRs,filePath,RecID, oAuthors 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 id=" & RecID) Set oAuthors = oConn.Execute("Select * from Author") %>

Địa Chỉ:	<%=oRs(1)%>
Tựa Bài:
Giảng Sư:	<%Do while (Not oAuthors.eof)%> selected="selected" <%end if%> ><%=oAuthors(1)%> <%oAuthors.MoveNext%> <%Loop%>
Nơi:
Ngày:
Nguồn:
Ghi Chú:
Ngày Đăng:

> or Trở Về Danh Sách Thuyết Pháp