<%@ CodePage=65001 Language="VBScript"%> <% GetConfigVariables SetupDatabase dim rsForums, sResult, vUserInfo, sImgWidth set rsForums = server.createObject("ADODB.Recordset") if (bBBSRegistrationRequired = 1 or bBBSAuthorizationRequired = 1) and (sLogonType <> "ok") then response.redirect sValidatedBaseURL & "/logon.asp?error=needregistration" end if if (sLogonType = "ok") then vUserInfo = GetUserInfo(sUsername) end if if iBBSAvatarWidth > 0 then sImgWidth = "width=""" & iBBSAvatarWidth & """" else sImgWidth = "width=""50""" end if %> <%=validateField(sBBSName)%> : User Control Panel <% if bDisplayBBSQuotes = 1 then%>
<%=sBBSRandomQuoteText%> <%=GetRandomQuote%>
<% else %>
<% end if %>
Control Panel
Misc

">Edit Profile
<% if bDisplaySchemesLink = 0 then %>Set color scheme
<% end if %>

Subscriptions allow you to be notified by e-mail when
a new message is posted.

Mass subscribe/unsubscribe to forums
Mass unsubscribe from threads

 <% if sLogonType = "ok" then %>
Statistics

Date Registered <%=GetShortDateTime(vUserInfo(UI_DateReg))%> 
Number of Posts <%=vUserInfo(UI_totalposts)%> 
Average posts/day <%=NiceNumber(vUserInfo(UI_totalposts)/(datediff("d", vUserInfo(UI_DateReg), date)+1))%> 
<% end if %>
-
<% if bBBSAllowProfileUploads = 1 then %>

Photos

Upload message avatar photo
Upload personal photo
<% end if %> 		<% if sLogonType = "ok" then %>
<% if len(vUserInfo(UI_ProfileURL)) > 0 then %> Avatar
>
Delete
<% end if %> 		<% if len(vUserInfo(UI_PhotoURL)) > 0 then %> Photo
>
Delete
<% end if %>
<% end if %>