<%
dim url, conn, kod, rs, count
url=request("kod")
'url="http://ufatop.ru"
'kod=31
if url<>"" then
	set conn = Server.CreateObject("ADODB.Connection")  
	conn.Mode = 0
	conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=d:\web\1gb.ru\hosted\ufatop-ru_e6e51610\data\data.mdb;"
	Kod=CLng(request("Kod"))       
	set rs=conn.Execute("select scount from stat where (Код =" & Kod & " and sdate=format (date(),'dd.mm.yy'))"  )
	if rs.eof then 
		conn.Execute("insert into stat (Код, sdate, scount, hits, users, loads) values (" & Kod & ", format (date(),'dd.mm.yy'), 1, 0, 0, 0) ")			
	else
		if isnull(rs.fields("scount")) then 
			count=1
		else
			count=rs.fields("scount")+1		
		end if	
		conn.Execute("update stat set scount=" & count & " where (Код =" & Kod & " and sdate=format (date(),'dd.mm.yy'))"  )
	end if	
	set rs=conn.execute("select url, users, hits, urlcount from sites where Код=" & Kod)	
	
	reiting=rs.fields("users")+rs.fields("hits")*1000+rs.fields("urlcount")*100
	conn.execute("update sites set reiting=" & reiting & " where Код=" & kod)
		
	url="http://" & rs.fields("URL")
	count=rs.fields("urlcount")+1
	conn.execute("update sites set urlcount=" & count & " where Код=" & Kod)
else 
	url="http://ufatop.ru"
end if
Response.Redirect (url) 
%>
go