<%@LANGUAGE=VBScript %>
<%option explicit
Dim fso,spath,PageData,Title,Speaker,ThisDir,File,arry(100,2)
Dim Tmp,n,m,p,oRs,filePath,oConn,sort
Dim SourceDir
' 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
If Request.QueryString("sort")="Author" then sort="Author" Else sort="Title"
Set oRs = oConn.Execute("Select * from ThuyetPhap where title<>null and path<>""TestDir0000"" order by " & sort)
%>
Danh Sách Các Bài Thuyết Pháp
