<% Dim Last, Email, passcom, checkbox, objRS, First, Mem, Login, Password, objCom, regType Dim signature, homepage, regProblem, regText,candorc4 if request.querystring("do") <> "reapprove" then if not fromThisDomain("register.asp") then response.redirect (forumdir&"first.asp?error=referer") response.end end if if request.form("jsenabled")="false" then response.redirect (forumdir&"first.asp") response.end end if regProblem = false ' Dim item ' for each item in request.form ' response.write "Dim "&item&":"&item&" = request.form("""&item&""")&""""
" ' next ' Call pgdform("reg_",false) ' response.end Login = trim(request.form("login")):Login = replace(SQLStrip(Login),",","") First = request.form("fname") Last = request.form("lname") Email = trim(request.form("email")):Email=left(""&Email,50) homepage = request.form("homepage") signature = request.form("signature") password = trim(request.form("password")) passcom = trim(request.form("passcom")) checkbox = request.form("checkbox") regType = Application(dbName&"regType") if len(Login) = 0 or len(Email) = 0 then regProblem = true regText = profAllFieldReq ''response.end end if if regType = 0 then if (len(password) = 0 or len(passcom) = 0) then regProblem = true regText = profAllFieldReq ''response.end end if if password<>passcom then regProblem = true regText = profPassNotMatch 'response.end end if else password = rndPasswd(11) end if if isNumeric(Login) then regProblem = true regText = regLoginWarning 'response.end end if if len(replace(homepage,"http://","")) = 0 then homepage = "" Dim status, tempPass tempPass = rndPasswd(5) if not regProblem then set objCom = server.createobject("adodb.command") with objCom .activeconnection = datastore .commandText = dbOwnerPrefix&"spRegister" .commandType = adCmdStoredProc .Parameters.Append .Createparameter("@RETURN_VALUE", adInteger, adParamReturnValue) .Parameters.Append .Createparameter("@tempPass", adVarChar, adParamInput, 50, tempPass) .Parameters.Append .Createparameter("@Userpass", adVarChar, adParamInput, 50, password) .Parameters.Append .Createparameter("@Login", adVarChar, adParamInput, 50, Login) .Parameters.Append .Createparameter("@Fname", adVarChar, adParamInput, 50, left(""&First,50)) .Parameters.Append .Createparameter("@Lname", adVarChar, adParamInput, 50, left(""&Last,50)) .Parameters.Append .Createparameter("@Email", adVarChar, adParamInput, 50, Email) .Parameters.Append .Createparameter("@homepage", adVarChar, adParamInput, 50, left(""&homepage,50)) .Parameters.Append .Createparameter("@signature", adVarChar, adParamInput, 255, left(""&signature,255)) .Parameters.Append .Createparameter("@ip", adVarChar, adParamInput, 50, Request.ServerVariables("REMOTE_ADDR")) .Parameters.Append .Createparameter("@viewpref", adUnsignedTinyInt, adParamInput, 0, memViewPref) .Parameters.Append .Createparameter("@regStatus", adUnsignedTinyInt, adParamInput, 0, regType) .Parameters.Append .Createparameter("@memberID", adInteger, adParamOutput, 0 ) .execute , , adExecuteNoRecords status = .Parameters("@RETURN_VALUE") Dim newMemID:newMemID = .Parameters("@memberID") end with set objCom = nothing end if if status = 1 then regProblem = true regText = regEmailLoginChosen 'response.end end if if checkbox="on" then call setAutoCookies(Login, password) end if if not regProblem then '*** new code for additional fields Dim fldCount:fldCount = cInt(request.form("fldCount")) if fldCount>0 then Dim formClass Dim arrFields(), arrValues() Redim arrFields(fldCount) : Redim arrValues(fldCount) arrFields(0)="Mem":arrValues(0)=newMemId Dim iFld:iFld = 1 for each formClass in request.form if left(formClass,4)= "fld_" or left(formClass,4)= "lfld" then arrFields(iFld) = formClass arrValues(iFld) = iff(len(""&request.form(formClass)), trim(request.form(formClass)&""),"") iFld = iFld + 1 end if next set objRS = server.createobject("adodb.recordset") with objRS .open "SELECT * FROM pgd_regFields WHERE (0=1)", datastore, adOpenDynamic, adLockOptimistic, adCmdText .AddNew arrFields, arrValues .close end with set objRS=nothing end if '*** new code for additional fields Dim senderE,senderN,mailTo,mailCC,mailBCC,subject, arrBody SELECT CASE regType Case 0 Application.lock Application(dbName&"totalMem") = Application(dbName&"totalMem")+1 Application.unlock call SendLoginPassword(login, Email, password) regText = regNoRestrictResponse Case 1 'simple e-mail confirmation Dim Body call confirmResend (Email,1) call SendLoginPassword(login, Email, password) regText = regEmailResponse Case 2 'Admin Approval Required call confirmResend (Email,2) regText = regAdminResponse End SELECT end if else regText = regReApproveResponse end if %> <%= Application(dbName&"forumtitle") %> <%= OutputCSS() %> > <% call headerHTML() %>
<%= regResultDesc %>
align="center" class="subhead"> <%= regText %>

<% if regProblem then%> <%= javascriptBackDesc %> <% else %> <%= regConfirmResp %> <% end if %>



<% call footerHTML() %>