<% Dim objRS, arrProfile, arrMemPosts, memProId, key, language, name, isonline, objCom, lastPostViewType,maxShortMsg Dim allowmail:allowmail = Application(dbName&"maildll") memProId = request("memid") if memProId="-1" then response.write (noProfileForGuestDesc) response.end end if maxShortMsg = Application(dbName&"maxShortMsg") lastPostViewType = request.querystring("lastPostViewType") if not isNumeric(lastPostViewType&"") or len(lastPostViewType)=0 then lastPostViewType = "0" Dim arrforumAllowed, allowedForum, iforums, finalforums allforum = Application(dbName&"foruminfo") if isArray(allforum) then Dim objSearchableForum Set objSearchableForum = new searchableForum With objSearchableForum .memID = memID .SearchType = "all" finalforums = .GetSearchableForums End With Set objSearchableForum = nothing else finalforums = "-5" end if 'response.write finalforums set objRS = Server.CreateObject("adodb.recordset") set objCom = server.createobject("adodb.command") With objCom .activeConnection = datastore .commandText = dbOwnerPrefix&"spisOnline" .commandType = adCmdStoredProc .Parameters.Append .Createparameter("@int_Mem", adInteger, adParamInput, 0, memProId) .Parameters.Append .Createparameter("@isOnline", adInteger, adParamOutput, 0) .execute, , adExecuteNoRecords isonline = .parameters("@isOnline") End With set objCom = nothing objRS.open dbOwnerPrefix&"spShowProfile("&memProId&", '"&finalforums&"',"&lastPostViewType&")", datastore, , , adCmdStoredProc arrProfile = objRS.getrows Set objRS= objRS.nextRecordset if not objRS.EOF then arrMemPosts = objRS.getrows end if objRS.close set objRS = nothing '----0-----1------2------3------4-------5----------6-------7-------8------ dim mem, login, fname, lname, email, homepage, totalPosts, ip, dateSignUp '-------9---------10-----11----12----13------14---------15----------16----------17----------18----------19----------20---------------21 dim emailview, location, ICQ, Yahoo, AOL, interests, occupation, sigpicture, signature, saysomething, avatar, avatarOrSigpicture, lastLogin '------22------------23------------24-------------25------------26--------27 dim profilePic, profilePicURL, URLorProfPic, profUseSigPic,acceptShortMsg, MSNMsger '-----28-----29-----30-------31-------32------33 dim bDay, bMonth, bYear, hideProfile,hideyear,allowShortMsg mem = arrProfile(0,0) login = arrProfile(1,0) fname = HTMLEncode(""&arrProfile(2,0)) lname = HTMLEncode(""&arrProfile(3,0)) email = arrProfile(4,0) homepage = HTMLEncode(""&arrProfile(5,0)) totalPosts = arrProfile(6,0) ip = arrProfile(7,0) dateSignUp = arrProfile(8,0) emailview = arrProfile(9,0) location = HTMLEncode(""&arrProfile(10,0)) ICQ = HTMLEncode(""&arrProfile(11,0)) Yahoo = HTMLEncode(""&arrProfile(12,0)) AOL = HTMLEncode(""&arrProfile(13,0)) interests = HTMLEncode(""&arrProfile(14,0)) occupation = HTMLEncode(""&arrProfile(15,0)) sigpicture = arrProfile(16,0) signature = arrProfile(17,0) saysomething = arrProfile(18,0) avatar = arrProfile(19,0) avatarOrSigpicture = arrProfile(20,0) lastLogin = arrProfile(21,0) profilePic = arrProfile(22,0) profilePicURL = replace(SQLStrip(arrProfile(23,0)),"javascript:","",1,-1,vbTextCompare) if lcase(left(profilePicURL,4))<>"http" then profilePicURL="" URLorProfPic = arrProfile(24,0) profUseSigPic = arrProfile(25,0) acceptShortMsg = arrProfile(26,0) MSNMsger = HTMLEncode(""&arrProfile(27,0)) bDay = arrProfile(28,0) bMonth = arrProfile(29,0) bYear = arrProfile(30,0) hideProfile = arrProfile(31,0) hideyear = arrProfile(32,0) allowShortMsg = arrProfile(33,0) erase arrProfile Dim objRegister Set objRegister = new PGDCustomReg name = fname&" "&lname if emailview = 0 and not isAdmin then email = profEmailHidden else if allowmail<>"NoMail" then email = ""&tmEmail&" "&login&"" else email = ""&tmEmail&" "&login&"" end if end if Dim finalDisplay:finalDisplay = "" if avatarOrSigpicture = 1 then ' Self-Picture if sigpicture<>"" then finalDisplay = "" else ' Avatar if avatar<>"" then finalDisplay = "" end if if finalDisplay = "" then finalDisplay = "" if (Application(dbName&"allowsigupload") = 0 and avatarOrSigpicture = 1) or (Application(dbName&"allowAvatar") = 0 and avatarOrSigpicture = 0) then finalDisplay = "" Dim finalProfPhoto:finalProfPhoto="" if profUseSigPic = 1 then finalProfPhoto = finalDisplay else if URLorProfPic = 0 then' URL display Dim URLPicDimension:URLPicDimension = (Application(dbName&"leftframe")-5)*2 if profilePicURL <> "" then finalProfPhoto = "" else finalProfPhoto = "" else 'uploaded if profilePic <>"" then finalProfPhoto = "" else finalProfPhoto = "" end if end if if finalProfPhoto = "" then finalProfPhoto = "" if len(trim(homepage)) = 0 or isNull(homepage) then homepage = " " else if left(homepage,4) = "http" then Homepage = "" & homepage & "" Else Homepage = "" & homepage & "" End If end if if blankHandler(ICQ)<>" " then _ ICQ = ICQ&" "&ICQ&"" if blankHandler(yahoo)<>" " then _ Yahoo = yahoo&" "&yahoo&"" if blankHandler(AOL)<>" " then _ AOL = AOL&" "&AOL&"" Dim timeoffset timeoffset = Application(dbName&"TimeOffset") lastLogin = SQLdate(lastLogin, timeoffset, true) Dim isProfileViewable if Application(dbName&"allowHideProfile") = 1 and hideProfile = 1 and not isAdmin and not (""&mem=memID) then isProfileViewable = false else isProfileViewable = true end if NoImage = NoSigImage Dim objPGDCode Set objPGDCode = New RegExp objPGDCode.global = true objPGDCode.ignorecase = true if len(trim(signature)) = 0 or isNull(signature) then signature = " " else signature= PGDCodeResolution(objPGDCode,SQLOut(signature),1) if len(trim(saysomething)) = 0 or isNull(saysomething) then saysomething = " " else saysomething= PGDCodeResolution(objPGDCode,SQLOut(saysomething),1) Set objPGDCode = Nothing %> <%= Application(dbName&"forumtitle") %> <%= OutputCSS() %> > <% if not isProfileViewable then %> <% call headerHTML() %>
<%= profNotViewable %>


<% call footerHTML() %> <% response.end %> <% end if %> <% call headerHTML() %>
<%= allForumDesc %> >> <%= memberProfileTitle %>
<%= memberProfileTitle %>
align="center"><%= login %> <% if isAdmin and not Administrator(memProId) then %>  <%= impersonateDesc &" align="absmiddle" border=0> <% end if %>   (<%= memGroupInfo %>) > align="center"> <% if IsArray(arrMemPosts) then dim lastpostdate:lastpostdate = SQLdate(arrMemPosts(2,0), timeoffset, true) else lastpostdate = "" end if %> <%= memberMostRecentPost %>   <%= memberMostRecentThread %>
>
<%= finalProfPhoto %>

<%= saysomething %>


 > <% dim i, k, allforum, profileLink if isArray(arrMemPosts) then for i = 0 to ubound(arrMemPosts,2) response.write ("") next erase arrMemPosts else response.write (" ") end if %>
  ") response.write (""&SQLOut(arrMemPosts(1,i))&""&vbcrlf&_ " "& SQLdate(arrMemPosts(2,i), timeoffset, true) &"
class="cat" align="center" width="40%"><%= memberDetails %> class="cat" align="center" width="60%"><%= memberStats %>
> <% objRegister.mem = mem : objRegister.mode = "showprofile"%> <%= objRegister.formElements %>
<%= profRealName %> <%= blankHandler(Name) %> <% if (isAdmin or (acceptShortMsg = 1 and allowShortMsg=1)) and maxShortMsg<>0 then%> <%= memListPM %> <% end if %> <%= MemListAddToList %>
<%= tmEmail %> <%= email %>
<%= profBirthday %> <%= iff((hideyear and not isAdmin and not (""&mem=memID)),replace(SQLBirthdate(bDay,bMonth,bYear),bYear,"**"),SQLBirthdate(bDay,bMonth,bYear)) %> 
<%= memberHomepageDesc %> <%= homepage %>
<%= memberFromDesc %> <%= blankHandler(location) %>
<%= memberICQDesc %> <%= ICQ %>
<%= memberYahooDesc %> <%= Yahoo %>
<%= memberAOLDesc %> <%= AOL %>
<%= memberMSNMsgerDesc %> <%= MSNMsger %>
<%= memberInterestDesc %> <%= blankHandler(Interests) %>
<%= memberOccupation %> <%= blankHandler(Occupation) %>
valign="top">
  <%=memberSinceDesc &" "& SQLdate(dateSignUp, timeoffset, false) %>
  <%=memberTotalPostDesc &" "& totalPosts %>   &top=50"><%= memberPostNewest %> 50 | &top=100"><%= memberPostNewest %> 100
  <%= memberIsOnlineDesc &" "%> <%if isOnline = 1 then response.write (memberOnlineDesc) else response.write (memberOfflineDesc)%>
  <%= memberLastPostOn&" "&lastpostdate %>
  <%= memberLastLogin&" "&lastLogin %>
class="cat"> <%= memberSigDesc %>
>

<%= signature%>


<% if isObject(objRegister) then Set objRegister = nothing %> <% call footerHTML() %>