<%@LANGUAGE=VBScript %>
<%option explicit
Dim fso,spath,PageData,Title,Speaker,ThisDir,File,arry(100,2)
Dim Tmp,n,m,p,oRs,filePath,oConn
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
Set oRs = oConn.Execute("Select * from ThuyetPhap where title<>null and path<>""TestDir0000"" order by title")
%>
Danh Sách Các Bài Thuyết Pháp
<%
Do while (Not oRs.eof)
response.write " " & oRs(2) & " " & "
" & chr(13)
oRs.MoveNext
Loop
oConn.Close
%>