Microsoft VBScript 编译器错误 错误 '800a0408'

Question

<% @LANGUAGE = "VBScript" %> 
<%
Name=request("name")
Email=request("Email")
Memo=request("memo")
if name="" or Email="" or memo="" then
   response.write"不能为空"
   response.end 
end if
dim Connstr,conn,SQL
'Connstr="DNS=wj"
set conn=Server.CreateObject("adodb.connection")
conn.ConnectionString="Driver={Microsoft Access Driver (*.mdb)};"&_"DBQ=留言板.mdb;"
conn.open
SQL="insert into 留言版(姓名,E-mail,内容) VALUES('&name&','&email&','&memo&')"
response.write(SQL)
conn.Execute(SQL)
conn.close()
response.redirect("display.asp") %>asp连接数据库
请问高手是怎么解决呢？
再下无比感谢啊

Answer 1

不好意思啊 
刚才敲错了 
是这样的 
<% @LANGUAGE = "VBScript" %> 
<% 
Name=request("name") 
Email=request("Email") 
Memo=request("memo") 
if name="" or Email="" or memo="" then 
  response.write"不能为空" 
  response.end 
end if 
dim Connstr,conn,SQL 
'Connstr="DNS=wj" 
set conn=Server.CreateObject("adodb.connection") 
conn.ConnectionString="Driver={Microsoft Access Driver (*.mdb)};"&_"DBQ=留言板.mdb;" 
conn.open 
SQL="insert into 留言版(姓名,E-mail,内容) VALUES('"&name&"','"&email&"','"&memo&"')" 
response.write(SQL) 
conn.Execute(SQL) 
conn.close() 
response.redirect("display.asp") %> 
也提示错误