<% Dim isPostedBack As Boolean Dim regFormAction , regFormMethod As String If Request.Form("firstLogin") = "" Then isPostedBack = false Else isPostedBack = true End IF If isPostedBack Then If Request.Form("jsenabled") = "false" Then Response.Redirect("first.aspx") Response.End() End IF End IF If isPostedBack Then regFormAction = "regpro.aspx" Else regFormAction = "register.aspx" End IF Dim regType As Integer = Applications("regtype") Dim body, regText As String, arrBody As Object Dim objRegister As New PGDCustomReg() With objRegister ' initialize Variables .TABLEALT = TABLEALT .TABLEINSIDE = TABLEINSIDE .isBMan = isBMan .isUMan = isUMan .profAdditionalHide = profAdditionalHide .profAdditional = profAdditional .memID = memID .isAdmin = isAdmin .memSearchOpLike = memSearchOpLike .memSearchOpEqual = memSearchOpEqual .memSearchCustomFieldNull = memSearchCustomFieldNull .memSearchBoolAnd = memSearchBoolAnd .memSearchBoolOr = memSearchBoolOr End With %> <%= Applications("forumtitle") %> <%= Applications("metatags") %> <%= OutputCSS() %> > <% headerHTML() Select Case regType Case 0 regText = regNoRestrictDesc Case 1 regText = regEmailReqDesc Case 2 regText = regAdminReqDesc Case 3 arrBody = GetArrayViaRS(dbOwnerPrefix & "spGetRegMsg", new Object(){ 3 }) If IsArray(arrBody) Then body = "" & arrBody(0, 0) Else body = "" End IF body = Replace(body, "#forumtitle#", Applications("ForumTitle")) body = Replace(body, vbCrLf, "
") %>
class="subhead" align="center"><%= body %>

<%= javascriptBackDesc %>
<% footerHTML() %> <% Response.End() End Select %>
<%= allForumDesc %> >> <%= regDesc %>
<% Dim Arrf_agreement As Object Dim f_agreement As String If Not isPostedBack Then Arrf_agreement = GetArrayViaRS(dbOwnerPrefix & "spAgreement", CommandType.StoredProcedure) If IsArray(Arrf_agreement) Then f_agreement = "" & Arrf_agreement(0, 0) Else f_agreement = "" End IF f_agreement = Replace(Replace(f_agreement, "#forumtitle#", Applications("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 %>
<%= regEmailWarnDesc %>
> *
><%= profFName %> >
><%= profLName %> >
><%= memberHomepageDesc %> >
><%= memberSigDesc %> >
class="subhead"><%= regStep3Desc %>
><%= profPass %> > *
><%= profPassConfirm %> > *
class="subhead"><%= regStep4Desc %>
> <%= profSaveCookieDesc %>

<%= objRegister.validationelements() %>
<% End IF %>
<% footerHTML() %> <% If Not IsNothing(objRegister) Then objRegister = Nothing End If %>