Microsoft VBScript 编译器异常 (0x800A03F6) 缺少 'End'

Microsoft VBScript 编译器错误 (0x800A03F6) 缺少 'End'
<!--DWLayoutTable-->
  <tr>
  <td width="60" height="21">&nbsp;</td>
  <td width="684">&nbsp;</td>
  <td width="56">&nbsp;</td>
  </tr>
  <tr>
  <td height="316">&nbsp;</td>
  <td valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
  <!--DWLayoutTable-->
  <tr> <form name="form1" method="post" action="resolve1write.asp?action=SaveWrite">
  <td width="163" height="41"></td>
  <td colspan="5" valign="top"><img src="image/df/zxdy.gif" alt="" width="433" height="37" /></td>
  <td width="77">&nbsp;</td>
  <td width="11">&nbsp;</td>
  1<img src="image/df/zxdy.gif" alt="" width="433" height="37" />
   
  <tr>
  <td height="20" colspan="7" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#999999">
  <!--DWLayoutTable-->
  <tr>
  <td width="209" height="20">&nbsp;</td>
  <td width="229" align="center" valign="middle">带<span class="STYLE5">*</span>项为必填项</td>
  <td width="246">&nbsp;</td>
  </tr>
   
   
   
   
   
   
  </table></td>
  <td>&nbsp;</td>
  </tr>
  <tr>
  <td height="230" colspan="7" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
  <!--DWLayoutTable-->
  <tr>
  <td width="187" height="27" valign="middle"><div align="right" class="STYLE2">
  <div align="right">留言者:</div>
  </div></td>
  <td width="486" valign="middle">&nbsp;<input type="text" name="name"></td>
  </tr>
  <tr>
  <td height="27" valign="middle"><div align="right" class="STYLE2">
  <div align="right">E-MAIL:</div>
  </div></td>
  <td valign="middle">&nbsp;<input type="text" name="email"></td>
  </tr>
  <tr>
  <td height="27" valign="middle"><div align="right" class="STYLE2">
  <div align="right">QQ号码:</div>
  </div></td>
  <td valign="middle">&nbsp;<input type="text" name="qq"></td>

  </tr>
  <tr>
  <td height="27" valign="middle"><div align="right" class="STYLE2">
  <div align="right"><span class="STYLE5">*</span>留言主题:</div>
  </div></td>
  <td valign="middle">&nbsp;<input type="text" name="title" size="50"></td>
  </tr>
  <tr>
  <td rowspan="2" align="right" valign="middle"><div align="right"><span class="STYLE6">*</span><span class="STYLE2">留言内容</span>:</div></td>
  <td height="25">&nbsp;</td>
  </tr>
  <tr>
  <td height="88" valign="top">&nbsp;<textarea name="content" cols="50" rows="7"></textarea></td>
  </tr>
   
  <tr>
  <td height="3"></td>
  <td></td>
  </tr>
  </table></td>
  <td>&nbsp;</td>
  </tr>
  <tr>
  <td height="21">
  <td width="67">  
  <td width="42" valign="top"><input type="submit" name="Submit" value="提交">
   
  <td width="38">  
  <td width="42" valign="top"><input type="reset" name="reset" value="重置">
   
  <td width="244">  
  <td>  
  <td></td>
  <tr>
  <td height="4">  
  <td>  
  <td>  
  <td>  
  <td>  
  <td>  
  <td>  
  <td></td>
  </form>
<% if Request("action")="SaveWrite" Then 
Call SaveWrite()
%>
<% '保存签写的留言信息
Sub SaveWrite ()
  Dim name
Dim email
Dim qq
Dim title
Dim content
 
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"))
 
If title =""Or content = "" Or reply ="" Then
Response.Write "<script>alert('留言主题、留言内容不能为空!');</script>"
'Response.End
else if 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] "
Rs.Open Sql,conn,3,3
 
Rs.AddNew
Rs("name") =name

Rs("email") =email
If qq <>"" Then
Rs("qq") =qq
End if
Rs("title") =title
Rs("content") =content
Rs("time") =Now()
Rs.Update
Rs.Close
 
Set Rs =nothing
Response.Redirect "resolve1default.asp"
End if
 End if
End Sub 
%> 

   
   
  错误类型：
Microsoft VBScript 编译器错误 (0x800A03F6)
缺少 'End'
/oswebsite/resolve1write.asp, 第 257 行

[解决办法]
又是长长的边幅。。。。。见红色部分，兰色仅仅参考


<% 
if Request("action")="SaveWrite" Then 
Call SaveWrite() 
end if
%> 

<% '保存签写的留言信息 
Sub SaveWrite () 
Dim name 
Dim email 
Dim qq 
Dim title 
Dim content 

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")) 

If title =""Or content = "" Or reply ="" Then 
Response.Write " <script>alert('留言主题、留言内容不能为空!'); </script>" 
'Response.End 
else if 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] " 
Rs.Open Sql,conn,3,3 

Rs.AddNew 
Rs("name") =name 
Rs("email") =email 
If qq <>"" Then 
Rs("qq") =qq 
End if 
Rs("title") =title 
Rs("content") =content 
Rs("time") =Now() 
Rs.Update 
Rs.Close 
  
Set Rs =nothing 
Response.Redirect "resolve1default.asp" 
End if
End Sub 
%>