<% Dim isPostedBack, regFormAction, regFormMethod if request.form("firstLogin") = "" then isPostedBack = false else isPostedBack = true if isPostedBack then if request.form("jsenabled")="false" then response.redirect (forumdir&"first.asp") response.end end if end if if isPostedBack then regFormAction = "regpro.asp" else regFormAction = "register.asp" Dim regType, objRS, body, regText, arrBody regType = Application(dbName&"regtype") Dim objRegister Set objRegister = new PGDCustomReg %> <%= Application(dbName&"forumtitle") %> <%= OutputCSS() %> > <% call headerHTML() %> <% SELECT CASE regType Case 0 regText = regNoRestrictDesc Case 1 regText = regEmailReqDesc Case 2 regText = regAdminReqDesc Case 3 set objRS = server.createobject("adodb.recordset") With objRS .open dbOwnerPrefix&"spGetRegMsg(3)", datastore, , , adCmdStoredProc if not (.eof and .bof) then arrBody = .getrows .close End With set objRS = nothing if isArray(arrBody) then body = ""&arrBody(0,0) else body = "" body = replace(body,"#forumtitle#",Application(dbName&"ForumTitle")) body = replace(body,VBCRLF,"
") %>
class="subhead" align="center"><%= body %>

<%= javascriptBackDesc %>
<% call footerHTML() %> <% response.end END SELECT %>
<%= allForumDesc %> >> <%= regDesc %>
<% if not isPostedBack then Dim Arrf_agreement, f_agreement set objRS = server.createobject("adodb.recordset") With objRS .open dbOwnerPrefix&"spAgreement", datastore, , , adCmdStoredProc if not (.eof and .bof) then Arrf_agreement = .getrows .close End With set objRS = nothing if isArray(Arrf_agreement) then f_agreement = ""&Arrf_agreement(0,0) else f_agreement = "" f_agreement = replace(replace(f_agreement,"#forumtitle#", Application(dbName&"forumtitle")),vbcrlf,"
") %>
class="subhead"><%= regStep1Desc %>
class="msg"><%= f_agreement %>
class="info"> <%= regAgreeToAgreement %>
<% else %> <% objRegister.mode = "register" %>
>

<%= regRestrictionDesc %> [<%= regText %>]

<%= objRegister.formElements %> <% if regType = 0 then %> <% End If %>
class="subhead"><%= regStep2Desc %>
><%= tmName %> > *
><%= tmEmail %> > *
><%= profFName %> >
><%= profLName %> >
><%= memberHomepageDesc %> >
><%= memberSigDesc %> >
class="subhead"><%= regStep3Desc %>
><%= profPass %> > *
><%= profPassConfirm %> > *
class="subhead"><%= regStep4Desc %>
> <%= profSaveCookieDesc %>
<%= objRegister.validationElements %>
<% End If %>
<% call footerHTML() %>