<!--#include file="../conn.asp" -->
<!-- #include file="../cls_main.asp" -->
<%
MyDbPath = "../"
dim i,Rs,ishion
i=1
Set ishion = New Cls_main
If IsSqlDataBase = 1 then
	Set Rs = ishion.Execute("select Url,DateAndTime from ishion_Down_Address where SiteID=1 and datediff(d,DateAndTime,GetDate())=0")
Else
	Set Rs = ishion.Execute("select Url,DateAndTime from ishion_Down_Address where SiteID=1 and datediff('d',DateAndTime,now())=0")
End IF
do while not rs.eof
Response.Write(Trim(Request.Form("url"))&rs(0)&"<br>")
if i mod 3000 = 0 then Response.Write("<br>")
i=i+1
rs.movenext 
loop
set rs=nothing
Set ishion=nothing
 %>

