<%dbpath2=Server.MapPath("member.mdb")
Store=1
address=0
Ip=request.servervariables("REMOTE_ADDR")
LoginDay=date()&time()
LoginTime=time()
Set Conn1 = Server.CreateObject("ADODB.Connection")
Conn1.open "driver={Microsoft Access Driver (*.mdb)};dbq="& dbpath2
SQLstr="insert into Ad (Store,Address,Ip,LoginDay) values ('"&store&"','"&Address&"','"&Ip&"','"&LoginDay&"')"
conn1.execute(SQLstr)
conn1.close
Set Conn1 =nothing
%>
FOXCONN-Let's Create !!
