语句结构问题

[ewai]

<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("new/data/ewai.asp")
buyao=request.form("buyao")
comment=request.form("comment")
strsql="select * from user1 where comment='"&comment&"'"
set rs=server.createobject("adodb.recordset")
rs.open strsql,conn,3,3
if rs.RecordCount>0 and buyao=("订阅") then
%>
<strong><font color="#FF0000"> 此邮箱已经订阅此项服务！! </font> </strong>
<%
response.end
else
set rs1=server.CreateObject("adodb.recordset")
sql1="select * from user1 where comment='"&comment&"'"
rs1.open sql1,conn,3,3
if rs1.RecordCount>0 and buyao=("取消") then
rs("buyao")=buyao
rs.update
end if
else **********加了这个出问题********
sql="insert into user1(comment,buyao)values('"+comment+"','"+buyao+"') "
conn.execute sql
end if
%>

结构哪错了？

[diya]

end if <-------多出了这个。
else **********加了这个出问题********

[diya]

还有在最后在补上个end if
<%
.....
if rs.RecordCount>0 and buyao=("订阅") then
%>
<strong><font color="#FF0000"> 此邮箱已经订阅此项服务！! </font> </strong>
<%
response.end
else
set rs1=server.CreateObject("adodb.recordset")
sql1="select * from user1 where comment='"&comment&"'"
rs1.open sql1,conn,3,3
if rs1.RecordCount>0 and buyao=("取消") then
rs("buyao")=buyao
rs.update
else **********加了这个出问题********
sql="insert into user1(comment,buyao)values('"+comment+"','"+buyao+"') "
conn.execute sql
end if
end if
%>

[pazll]

对，通上！判断语句用得太混乱了，你都看不清了吧！！！
以后写代码要注意缩进，就不会出现这样的问题了！！！

[ewai]

我想得到的效果首先检测库里是否有和刚提交的COMMENT相同的，如果有并且提交的BUYAO为订阅时提示重复了
然后检测如果检测库里有和刚提交的COMMENT相同并且提交的BUYAO为取消时，把库里的BUYAO值改为取消
否则 加入新COMMENT和BUYAO

应该怎么改？

[ttt2]

<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("new/data/ewai.asp")
buyao=request.form("buyao")
comment=request.form("comment")
strsql="select * from user1 where comment='"&comment&"'"
set rs=server.createobject("adodb.recordset")
rs.open strsql,conn,3,3
if rs.RecordCount>0 and buyao=("订阅") then
%>
<strong><font color="#FF0000"> 此邮箱已经订阅此项服务！! </font> </strong>
<%
response.end
else
set rs1=server.CreateObject("adodb.recordset")
sql1="select * from user1 where comment='"&comment&"'"
rs1.open sql1,conn,3,3

if rs1.RecordCount>0 and buyao=("取消") then
rs("buyao")=buyao
rs.update
end if
else **********加了这个出问题********
sql="insert into user1(comment,buyao)values('"+comment+"','"+buyao+"') "
conn.execute sql
end if
%>

[sailor001]

多了一个else

[ewai]

我的那个效果怎么实现？