活力十足的词语:ASP求救9999999999999

<%
Action = Request.QueryString("Action")
InfoID = Request.QueryString("leexii_Q")
If Action = "EditOK" Then
Leexii_Q_time=Request.Form("Leexii_Q_time")
Leexii_Q_htbianhao=Request.Form("Leexii_Q_htbianhao")
Leexii_Q_xiangmu=Request.Form("Leexii_Q_xiangmu")
Leexii_Q_gsname=Request.Form("Leexii_Q_gsname")
Leexii_Q_ren=Request.Form("Leexii_Q_ren")
Leexii_Q_jine=Request.Form("Leexii_Q_jine")
Leexii_Q_chengben=Request.Form("Leexii_Q_chengben")
Leexii_Q_ticheng=Request.Form("Leexii_Q_ticheng")
Leexii_Q_lirun=Request.Form("Leexii_Q_lirun")
Leexii_Q_beizhu=Request.Form("Leexii_Q_beizhu")

Sql="Update Leexii_Q Set Leexii_Q_time='"&Leexii_Q_time&"',Leexii_Q_htbiaohao='"&Leexii_Q_htbiaohao&"',Leexii_Q_xiangmu='"&Leexii_Q_xiangmu&"',Leexii_Q_gsname='"&Leexii_Q_gsname&"',Leexii_Q_ren='"&Leexii_Q_ren&"',Leexii_Q_jine='"&Leexii_Q_jine&"',Leexii_Q_chengben='"&Leexii_Q_chengben&"',Leexii_Q_ticheng='"&Leexii_Q_ticheng&"',Leexii_Q_lirun='"&Leexii_Q_lirung&"',Leexii_Q_beizhu='"&Leexii_Q_beizhu&"' Where leexii_Q="&InfoID
conn.execute(sql)
If err then
ShowMsg("信息发疾怀晒?&Leexii_Q_gsname)
Response.end()
End if
Call ErrInfo("信息发布成功!","Admin_anli_tupList.asp")

ElseIf Action = "Del" Then
Conn.execute("Delete from Leexii_Q Where Leexii_Q="&InfoID)
ErrInfo "恭喜,信息删除成功!",Cstr(Request.ServerVariables("HTTP_REFERER"))
Else
Set InfoRead = conn.execute("select * from Leexii_Q where Leexii_Q = "&InfoID)
If InfoRead.eof Or InfoRead.bof Then
ErrInfo "对不起,数据库中没有这条信息!",Cstr(Request.ServerVariables("HTTP_REFERER"))
Else
%>

以上这段程序是修改的。不知道怎么提交都是不成功的，是不是哪语法错了，本人初学ASP，高手们多指点指点啊