set rs=server.createobject("adodb.recordset")
sql="select username,email,tel,zjhid from love_main where username='"&username&"' or tel='"&tel&"' or zjhid='"&zjhid&"' or email='"&email&"' "
rs.open sql,conn,1,1
if not rs.eof and not rs.bof then
errmsg=errmsg+"<br>"+"<li>您输入的用户名或邮箱或证件号或手机号已经被注册。"
rs.close
set rs=nothing
closeconn
founderr=true
exit sub
else
rs.close
set rs=nothing

谁能告诉我分开判断怎么分开,例如,手机号重了,就报手机号被注册,用户名重了,就被用户名已被注册,现在只要有一个出错就全报错...不知道是哪个..不容易给客户提示..

就是分开判断...

我的就是SQL

谢谢各位.

错误类型：
Microsoft VBScript 编译器错误 (0x800A0409)
未结束的字符串常量
/hao/reg.asp, line 299, column 91
sql="select (select count(id) from love_main where username='"&username&"') as unum,(select
------------------------------------------------------------------------------------------^

set rs=server.createobject("adodb.recordset")
sql="select (select count(id) from love_main where username='"&username&"') as unum,(select count(id) from love_main where email='"&email&"') as enum,(select count(id) from love_main where tel='"&tel&"') as tnum,(select count(id) from love_main where zjhid ='"&zjhid&"') as znum"
rs.open sql,conn,1,1
if rs(0)>0 then response.Write "<script language='javascript'>alert('用户名已经被注册!');history.go(-1);</script>"
response.End
else if rs(1)>0 then response.Write "<script language='javascript'>alert('邮箱已经被注册!');history.go(-1);</script>"
response.End
else if rs(2)>0 then response.Write "<script language='javascript'>alert('电话已经被注册!');history.go(-1);</script>"
response.End
else if rs(3)>0 then response.Write "<script language='javascript'>alert('这个证件号已经被注册!');history.go(-1);</script>"
response.End
else
rs.close
set rs=nothing

'验证通过，开始入库
set rs=Server.CreateObject("ADODB.recordset")
Rs.Open "select * from love_main",conn,1,3
rs.addnew
rs("username")=username
rs("password")=password
rs("sex")=sex
rs("birthday")=birthday
rs("zjh")=zjh
rs("zjhid")=zjhid
rs("oicq")=oicq
rs("tel")=tel
rs("msn")=msn
rs("email")=email
rs("loveb")=reg_loveb
rs("regip")=ip
rs("regtime")=now()
rs("refresh_time")=now()
rs("flag")=reg_flag
rs("endtime")=now()
rs("endip")=ip
rs.update
rs.close
'初始love币记录
call loveb_add(username,reg_loveb,"新用户注册时系统分配")
closeconn
end if
Microsoft VBScript 编译器错误 (0x800A03F6)
缺少 'End'
/hao/reg.asp, line 303
else if rs(1)>0 then response.Write "<script language='javascript'>alert('邮箱已经被注册!');history.go(-1);</script>"

if rs(0)>0 then response.Write "<script language='javascript'>alert('该用户名已经被注册!');history.go(-1);</script>"
elseif rs(1)>0 then response.Write "<script language='javascript'>alert('邮箱已经被注册!');history.go(-1);</script>"
elseif rs(2)>0 then response.Write "<script language='javascript'>alert('电话已经被注册!');history.go(-1);</script>"
elseif rs(3)>0 then response.Write "<script language='javascript'>alert('这个证件号已经被注册!');history.go(-1);</script>"
else
rs.close
set rs=nothing