<%
dim id, user, topic, meaasge, time
id=session("id")
user=request.form("user")
topic=request.form("topic")
meaasge=request.Form("message")
time1=session("now1")
if topic="" then
response.write "必须填写留言主题！！"
response.write "<a href='xieliu.asp'>返回重新填写！</a>"
elseif meaasge="" then
response.write "你还没有留言！"
response.write "<a href='xieliu'>返回重新填写！</a>"
else

Set ConnObj = Server.CreateObject("ADODB.Connection")
DbPath= Server.MapPath("db.mdb")
ConnObj.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DbPath
sql="insert into guset values('"&id&"','"&user&"','"
sql=sql&topic&"','"&meaasge&"','"&time&"')"
set rs=connobj.execute(sql)
response.redirect "index.asp"
end if
%>


我运行后变成这样了。怎么一回事，
我不知道怎么改。。帮我看看好吗？
Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

/iisHelp/common/500-100.asp，行242

Microsoft OLE DB Provider for ODBC Drivers 错误 '80040e07'

[Microsoft][ODBC Microsoft Access Driver] 标准表达式中数据类型不匹配。