<%
Set conn = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("../../nicecounterdatav1.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};pwd=con123;dbq=" & DBPath
SET rs = Server.CreateObject("ADODB.Recordset")
rs.Open "Select * From counters where id=27 " , conn,1,3
lastip = rs("lastip")
newIP = REQUEST.servervariables("REMOTE_ADDR")
IF CSTR(rs("date")) <> CSTR(date()) THEN
rs("date") = date()
rs("yesterday") = rs("today")
rs("bmonth") = rs("month")
rs("month") = 1
rs("today") = 1
rs.Update
END IF
IF lastip <> newIP THEN
rs("total") = rs("total") + 1
rs("TODAY") = rs("today") + 1
rs("month") = rs("month") + 1
rs("lastip") = newIP
rs.Update
END IF
%>
POLYTRONICS TECHNOLOGY CORPORATION-contact us
POLYTRONICS
TECHNOLOGY CORPORATION
6F-3, No.9 Prosperity RD. I,
SBIP,Hsin-Chu, Taiwan, 300
TEL: 886-3-5643931 FAX: 886-3-5644624
