[求助]编译器错误 (0x800A03FD)
本人刚刚学习ASP不久，在学习过程中遇到以下问题，百思不得其解，请高手指点！谢谢！该程序本来运行得好好的，突然变成这样了，不晓得怎么回事！
Microsoft VBScript 编译器错误 (0x800A03FD)
缺少 'Case'
/zsw1/web/user/regsave.asp, 第 10 行
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)
POST 258 ??? /zsw1/web/user/regsave.asp
源代码：
<%
dim sql,rs,rs2
dim password
if request.form("username")<>empty then
sql="select * from [user] where [Username]='"&trim(request.form("Username"))&"'"
set rs=execute(sql)
dim ConnStr,conn2
Db = "../bbs/data/Dvbbs7.mdb"
ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(db)
Set conn2 = Server.CreateObject("ADODB.Connection")
conn2.open ConnStr
sql="select username from dv_user where username='"&trim(request.Form("username"))&"'"
set rs2=conn2.execute(sql)
if rs.eof and rs2.eof then
password=md5(trim(replace(request.form("password"),"'","")),16)
sql ="Insert Into [user] ([Username],[Password],problem,answer,usertype,[name],idcard,csny,qq,tel,sex,msn,city,email)Values("
sql=sql&"'"&trim(request.Form("username"))&"',"
sql=sql&"'"&Password&"',"
sql=sql&"'"&trim(request.Form("problem"))&"',"
sql=sql&"'"&md5(Request.form("answer"),16)&"',0,"
sql=sql&"'"&trim(request.Form("name"))&"',"
sql=sql&"'"&trim(request.Form("idcard"))&"',"
sql=sql&"'"&trim(request.Form("csny"))&"',"
sql=sql&"'"&trim(request.Form("qq"))&"',"
sql=sql&"'"&trim(request.Form("tel"))&"',"
sql=sql&trim(request.Form("sex"))&","
sql=sql&"'"&trim(request.Form("msn"))&"',"
sql=sql&"'"&trim(request.Form("city"))&"',"
sql=sql&"'"&trim(request.Form("email"))&"')"
execute(sql)
dim answer
dim Dvbbs,TruePassWord
Set Dvbbs = New Cls_Forum
TruePassWord=Dvbbs.Createpass
answer=md5(Request.form("answer"),16)
sql ="Insert Into [Dv_user] ([UserName],UserPassword,UserEmail,Userclass,TitlePic,UserQuesion,UserAnswer,TruePassWord,UserIM,UserSign,UserPost,UserGroupID,Lockuser,UserSex,UserBirthday,UserGroup,JoinDate,UserFace,UserWidth,UserHeight,UserLogins,LastLogin,userWealth,userEP,usercP,UserInfo,UserSetting,UserPower,UserDel,UserIsbest,UserFav,IsChallenge,UserLastIP)Values("
sql=sql&"'"&trim(request.Form("username"))&"',"
sql=sql&"'"&password&"',"
sql=sql&"'"&trim(request.Form("email"))&"',"
sql=sql&"'新手上路',"
sql=sql&"'level0.gif',"
sql=sql&"'"&trim(request.Form("problem"))&"',"
sql=sql&"'"&answer&"',"
sql=sql&"'"&TruePassWord&"',"
sql=sql&"'||||||||||||||||||',"
sql=sql&"' ',"
sql=sql&"0,"
sql=sql&"25,"
sql=sql&"0,"
sql=sql&request.Form("sex")&","
sql=sql&"' ',"
sql=sql&"' ',"
sql=sql&"'"&NOW()&"',"
sql=sql&"'images/userface/image1.gif',"
sql=sql&"32,"
sql=sql&"32,"
sql=sql&"1,"
sql=sql&"'"&NOW()&"',"
sql=sql&"1000,"
sql=sql&"200,"
sql=sql&"30,"
sql=sql&"'||||||||||||||||||||||||||||||||||||||||||',"
sql=sql&"'1|||0|||0',"
sql=sql&"0,"
sql=sql&"0,"
sql=sql&"0,"
sql=sql&"'陌生人,我的好友,黑名单',"
sql=sql&"0,"
sql=sql&"'"&Request.ServerVariables("REMOTE_ADDR")&"')"
conn2.execute(sql)
conn2.execute("UpDate Dv_Setup Set Forum_UserNum=Forum_UserNum+1,Forum_lastUser='"&trim(request.Form("username"))&"'")
Message "您已经成功注册.","login.asp"
else
Backup "对不起您选择的会员名已经存在！请选择其它会员名再试一次."
end if
else
response.Redirect("reg.asp")
end if
%>
