这有两个问题，解决就结分！真心求教！

[pennyqu]

SQLstr="select * from messages where where id = "& cint(request("id"))
系统提示错误这句错误。我设计的id为access数据库的自动添加，在另一个表单通过Radio提交，但是我不知道错在那里。id是字符型的吗？应该怎么改啊？
<%

Dim Conn
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open"secret"
Set rs = Server.CreateObject("ADODB.Recordset")
set rs=conn.execute("select name from secret where name = '"& request("name") &"'")
if rs.eof and rs.bof then
set rs=conn.execute("insert into secret(name,rname,grade,passwd,gender,snum,cd,describe) values('"& request("name") &"','"& request("rname") &"','"& request("grade") &"','"& request("passwd") &"','"& request("gender") &"','"& request("snum") &"','"& request("cd") &",'"& request("describe") &")")
else
response.redirect "../erroraboutregister.asp"
end if
%>
要求判断有无重复呢称（name），如果没有就执行如下insert语句，不然就跳转到"../erroraboutregister.asp"
但是系统提示出错，大家帮我解决解决啊！

[Reve]

SQLstr="select * from messages where where id = "& cint(request("id"))
两个‘where’

[tylike]

两个‘where’

[postform999]

radio直接提交的是值，所以cint(request.form("id"))出错,可以在表单里添加一个隐藏域
比如:<input type=hidden name=idvalue value=1>,然后通过点击不同的radio改变其值，
id=cint(request.form("idvalue"))
第二个问题:
Conn.Open"secret"
Set rs = Server.CreateObject("ADODB.Recordset")
把这两句删了
把 set rs=conn.execute("insert into.....
去掉 set rs=