asp写access

<%
'提交留言

Dim user,ip,writetime,info,other
user=Request("user")
info=Request("info")
'other=Request("other")

If ip="" then ip=Request.ServerVariables("REMOTE_ADDR")
writetime=now()

DBPath=Server.MapPath("myData.mdb")    '数据库存放路径
Strconn = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & DBPath     '连接字符串
Set conn = Server.CreateObject("ADODB.Connection")    '新建一个连接 
conn.open Strconn

'strSQL="INSERT INTO TBL_LYB(User,IPAddress,Time,Info,Other) VALUES('"&user&"','"&ip&"','"&time&"','"&info&"','"&other&"')"
strSQL="INSERT INTO TBL_LYB(User,IPAddress,wTime,Info) VALUES('"&user&"','"&ip&"','"&writetime&"','"&info&"')"
conn.execute strSQL

Response.Write ("&writeResult=OK")

conn.close
set conn=nothing

%>