这是我做的代码，请帮我看看
<%

Connstr="DBQ="+server.mappath("db1.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};DriverId=25;"
set conn=server.createobject("adodb.connection")

conn.open Connstr

sqlstr="select * from ma where a="&request("m")
set rs=server.CreateObject("adodb.recordset")
rs.open sqlstr,conn,1,3
if rs.eof then
rs.addnew
select case len(request("g"))
case 15
rs("a")=request("a")
rs("b")=request("b")
rs("c")=request("c")
rs("e")=request("e")

rs("f")=request("f")
rs("g")=request("g")
rs("h")=request("h")
rs("i")=request("i")
rs("j")=request("j")
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
response.write "<script>window.alert('恭喜\n\n注册成功，点击返回');window.location.href='kehu.asp'</script>"

case 18
rs("a")=request("a")
rs("b")=request("b")
rs("c")=request("c")
rs("e")=request("e")
rs("f")=request("f")
rs("g")=request("g")
rs("h")=request("h")
rs("i")=request("i")
rs("j")=request("j")
rs.update
else
request.write"用户名已经存在"
rs.close
set rs=nothing
conn.close
set conn=nothing
response.write "<script>window.alert('恭喜\n\n注册成功，点击返回');window.location.href='kehu.asp'</script>"
case else
response.write "<script>window.alert('注册失败，请输入合法的身份证号码');window.location.href='zhuc1.asp'</script>"
end select

end if
%>

出错是 ：

Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

/iisHelp/common/500-100.asp，行242

Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

/zhuc2.asp，行43

else
^

rs("f")=request("f")
rs("g")=request("g")
rs("h")=request("h")
rs("i")=request("i")
rs("j")=request("j")
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
response.write "<script>window.alert('恭喜\n\n注册成功，点击返回');window.location.href='kehu.asp'</script>"

case 18
rs("a")=request("a")
rs("b")=request("b")
rs("c")=request("c")
rs("e")=request("e")
rs("f")=request("f")
rs("g")=request("g")
rs("h")=request("h")
rs("i")=request("i")
rs("j")=request("j")
rs.update
这个是判断有效的身分证的，一个15位，还有个18位，如果不是15或者18位数字就不能注册成功

<%

Connstr="DBQ="+server.mappath("db1.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};DriverId=25;"
set conn=server.createobject("adodb.connection")

conn.open Connstr
if session("a")=request("a") then
sqlstr="select * from ma"
set rs=server.CreateObject("adodb.recordset")
rs.open sqlstr,conn,1,3

rs.addnew
select case len(request("g"))
case 15
rs("a")=request("a")
rs("b")=request("b")
rs("c")=request("c")
rs("e")=request("e")

rs("f")=request("f")
rs("g")=request("g")
rs("h")=request("h")
rs("i")=request("i")
rs("j")=request("j")
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
response.write "<script>window.alert('恭喜\n\n注册成功，点击返回');window.location.href='kehu.asp'</script>"

case 18
rs("a")=request("a")
rs("b")=request("b")
rs("c")=request("c")
rs("e")=request("e")
rs("f")=request("f")
rs("g")=request("g")
rs("h")=request("h")
rs("i")=request("i")
rs("j")=request("j")
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
response.write "<script>window.alert('恭喜\n\n注册成功，点击返回');window.location.href='kehu.asp'</script>"
case else
response.write "<script>window.alert('注册失败，请输入合法的身份证号码');window.location.href='zhuc1.asp'</script>"
end select
else
response.write"用户名已经存在"
end if
%>

我现在改成这样的了现在都变成了都是不能注册了，不一样和一样的都不可以注册了~

用javascript语言吗？上一个页面有判断的，听他们说很简单的，可是我就是没做的起来，郁闷啊，水平太菜了，还得多研究研究ASP语言。

呵呵，谢谢，虽然我看的不是很懂，看样子还是做比较麻烦点的吧，我做个搜索吧，希望在网上注册的人别那么不自觉，明明知道是重复的他还要去挑战下，那 我就真的晕死了