<% 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 %> <%= 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 %> >---- <% for i = 1 to 31 %> ><%= i %> <% next %> <%= profMonth %> >---- <% for i = 1 to 12 %> ><%= i %> <% next %> <%= profYear %> >---- <% for i = year(date)-100 to year(date)-13 %> ><%= i %> <% next %> > <%= 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) > <%= SQLout(signature) %> name="alwaysSig"> <%= profAlwaysSig %> <% if Application(dbName&"NoIMGinSigs") = 1 then %> <%= NoIMGinSigsDesc %> <% end if %> > <%= memberSayDesc %> (<%= forumMax %> 255) > <%= SQLout(saysomething) %>    ><%= 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"> <% end if %> <% end if %> <% If not (Application(dbName&"allowAvatar")=0) then%> class="radiocheck"> <%= avatarBrowseDesc %> <% if not len(avatar)=0 then %> <% 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"> <% end if %> <% end if %> <% If allowProfPhoto=1 or allowProfPhoto=3 then%> class="radiocheck"> <%= profPhotoURLDesc %> <% if not len(profilePicURL)=0 then %> <% 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 %> > <% Dim i for i = -24 to 24 response.write (""&i&"") next %> <%= defCurrentTime&SQLDate(SQLNowDate,Application(dbName&"TimeOffset"),true) %> ><%= lanProfileDesc %> > <% Dim iLan %> <% for iLan = 0 to ubound(lanProfile,2) %> <% If not isEmpty(lanProfile(1,iLan)) then %> ><%= lanProfile(1,iLan) %> <% End If %> <% next %>

<%= objRegister.validationElements %>

<% else %> <%= rightviolationmessage %> <% end if %>

<% call footerHTML() %>