<% Dim msg, struOptValueArray(7) If seclog then enc = GenerateKeys Sess_Array(44) = RandomNumber If not Sess_Array(29) = 0 Or not CStr(Sess_Array(32)) = Empty then If not Sess_Array(29) = 0 then userID = Sess_Array(29) Else userID = Sess_Array(32) End If set rs = objConn.Execute("SELECT " & tablUPfx & "User.* FROM " & tablUPfx & "User WHERE userID = " & userID & ";") If rs.EOF then IDfound = False Else IDfound = True status = CLng(rs("status")) Select Case status Case 1 msg = "
" & strText_NotVerified & " " & strText_HERE & " " & strText_ToVerify & "
" Case 2 msg = "
" & strText_AcountSuspended & "
" End Select uEmail = CryptText(rs("email"), key, True) uCity = rs("city") uNick = rs("nick") For I = 0 to 7 struOptValueArray(I) = rs("opt" & I+1) Next End If rs.close End If If IDfound then update = True button = strText_UpdateAccount msg = msg & "
" & strText_YouMayUpdate & "
" Else update = False button = strText_CreateAccount msg = "
" & strText_MustCreateAccount msg = msg & "
" & strText_AlreadyRegistered & "
" End If %> <% Call Build_List_Top("center", "99%", "xl_content") %>
<%= message %> <% For ruo = 0 to 6 If Not uOpt(ruo) = Empty Then If CStr(uOptType(ruo)) = "0" then strInput = "" Else set rsOpt = objConn.Execute("SELECT * FROM " & tablPfx & "OptTypes WHERE optionName = '" & uOptType(ruo) & "';") If rsOpt.EOF then strInput = "" Else inputMatch = False noMatchDisable = Empty ccheckBox = Empty ctextBox = "disabled" nextOptString = Empty strCustom = Empty nextOptValues = CStr(rsOpt(2)) nextAllowCustom = CBool(rsOpt(3)) nextCustomName = rsOpt(4) nextOptBlank = CStr(rsOpt(5)) nextSearchOnly = CBool(rsOpt(8)) isRadio = CBool(rsOpt(9)) isVert = CBool(rsOpt(10)) isMultiple = CBool(rsOpt(12)) formatMultiple = CLng(rsOpt(13)) If isVert Then rbreak = "
": Else: rbreak = " " If isMultiple Then nextOptValuesA = Split(nextOptValues, sf) If update Then userValueArray = Split(struOptValueArray(ruo), ",") maxOpt = Ubound(nextOptValuesA) isCheckbox = False If formatMultiple > 20 Then isCheckbox = True: formatMultiple = formatMultiple - 20 For bo = 0 to maxOpt If isCheckbox Then If bo Mod formatMultiple = 0 Then startRow = "": Else: startRow = " " If bo Mod formatMultiple = formatMultiple - 1 Then endRow = "": Else: endRow = " " End If optValue = nextOptValuesA(bo) If update Then sel = "": selc = "": inputMatch = False For each userVal in userValueArray If optValue = Trim(userVal) then sel = "selected": selc = "checked": inputMatch = True: Exit For Next End If If not isCheckbox Then nextOptString = nextOptString & "" & vbcrlf Else nextOptString = nextOptString & startRow & " <% End If Next If uOpt(7) = "1" then If update then compareStyle = lcase(struOptValueArray(7)): Else: compareStyle = lcase(dstyle): End If Set sFolder = objFile.GetFolder(Server.MapPath("css")) For each fl in sFolder.Files sName = lCase(fl.Name) If Right(sName, 4) = ".css" AND Left(sName, 2) = "xl" then sDisplayName = Replace(lcase(sName), ".css", "") If lcase(sName) = compareStyle then sOptions = sOptions & "" userSelected = True Else: sOptions = sOptions & "" End If End If Next %> <% End If %> <% If not update then Response.Write "" %>
<%= msg %>
* <%= strText_RequiredFields %>
 <%= strText_UserName %>  * <%= strText_CheckAvailability %>   
 <%= strText_City %>:  *
<%= strText_EmailAddress %>:  *
- " & optValue & "" & endRow End If Next Else If nextSearchOnly then strInput = vbcrlf & " -Number Only" & vbcrlf Else nextOptValuesA = Split(nextOptValues, sf) For bo = 0 to Ubound(nextOptValuesA) If isRadio And bo = 0 then selc = "checked": Else: selc = "": End If optValue = nextOptValuesA(bo) optText = optValue If update AND optText = struOptValueArray(ruo) then sel = "selected": selc = "checked": inputMatch = True Else: sel = "": selc = "": End If If nextOptBlank = optValue then optValue = Empty If isRadio Then nextOptString = nextOptString & "- " & optText & rbreak Else: nextOptString = nextOptString & "" & vbcrlf End If Next If nextAllowCustom then If Not inputMatch AND update then noMatchDisable = "disabled" ccheckBox = "checked" ctextBox = Empty End If strCustom = "  " & nextCustomName & " " strCustom = strCustom & " " End If End If End If Select Case nextSearchOnly Case False If isRadio Or (isMultiple And isCheckbox) Then strInput = nextOptString If isMultiple then strInput = "" & strInput & "
" ElseIf isMultiple And not isCheckbox Then strInput = vbcrlf & "" & strText_MultipleSelect Else strInput = vbcrlf & "" & vbcrlf & strCustom If not update Then strInput = Replace(strInput, "
<%= uOpt(ruo) %>:  <%= strInput %>
<%= strText_PreferredAdStyle %>:    <%= strText_Preview %>
 <%= strText_UserPassword %>  *
 <%= strText_ConfirmPassword %>:  *
  <%= strText_AddtoEmailList %>
" & _ " " & strText_Agreement & " " & strText_Agreement1 & " | " & strText_Agreement2 & "
 
<% Call Build_List_Bottom() %>