写个会员注册的代码但遇到了一个问题先把部分代码粘出来吧：
<%call checkid()%>

<%call saveuser()%>
<%
end select%>
sub saveuser()
if session("regtimes")=1 then
response.Write "<table width=100% border=0 cellspacing=0 cellpadding=0 align=center><tr><td height=300 align=center><font color=red>对不起，您刚注册过用户，请稍后再进行注册!</font></td></tr></table>"
response.End
end if
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from [user] where UserEmail='"&trim(request("useremail"))&"' or UserName='"&trim(request("username"))&"'or xian='"&trim(request("xian"))&"'",conn,1,1
if rs.recordcount>0 then
call usererr()
rs.close
else
%>
'以上没有完全粘出，以下一样
<%
FUNCTION checkid()

on error resume next
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("sfz.mdb")
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr 
xian=request("xian")
lenx=len(xian)
if xian<>"" then

if not IsNumeric(left(xian,15)) and xian<>"" then

response.write "<script>alert('请输入正确身份证号码!');window.history.back();</script>"
end if 

if lenx=15 or lenx=18 then 
if lenx=15 then 
yy="19"&mid(xian,7,2)
mm=mid(xian,9,2)
dd=mid(xian,11,2)
aa=mid(xian,15,1)
end if 
if lenx=18 then
yy=mid(xian,7,4)
mm=mid(xian,11,2)
dd=mid(xian,13,2)
aa=mid(xian,17,1)
end if 
if cint(mm)>12 or cint(dd)>31 then

response.write "<script>alert('请输入正确的身份证号码!');window.history.back();</script>"
end if 
else

response.write "<script>alert('请输入正确的身份证号码!');window.history.back();</script>"
end if 


set rs=server.createobject("adodb.recordset")
sql="select * from sfz where bm="&left(xian,6)
rs.open sql,conn,3,3

if not rs.eof then



if aa mod 2=0 then 
xb="女"
else
xb="男"
end if 



if lenx=18 then
if mid(xian,18,1)<>cstr(sfzjy(xian)) then
response.write "</td></tr><td bgcolor=ffffff>"

response.write "<script>alert('请输入正确的身份证号码!');window.history.back();</script>"
else
response.End
' response.write "</td></tr><td bgcolor=ffffff>"
response.write "结 果：身份证号码校验为合法号码!" 
end if
else
response.write "</td></tr><td bgcolor=ffffff>"
response.write "新身份证："&left(xian,6)&"19"&right(xian,9)&cstr(sfzjy(xian))
end if
'以下判断是否为空
if lenx=0 then 

response.write "<script>alert('您没有身份证吗，号码呢？');window.history.back();</script>"
end if
end if 
rs.close
set rs=nothing
conn.close
set conn=nothing
end if 
end function
%>

遇到的问题是:
1、提交上来的身份证要是正确的话代码只能执行到response.write"结 果：身份证号码校验为合法号码!" 
后面不能跳到<%call saveuser()%>
2、提交上来的身份证要是不正确的话它就能提示“请输入正确的身份证号码!”。
这个该怎么解决呢？？