推荐注册和游客注册怎么同时实现？

[qq_30177741]

现在网站是 推荐注册，只有会员才能添加新会员，生成数据表单。
希望增加一个游客注册申请

这是判断代码
<%
If G.MNum(Session("ID"))=False Then
ErrStr="<script>"
ErrStr=ErrStr&"alert('温馨提示：\n\n您操作方式不正确或者已经超时，\n请检验后再试！\n错误位置：1');"
ErrStr=ErrStr&"history.back(-1);"
ErrStr=ErrStr&"</script>"
G.TS(ErrStr)
End If
Dim id,UserID,UserName,Password,PassOpen,NickName,BankName,BankCard,BankProvince,BankCity,BankAddress,UserCode,UserAddress,UserPost,UserTel,ADT,TreePlace,FatherID,FatherName,ReID,ReName,isPay,isLock
Dim tID,tUserID,tUserName,tPassword,tPassOpen,tNickName,tBankName,tBankCard,tBankProvince,tBankCity,tBankAddress,tUserCode,tUserAddress,tUserPost,tUserTel,tADT,tTreePlace,tFatherID,tFatherName,tReID,tReName,tisPay,tisLock
Dim Rs,SQL,Rs1,Rs2,Rs3,Rs4,SQL2,isPay1,isPay2,isPay3
Dim uTreePlace,uUserID
Dim RsA(4,8)
Dim PlaceStr
PlaceStr="10101010101010101"
ID=Trim(Request("ReID"))
tID=Trim(Request("FatherID"))
uTreePlace=Trim(Request("hy_zy"))
regg=trim(request("reg"))
uUserID=G.GetPID
ID=session("ID")

If G.MNum(ID)=False Then
ErrStr="<script>"
ErrStr=ErrStr&"alert('温馨提示：\n\n您操作方式不正确，\n请检验后再试！\n错误位置：2');"
ErrStr=ErrStr&"history.back(-1);"
ErrStr=ErrStr&"</script>"
G.TS(ErrStr)
End If
If G.MNum(ID)=False Then
G.TS("非法使用")
End If
SQL="Select * From [Member] Where ID="&ID
'G.XS SQL
Set Rs=G.ExeSQL(SQL)
If Rs.Eof Then
ErrStr="<script>"
ErrStr=ErrStr&"alert('温馨提示：\n\n您操作方式不正确，\n请检验后再试！\n错误位置：3');"
ErrStr=ErrStr&"history.back(-1);"
ErrStr=ErrStr&"</script>"
G.TS(ErrStr)
Else
tUserID=Rs("UserID")
tUserName=Rs("UserName")
tPassword=Rs("Password")
tPassOpen=Rs("PassOpen")
tNickName=Rs("NickName")
tisPay=Rs("isPay")
tisLock=Rs("isLock")
End If
Rs.Close
%>

[50css]

你发的代码那么长我就不看了，只给你说一下怎么增加一个游客注册申请： 1、先做一个游客注册申请的页面这个页面会有一个表单，其中会有要填用户名和密码以及其它要填的内容的输入框或选择框（如果外观要求较高的可以先用PS设计好效果图之后再按效果图做）； 2、再写一个游客注册申请的页面的表单的接收处理程序，接收到提交来的用户名和密码以及其它要填的内容，判断没有问题后保存进数据库，这时游客注册申请的功能已完成。

[qq_30177741]

第2条怎么接受 是这个问题，现在程序判断数据库不接受