<% If Request.Form("From") <> "" And _ Request.Form("To") <> "" Then newurl = "http://" & Trim(Request.Form("url")) strurl = Replace(Mid(newurl,8,Len(newurl)),".","") tempname = Len(strurl) - 3 strurl = Left(strurl,tempname) count = 0 Set fs = CreateObject("Scripting.FileSystemObject") If fs.FileExists(Server.MapPath ("/ctrfiles/ads/clicks/") & "\" & strurl & ".txt") then Set a = fs.OpenTextFile(server.MapPath("clicks/" & strurl & ".txt"), 1, 0, 0) Do While a.AtEndOfStream <> TRUE strLine = Trim(Server.HTMLEncode(a.ReadLine)) strLine = Split(strLine, "|") if strLine(0) >= trim(Request.Form("From")) AND strLine(0) =< trim(Request.Form("To")) then count = count + 1 Response.Write(strline(0) & " " & strline(1) & " " & strline(2) & "
") end if Loop Response.write(count) a.Close Set fs = Nothing else Response.Write("File not found Check the URL") End if Else %> <% End If %>

Ad Click-Thru History

Domain:www.houseviewonline.com
From: [Choose one]
To: [Choose one]
< >
SuMoTuWeThFrSa