<%
'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"
%>
