asp 跳转 能不能执行到语句

VBScript code:

<%
yeara = request.Form("yeara")
quarter = request.Form("quarter")

set rss=server.createobject("adodb.recordset")
sql="select * from TG_sincere where quarter ='"&quarter&"' and yeara='"&yeara&"'"
rss.open sql, conn, 1, 1
if not rss.eof then
%>
<script language=javascript>
alert('您已导入该月份数据，请不要重复导入！\r\n请点击确定按钮！');
history.go(-1)
</script>
<%
else


Set cn = Server.CreateObject("ADODB.Connection")
cn.Provider = "Microsoft.Jet.OLEDB.4.0 "
cn.ConnectionString = "Data Source=" & Server.MapPath("货款.xls") & ";" & _
"Extended Properties=Excel 8.0;"
cn.Open


set rs=server.createobject("adodb.Recordset")
rs.open"TG_sincere",conn, 1, 3

'读取数据.
set rsRead=server.CreateObject("ADODB.Recordset")
rsRead.Open "select * from [货款$]",cn,1,1
do until rsRead.EOF

'写入数据库.

'rs.Execute("insert into TG_sincere(branch,unit,balance,two,three,twenty,planthing,yeara,quarter)Values('"& rsRead.Fields("部门")&"','" &rsRead.Fields("单位名称") & "','" &rsRead.Fields("发货余额") & "','&