提示错误:缺少ENDIF

 <% '保存修改过的留言信息
  Sub SaveEdit ()
     Dim name
  Dim email
  Dim qq
  Dim title
  Dim content
  Dim reply
 
  name =Trim(Request.Form("name"))
  email =Trim(Request.Form("email"))
  qq=Trim(Request.Form("qq"))
  title=Trim(Request.Form("title"))
  content=Trim(Request.Form("content"))
  reply=Trim(Request.Form("reply"))
 
  If title =""Or content ="" Or reply =""  Then
     Response.Write "<script>alert('留言主题、留言内容和留言回复不能为空!');</script>"
  Response.End
  elseif qq<>""And IsNumeric(qq) = False Then
     Response.Write"<script>alert('QQ号码只能为数字!');</script>"
  Response.End
  else
     Set Rs =Server.CreateObject("ADODB.Recordset")
  Sql="Select * From [info] Where id='"&id&"'"
  Rs.Open Sql,conn,3,3
  
  Rs("name")   =name
  Rs("email")  =email
    If qq <> "" Then
        Rs("qq")=qq
    end If
  Rs("title")  =title
  Rs("content") =content
  Rs("reply")   =reply
  
  Rs.Update
  Rs.Close
  Set Rs =nothing
  Response.Redirect "resolve1default.asp"
end if
End Sub

 

%>