<% dim objRS, arrprofile, maxShortMsg, memEdited, impersonate maxShortMsg = Application(dbName&"maxShortMsg") impersonate = len(session(dbName&"Impersonate")&"") memEdited = memID if memEdited<>"-1" then set objRS = Server.CreateObject("adodb.recordset") with objRS .open dbOwnerPrefix&"spGetMyProfile("&memEdited&")", datastore, , ,adCmdStoredProc arrProfile = .getrows .close end with set objRS = nothing '-----0------1------2-------3----------4---------5---------6----------7----------8----- dim Fname, Lname, Email, Homepage, signature, Userpass, viewpref, emailview, sigpicture '------9------10-----11---12-------13---------14----------15-------------16------------17----------18---------------19----------20 dim location, ICQ, Yahoo, AOL, interests, occupation, saysomething, allowSigpicture, avatar, avatarOrSigpicture, totalposts, alwaysSig '--------21--------------22-------------23----------24------25---------26------------27-----------28-------------29---------30------31 dim acceptShortMsg, allowShortMsg, PMEmailNotify, PMPopUp, hidden, profilePic, profilePicURL, URLorProfPic, profUseSigPic, login, MSNMsger '----32-----33-----34------35----------36 dim bDay, bMonth, bYear, hideProfile, hideYear Fname = HTMLEncode(""&arrProfile(0,0)) Lname = HTMLEncode(""&arrProfile(1,0)) Email = HTMLEncode(""&arrProfile(2,0)) Homepage = HTMLEncode(""&arrProfile(3,0)) signature = arrProfile(4,0) Userpass = HTMLEncode(""&arrProfile(5,0)) viewpref = arrProfile(6,0) emailview = arrProfile(7,0) sigpicture = arrProfile(8,0) location = HTMLEncode(""&arrProfile(9,0)) ICQ = HTMLEncode(""&arrProfile(10,0)) Yahoo = HTMLEncode(""&arrProfile(11,0)) AOL = HTMLEncode(""&arrProfile(12,0)) interests = HTMLEncode(""&arrProfile(13,0)) occupation = HTMLEncode(""&arrProfile(14,0)) saysomething = arrProfile(15,0) allowSigpicture = arrProfile(16,0) avatar = arrProfile(17,0) avatarOrSigpicture = arrProfile(18,0) totalposts = arrProfile(19,0) alwaysSig = arrProfile(20,0) acceptShortMsg = arrProfile(21,0) allowShortMsg = arrProfile(22,0) PMEmailNotify = arrProfile(23,0) PMPopUp = arrProfile(24,0) hidden = arrProfile(25,0) profilePic = arrProfile(26,0) profilePicURL = HTMLEncode(""&arrProfile(27,0)) URLorProfPic = arrProfile(28,0) profUseSigPic = arrProfile(29,0) login = arrProfile(30,0) MSNMsger = HTMLEncode(""&arrProfile(31,0)) bDay = arrProfile(32,0) bMonth = arrProfile(33,0) bYear = arrProfile(34,0) hideProfile = arrProfile(35,0) hideYear = arrProfile(36,0) erase arrProfile end if Dim objRegister Set objRegister = new PGDCustomReg %> <%= Application(dbName&"forumtitle") %> <%= NoScript() %> <%= OutputCSS() %> > <% call headerHTML() %> <% if memEdited<>"-1" then %> <% if request.querystring("error")="email" then %> <%= regEmailLoginChosen %> <% End If %>
<% Dim allowProfPhoto:allowProfPhoto = Application(dbName&"allowProfPhoto") %> <% objRegister.mem = memEdited : objRegister.mode = "editprofile"%> <%= objRegister.formElements %>
<%= profTitleDesc %>
width="25%"><%= tmName %> (<%= profChangePass %>) ><%= login %>   (<%= profViewMineDesc %>)
><%= profFName %> >
><%= profLName %> >
><%= profBirthday %> > <%= profDay %> <%= profMonth %> <%= profYear %> > <%= profHideAge %>
valign="top" rowspan=2><%= tmEmail %> > <% if Application(dbName&"regType")<=2 then %>     <% else %> <%= email %>    <% end if %>
> class="radiocheck"> <%= profAllowViewEmailDesc %>
><%= memberHomepageDesc %> > " size="30" maxlength="50">
><%= memberFromDesc %> >
><%= memberICQDesc %> >
><%= memberYahooDesc %> >
><%= memberAOLDesc %> >
><%= memberMSNMsgerDesc %> >
><%= memberInterestDesc %> >
><%= memberOccupation %> >
> <%= memberSigDesc %>
(<%= forumMax %> 255)


> <%= pgdCodeDesc %>

name="alwaysSig"> <%= profAlwaysSig %>
<% if Application(dbName&"NoIMGinSigs") = 1 then %> <%= NoIMGinSigsDesc %> <% end if %>
> <%= memberSayDesc %>
(<%= forumMax %> 255)


>   
><%= profSelfPic %> > <% If not (application(dbName&"upload")="NoUpload" or application(dbName&"allowsigupload")=0 or allowSigpicture = 0 or totalposts < application(dbName&"allowsigupload")) then%> class="radiocheck"> <%= profSelfPicUploadDesc %> <% if not len(sigpicture)=0 then %> " target="_blank"><%= viewMyPictureDesc %> <% end if %>
<% end if %> <% If not (Application(dbName&"allowAvatar")=0) then%> class="radiocheck"> <%= avatarBrowseDesc %> <% if not len(avatar)=0 then %> <%= viewMyPictureDesc %> <% end if %> <% end if %>
><%= profPhoto %> > <% if allowProfPhoto>=0 then %> class="radiocheck" <% if Application(dbName&"allowAvatar")=0 and application(dbName&"allowsigupload")=0 then response.write ("disabled") %>> <%= profUseSigPicDesc %> <% if allowProfPhoto=0 then %> <% end if %> <% end if %> <% If application(dbName&"upload")<>"NoUpload" and allowProfPhoto>=2 then%>
class="radiocheck"> <%= profSelfPicUploadDesc %> <% if not len(profilePic)=0 then %> " target="_blank"><%= viewMyProfPhoto %> <% end if %> <% end if %> <% If allowProfPhoto=1 or allowProfPhoto=3 then%>
class="radiocheck"> <%= profPhotoURLDesc %> <% if not len(profilePicURL)=0 then %> <%= viewMyProfPhoto %> <% end if %> <% end if %>


<% if Application(dbName&"allowHide") <> 0 or Application(dbName&"allowHideProfile")<>0 then %> <% End If %> <% if impersonate=0 then %> <% Dim NoSmile, NoImage, NoAvatar NoSmile = request.cookies(dbName&"ASPplayground_forum_Speed")("NoSmile") NoImage = request.cookies(dbName&"ASPplayground_forum_Speed")("NoImage") NoAvatar = request.cookies(dbName&"ASPplayground_forum_Speed")("NoAvatar") %> <% End If %>
<%= profMyPref %>
><%= profViewType %> > <% if membrowser="moz6" then %> class="radiocheck"> <%= profStyleTree %>
<% End If %> class="radiocheck"> <%= profStyleFlat %>
class="radiocheck"> <%= profStyleSimple %>
valign="top" width="25%"><%= profPMDesc %> > <% if allowShortMsg = 0 or maxShortMsg = 0 then %> <%= replace(rightViolationMessage,"
","") %> <% else %> class="radiocheck" <% if allowShortMsg = 0 then response.write ("disabled") %>> <%= profAcceptPM %>
class="radiocheck" <% if allowShortMsg = 0 then response.write ("disabled") %>> <%= profPMNotify %>
class="radiocheck" <% if allowShortMsg = 0 or Application(dbName&"onlineTracking") <> 1 then response.write ("disabled") %>> <%= profPMPopup %>
<% if impersonate=0 then %> <% Dim PMAlwaysSave:PMAlwaysSave = request.cookies(dbName&"PMAlwaysSave") %> class="radiocheck" <% if allowShortMsg = 0 then response.write ("disabled") %>> <%= profAlwaysSavePM %> <% End If %> <% end if %>
><%= profPrivacyDesc %> > <% if Application(dbName&"allowHide") <> 0 then %> class="radiocheck"> <%= profOnlineHide %>
<% End If %> <% if Application(dbName&"allowHideProfile") <> 0 then %> class="radiocheck"> <%= profhideProfile %> <% End If %>
><%= profSpeedDesc %> > class="radiocheck"> <%= profSpNoSmile %>
class="radiocheck"> <%= profSpNoImage %>
class="radiocheck"> <%= profSpNoAvatar %>
><%= profSaveCookied %> > > <%= profSaveCookieDesc %>
><%= profTimeDiffDesc %> > <%= defCurrentTime&SQLDate(SQLNowDate,Application(dbName&"TimeOffset"),true) %>
><%= lanProfileDesc %> >

<%= objRegister.validationElements %>    
<% else %> <%= rightviolationmessage %> <% end if %>

<% call footerHTML() %>