<% Dim msg, struOptValueArray(7) If seclog then enc = GenerateKeys session("sour" & strSUnique)= RandomNumber If not CStr(session("user_logged_ID" & strSUnique)) = Empty Or not session("user_verif_ID" & strSUnique) = Empty then If not CStr(session("user_logged_ID" & strSUnique)) = Empty then userID = session("user_logged_ID" & strSUnique) Else userID = session("user_verif_ID" & strSUnique) 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 %>
<%= strText_Home %>::<%= strText_UserRegistration %>

<%= 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 = CStr(rsOpt(4)) nextOptBlank = CStr(rsOpt(5)) nextSearchOnly = CBool(rsOpt(8)) If nextSearchOnly then strInput = vbcrlf & " -Number Only" & vbcrlf Else nextOptValuesA = Split(nextOptValues, sf) For bo = 0 to Ubound(nextOptValuesA) optValue = nextOptValuesA(bo) optText = optValue If update AND optText = struOptValueArray(ruo) then sel = "selected": inputMatch = True: Else sel = "": End If If nextOptBlank = optValue then optValue = Empty nextOptString = nextOptString & "" & vbcrlf Next If nextAllowCustom then If Not inputMatch AND update then noMatchDisable = "disabled" ccheckBox = "checked" ctextBox = Empty End If strCustom = "  " & nextCustomName & " " strCustom = strCustom & " " End If strInput = vbcrlf & "" & vbcrlf & strCustom End If End If rsOpt.close End If %> <% 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(".")) For each fl in sFolder.Files sName = lCase(fl.Name) If Right(sName, 4) = ".css" 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_City %>:  *
<%= strText_EmailAddress %>:  *
<%= uOpt(ruo) %>:  <%= strInput %>
<%= strText_PreferredAdStyle %>:    <%= strText_Preview %>
 <%= strText_UserPassword %>  *
 <%= strText_ConfirmPassword %>:  *
<%= strText_AddtoEmailList %>
" & _ " " & strText_Agreement & " " & strText_Agreement1 & " | " & strText_Agreement2 & "
', <%= lcase(seclog) %>);">