All Forums  Snitz Forums 2000 MOD-Group  MOD Add-On Forum (W/Code)  Last IP in members.asp

Note: You must be registered in order to post a reply.
To register, click here. Registration is FREE!
Before posting, make sure you have read this topic!

Screensize: 640 x 480 800 x 600 1024 x 768 1280 x 1024 UserName: Password: Format Mode: Basic  Help  Prompt  Format: Font Andale Mono Arial Arial Black Book Antiqua Century Gothic Comic Sans MS Courier New Georgia Impact Lucida Console Script MT Bold Stencil Tahoma Times New Roman Trebuchet MS Verdana   Size 1 2 3 4 5 6   Color Black Red Yellow Pink Green Orange Purple Blue Beige Brown Teal Navy Maroon LimeGreen Message: * HTML is OFF * Forum Code is ON Smilies [quote][i]Originally posted by lasatalayas[/i] [br]I wanted Administrators to be able to view the IP as well as the last here date. Just look for the instances of Last IP below. It should be fairly easy to understand. Around line 120 If strMode = "search" and (srchUName = "1" or srchFName = "1" or srchLName = "1" or srchInitial = "1" ) then strSql = "SELECT MEMBER_ID, M_STATUS, M_NAME, M_LEVEL, M_EMAIL, M_COUNTRY, M_HOMEPAGE, " strSql = strSql & "M_AIM, M_ICQ, M_MSN, M_SKYPE, M_YAHOO, M_TITLE, M_POSTS, M_LASTPOSTDATE, M_LASTHEREDATE, M_DATE, M_LAST_IP " strSql2 = " FROM " & strMemberTablePrefix & "MEMBERS " Around line 160 '## Forum_SQL - Get all members strSql = "SELECT MEMBER_ID, M_STATUS, M_NAME, M_LEVEL, M_EMAIL, M_COUNTRY, M_HOMEPAGE, " strSql = strSql & "M_AIM, M_ICQ, M_MSN, M_SKYPE, M_YAHOO, M_TITLE, M_POSTS, M_LASTPOSTDATE, M_LASTHEREDATE, M_DATE, M_LAST_IP " strSql2 = " FROM " & strMemberTablePrefix & "MEMBERS " Around line 180 case "lastheredateasc" strSql4 = " ORDER BY M_LASTHEREDATE ASC, M_NAME ASC" case "lastheredatedesc" strSql4 = " ORDER BY M_LASTHEREDATE DESC, M_NAME ASC" case "lastipasc" strSql4 = " ORDER BY M_LAST_IP ASC, M_NAME ASC" case "lastipdesc" strSql4 = " ORDER BY M_LAST_IP DESC, M_NAME ASC" Around line 350 if mlev = 4 or mlev = 3 then Response.Write " <td align=""center"" bgcolor=""" & strHeadCellColor & """><a href=""members.asp?method=" if Request.QueryString("method") = "lastheredatedesc" then Response.Write("lastheredateasc") else Response.Write("lastheredatedesc") Response.Write """" & dWStatus("Sort by Last Visit Date") & "><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """>Last Visit</font></b></a></td>" & vbNewLine end if if mlev = 4 or mlev = 3 then Response.Write " <td align=""center"" bgcolor=""" & strHeadCellColor & """><a href=""members.asp?method=" if Request.QueryString("method") = "lastipdesc" then Response.Write("lastipasc") else Response.Write("lastipdesc") Response.Write """" & dWStatus("Sort by Last IP") & "><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """>Last IP</font></b></a></td>" & vbNewLine end if Around line 380 mM_POSTS = 13 mM_LASTPOSTDATE = 14 mM_LASTHEREDATE = 15 mM_DATE = 16 mM_LAST_IP = 17 Around line 410 Members_MemberTitle = arrMemberData(mM_TITLE, iMember) Members_MemberPosts = arrMemberData(mM_POSTS, iMember) Members_MemberLastPostDate = arrMemberData(mM_LASTPOSTDATE, iMember) Members_MemberLastHereDate = arrMemberData(mM_LASTHEREDATE, iMember) Members_MemberLastIP = arrMemberData(mM_LAST_IP, iMember) Members_MemberDate = arrMemberData(mM_DATE, iMember) Around line 480 if mlev = 4 or mlev = 3 then Response.Write " <td bgcolor=""" & CColor & """ align=""center"" nowrap><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strForumFontColor & """>" & ChkDate(Members_MemberLastHereDate,"",false) & "</font></td>" end if if mlev = 4 or mlev = 3 then Response.Write " <td bgcolor=""" & CColor & """ align=""center"" nowrap><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strForumFontColor & """>" & Members_MemberLastIP & "</font></td>" end if < [/quote]   Check here to include your profile signature. Check here to subscribe to this topic.