<%@ LANGUAGE = VBScript%><%Option Explicit Dim SourceDir, fso, Indent, nl, SrcDrLen, tmp, TitleFile, Title,oConn,oRs,filePath,RecID, oAuthors Dim oCats nl=vbCrLf Indent=0 Const ForReading = 1 RecID=Request.QueryString("ID") 'RecId=38 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 & """") Set oAuthors = oConn.Execute("Select * from Author") Set oCats = oConn.Execute("Select * from Category") %> <% Do while (Not oCats.eof) response.write oCats("id") & "-" & oCats("Cat_Name") & "
" Loop %>

Địa Chỉ:	<%=oRs("Path")%> - UniqueID: <%=oRs("UniqueID")%>
Tựa Bài:	">
Giảng Sư:	<%Do while (Not oAuthors.eof)%> " <%if (oRs("AuthorId")=oAuthors("id")) then %> selected="selected" <%end if%> ><%=oAuthors("Author_Name")%> <%oAuthors.MoveNext%> <%Loop%>
Phân Loại:	<%Do while (Not oCats.eof)%> " <%if (oRs("CatID")=oCats("id")) then %> selected="selected" <%end if%> ><%=oCats("Cat_Name")%> <%oCats.MoveNext%> <%Loop%>
Nơi:	">
Ngày:	">
Nguồn:	">
Ghi Chú:	">
Ngày Đăng:	">

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

<%oConn.Close%>