% 'on error resume next %> <% 'iipp=Request.ServerVariables("REMOTE_ADDR") %> <% 'if request("fmweb")<>"online" then ''if left(iipp,3)="210" or left(iipp,3)="61" or request("fmweb")<>"online"then 'response.redirect "http://www.travelonline.com.tw" 'end if %> <% 'on error resume next dbpath=server.mappath("data/sic.mdb") set conna=server.createobject("adodb.connection") conna.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DbPath sqla = "select * from sic where 識別碼=1" set rsa = Server.CreateObject("ADODB.Recordset") 'rsa.open sqla, conna, adOpenKeyset,adLockReadOnly RSa.Open sqla, Conna, adopenkeyset,adlockpessimistic rsa.movefirst rsa("sicno")=rsa("sicno")+1 if cdate(rsa("todayy"))<>date() then rsa("sicno1")=0 rsa("todayy")=date() else rsa("sicno1")=rsa("sicno1")+1 end if rsa1=rsa("sicno") rsa2=rsa("sicno1") rsa.update Set Conn0 = Server.CreateObject("ADODB.Connection") conn0.open "driver={SQL Server};Database=adver;Server=210.64.115.50;uid=jamest;password=8838" %>