<%
dim objFSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Const FSOForReading = 1
Dim objTextStream
Set objTextStream = objFSO.OpenTextFile("c:\Playlist.m3u", FSOForReading)
Do while not objTextStream.AtEndOfStream
	if instr(objTextStream.ReadLine, ".mp3") then
		Response.Write	objTextStream.ReadLine & "<br>"
	end if
Loop
objTextStream.Close
set objTextStream = Nothing 
%>

<%
dim objFSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Const FSOForReading = 1
Dim objTextStream
Set objTextStream = objFSO.OpenTextFile("c:\Playlist.m3u", FSOForReading)
dim tmpStr
Do while not objTextStream.AtEndOfStream
        tmpStr = trim(objTextStream.Readline)
	if instr(tmpStr,".mp3") > 0 then
		Response.Write	tmpStr & "<br>"
	end if
Loop
objTextStream.Close
set objTextStream = Nothing 
%>