<%
IPADRES=Request.ServerVariables("REMOTE_ADDR")
SAYFAURL=Request.ServerVariables("PATH_INFO")
if Trim(IPADRES)="10.20.1.1" then
mySQL="UPDATE SAYAC SET IC = IC+1 where SAYFA=10;"
else
mySQL="UPDATE SAYAC SET DIS = DIS+1 where SAYFA=10;"
end if
mySQL_DPT="select * from SAYAC where SAYFA=10;"
set conntemp=server.createobject("adodb.connection")
conntemp.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=D:\Inetpub\wwwroot\web\sayac\SAYAC.MDB"
set rstemp=conntemp.execute(mySQL_DPT)
conntemp.execute(mySQL)
%>
