<% Dim objRegister, objRS Set objRegister = new PGDCustomReg Dim impersonate:impersonate = 0 'no use Dim mem:mem = request("mem") if request.form<>"" 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)=mem 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)&""),"") arrFields(iFld+1) = "h_"&formClass arrValues(iFld+1) = iff(len(""&request.form("h_"&formClass)), request.form("h_"&formClass),"0") iFld = iFld + 2 end if next ' for iFld = 0 to ubound(arrFields) ' response.write arrFields(iFld)&":"&arrValues(iFld)&"
" ' next ' response.end set objRS = server.createobject("adodb.recordset") with objRS .open "SELECT * FROM pgd_regFields WHERE mem="&mem, datastore, adOpenDynamic, adLockOptimistic, adCmdText if not (.EOF or .BOF) then .update arrFields, arrValues else .AddNew arrFields, arrValues end if .close end with set objRS=nothing end if response.redirect("admin_showreg.asp?mem="&mem) '*** new code for additional fields else %> Group Membership <%= OutputCSS() %>
<% objRegister.mem = mem : objRegister.mode = "editprofile"%> <%= objRegister.formElements %>
Custom Fields


 
<%= objRegister.validationElements %>
<% End If %> <% Set objRegister = nothing %>