<% If Session(strCookieURL & "Approval") = "15916941253" Then %>
 All Forums
 Admin Section
 User Fields Configuration
<% if intUserFields = "" then intUserFields = 0 if Request.Form("Method_Type") = "Write_Configuration" then Err_Msg = "" if Err_Msg = "" then '## Forum_SQL if cInt(Request.Form("intUserFields")) <> 1 then intUserFields = 0 else intUserFields = 1 end if strSql = "UPDATE " & strTablePrefix & "MODS " strSql = strSql & " SET M_VALUE ='" & intUserFields & "'" strSQL = strSql & " WHERE M_NAME = 'HModEnable' AND M_CODE = 'UserFields' " my_Conn.Execute (strSql) Application(strCookieURL & "ConfigLoaded") = "" %>

Congratulations!

Configuration Posted!

Back To User Fields Admin

<% else %>

There Was A Problem With Your Details

    <% =Err_Msg %>

>Go Back To Enter Data

<% end if else %>
User Fields Configuration
>
<% if intUserFields <> 1 then %> > User Fields are NOT enabled, check the box and press SET to enable <% Else %> >  User Fields are enabled, uncheck the box and press SET to disable <% End If %>   
<% Set rs2 = Server.CreateObject("ADODB.Recordset") rs2.cachesize = 20 sSQL = "SELECT * FROM " & strMemberTablePrefix & "USERFIELDS" rs2.Open sSQL, my_Conn, 3 rs2.cachesize = 5 rs2.PageSize = 5 strPageSize = 5 lRecs = rs2.RecordCount lFields = rs2.Fields.count iPage = CLng(request("iPage")) iPageCount = cInt(rs2.PageCount) if iPage < 1 then iPage = 1 end if if not rs2.BOF or not rs2.EOF then rs2.AbsolutePage = iPage end if %> <% rec = 1 do until rs2.eof or rec = (strPageSize +1) set fld = rs2.fields(0) iFieldCount = 0 response.write "" for each fld in rs2.fields iFieldCount = iFieldCount + 1 if iFieldCount <> 1 then response.write "" next response.write "" rec = rec + 1 rs2.movenext loop response.write "
Fields [<%=lRecs%>]   <% if iPage > 1 then response.write "" response.write "« prev | " else response.write "« prev | " end if if iPage < iPageCount then response.write "" response.write "next »" else response.write "next »" end if response.write "   [Page:" & iPage & "/" if iPageCount = 0 then iPageCount = 1 end if response.write iPageCount & "]" %>
LABEL TYPE SHORTNAME
" response.write "delete " response.write "edit" response.write "" response.write rs2(fld.name) end if response.write "
" rs2.close set rs2 = nothing %>
Delete Click on this link to Delete the Current User Field
New Press this button to Add a New User Field
ID Click on the ID link to Edit the Current User Field

Back to Admin

<% End If WriteFooter Else scriptname = split(request.servervariables("SCRIPT_NAME"),"/") Response.Redirect "admin_login.asp?target=" & scriptname(ubound(scriptname)) End IF %>