<%@ LANGUAGE = VBScript%><%Option Explicit
Dim SourceDir, fso, Indent, nl, SrcDrLen, tmp, TitleFile, Title,oConn,oRs,filePath
nl=vbCrLf
Indent=0
Const ForReading = 1
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 = SourceDir.Path & "\Audio\Adm_ThuyetPhap.mdb"
FilePath = Server.MapPath("/") & "\Audio\Adm_ThuyetPhap.mdb"
'Set oConn = Server.CreateObject("ADODB.Connection")
'oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & filePath
%>
Collect MP3 Paths
<%
response.write "SourceDir.Path:_____" & SourceDir.Path & "
"
response.write "filePath:_____" & filePath & "
"
response.write "SrcDrLen:_____" & SrcDrLen & "
"
response.write "mid(SourceDir.Path,SrcDrLen):_____" & mid(SourceDir.Path,SrcDrLen) & "
"
response.write "mid(filePath,SrcDrLen):_____" & mid(filePath,SrcDrLen) & "
"
%>