<% dim objRS, arrprofile , id, show, arrGroups, i id = request("id") show = request.querystring("show") if show = "g" then set objRS = Server.CreateObject("adodb.recordset") with objRS .open dbOwnerPrefix&"spShowGroupMemberInfo ("&id&","&memID&")", datastore, , ,adCmdStoredProc if not (.eof or .bof) then arrGroups = .getrows .close ' .open "SELECT login from pgd_members WHERE mem="&id, datastore, , ,adCmdText ' Login = .fields(0).value ' .close end with set objRS = nothing %> Group Membership <%= OutputCSS() %>
<% if isArray(arrGroups) then %> <% for i=0 to ubound (arrGroups,2) %> > <% next %> <% Else %> > <% End If %>
Group Membership info
Group Name is Group Manager
<%= HTMLEncode(""&arrGroups(0,i)) %> <%= iff(arrGroups(2,i)=1,"yes","no")%>
This person is not in any user group

close window
<% response.end end if set objRS = Server.CreateObject("adodb.recordset") with objRS .open _ "SELECT Login, Fname, Lname, Email, Userpass, totalPosts, ip, banned, datesignup, regStatus, "&_ "allowSigpicture, allowShortMsg,signature,saysomething, sigpicture, profilePic, profilePicURL, customTitle, score,moderated,homepage "&_ "FROM pgd_members WHERE Mem = "&id, datastore, , ,adCmdText arrProfile = .getrows .close end with set objRS = nothing '=====0======1======2======3=======4=========5========6=====7==========8==========9 Dim Login, Fname, Lname, Email, Userpass, totalPosts, ip, banned, datesignup, regStatus '==========10=============11==========12=========13===========14===========15===========16============17========18====19 Dim allowSigpicture, allowShortMsg,signature,saysomething, sigpicture, profilePic, profilePicURL, customTitle, score,moderated '=====20 Dim Homepage Login = HTMLEncode(""&arrProfile(0,0)) Fname = HTMLEncode(""&arrProfile(1,0)) Lname = HTMLEncode(""&arrProfile(2,0)) Email = HTMLEncode(""&arrProfile(3,0)) totalPosts = arrProfile(5,0) ip = arrProfile(6,0) banned = arrProfile(7,0) datesignup = arrProfile(8,0) regStatus = arrProfile(9,0) allowSigpicture = arrProfile(10,0) allowShortMsg = arrProfile(11,0) signature = arrProfile(12,0) saysomething = arrProfile(13,0) sigpicture = arrProfile(14,0) profilePic = arrProfile(15,0) profilePicURL = HTMLEncode(""&arrProfile(16,0)) customTitle = HTMLEncode(""&arrProfile(17,0)) score = arrProfile(18,0) moderated = arrProfile(19,0) Homepage = HTMLEncode(""&arrProfile(20,0)) erase arrProfile %> Modify User's Info <%= OutputCSS() %>
User Detail :       Help

<% if request.queryString("done") <> "" then response.write ("User Details Updated Successfully.") %>
Member details for <%=Trim(Lname &", "& Fname)%> (<%=login%>)
>ID @ IP address: width="412" ><%= id&" @ "& ip%> class="radiocheck"> check to ban this ip
width="117" >Signup date: width="412" ><%= datesignup %>
width="117" >Posts and score: width="412" ><%= totalPosts %> posts with score: <%= score %>
width="117" >Login: width="412" >  Ban this Guy ! <% if id="0" then response.write ("disabled") %> class="radiocheck">
width="117" >E-mail : width="412" >
width="117" nowrap >Group membership info : width="412" >
width="117" nowrap >Registration : width="412" >
width="117" nowrap >Allow Upload
avatar? 		width="412" > class="radiocheck"> Yes
width="117" nowrap >Allow Use of
Private Message?		 width="412" > class="radiocheck"> Yes
width="117" nowrap >Require Moderation
on every message?		 width="412" > class="radiocheck"> Yes

Member's custom info for <%=Trim(Lname &", "& Fname)%> (<%=login%>)
width="117" nowrap >Signature width="412" >
width="117" nowrap >Say.. width="412" >
width="117" nowrap >User uploaded avatar width="412" > <% if sigpicture<>"" then %> " target="_blank"> <% end if %>
width="117" nowrap >Profile Photo from upload width="412" > <% if profilePic<>"" then %> " target="_blank"> <% end if %>
width="117" nowrap >Profile Photo from URL width="412" > <% if profilePicURL<>"" then %> <% end if %>
width="117" nowrap >Custom Title width="412" >
width="117" nowrap >Homepage width="412" >
width="117" nowrap >Custom Registration Fields width="412" >