<%
dim hdp, flnk
dbpath="/2009/06/03/p.txt"
Set MyFileObject=Server.CreateObject("Scripting.FileSystemObject")
Set MyTextFile=MyFileObject.OpenTextFile(Server.MapPath(dbpath))
%>
<%
WHILE NOT MyTextFile.AtEndOfStream
hdp= MyTextFile.ReadLine
flnk= MyTextFile.ReadLine
%>