广西状元:简单asp问题 请问这段代码错在哪里 一直出现缺少end的提示

<%
afen=request.form("afen")
bfen=request.form("bfen")
snipercardid=request.Form("snipercardid")
sfid=request.Form("sfid")
snipercardid_old=request.Form("snipercardid")
dim conn
dim connstr
dim db
db="guess!@#$%^&()_+.asp"
set rsc=server.createobject("adodb.recordset")
if request.Form("afen")="" or request.Form("bfen")="" then
response.write"您还没有填写比分"
if request.Form("snipercardid")="" or request.Form("sfid")="" then
response.write"资料填写不完整，请重新输入"
if snipercardid_new=snipercardid_old then
response.write"您已经参加过竞猜"
response.end
else
exec="insert into guess(afen,bfen,snipercardid,sfid,tel)values('"+afen+"',"+bfen+",'"+snipercardid+"','"+sfid+"','"+tel+"')"
conn.execute exec
conn.close
set conn=nothing
response.write "成功竞猜！"
end if
end if
end if
%>
<%
afen=request.form("afen")
bfen=request.form("bfen")
snipercardid=request.Form("snipercardid")
sfid=request.Form("sfid")
snipercardid=request.Form("snipercardid")
dim conn
dim rsc
dim connstr
dim db
db="guess!@#$%^&()_+.asp"
set coon=server.createobject("adodb.recordset")
if request.Form("afen")="" or request.Form("bfen")="" then
response.write"您还没有填写比分"
end if
if request.Form("snipercardid")="" or request.Form("sfid")="" then
response.write"资料填写不完整，请重新输入"
end if
set rsc=server.createobject("adodb.recordset")
sqlc="select * from guess"
rsc.open sqlc,conn,1,1
snipercardid_new=rsc("snipercardid")
if snipercardid_new=snipercardid then
response.write"数据已存在"
else
exec="insert into guess(afen,bfen,snipercardid,sfid,tel)values('"&afen&"',"&bfen&",'"&snipercardid&"','"&sfid&"','"&tel&"')"
conn.execute exec
conn.close
set conn=nothing
response.write "成功竞猜！"
response.end
end if
%>