<%
dim hdp, flnk
dbpath="/2010/02/04/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
%>