Add two fields to your forum_members and forum_members_pending table. #1 m_profile_update char(14) and #2 m_profile_viewcount int. You'll want a default value of 0 for the viewcount and should update all previous members with 0. Update the profileupdate column for previous members with the value in m_date.
Replace line #1240 in pop_profile.asp
Before:
----------
end if
strSql = strSql & " WHERE M_NAME = '" & ChkString(Request.Form("Name"), "SQLString") & "' "
----------
After:
----------
end if
strSql = strSql & ", M_PROFILEUPDATE_DT = '" & DateToStr(strForumTimeAdjust) & "'"
strSql = strSql & " WHERE M_NAME = '" & ChkString(Request.Form("Name"), "SQLString") & "' "
----------
Replace line #225 in pop_profile.asp
Before:
----------
else
strMyHobbies = rs("M_HOBBIES")
----------
After:
----------
else
strSql = "UPDATE " & strMemberTablePrefix & "MEMBER "
strSql = strSql & " SET M_PROFILE_VIEWCOUNT = (M_PROFILE_VIEWCOUNT + 1) "
strSql = strSql & " WHERE (MEMBER_ID = " & ppMember_ID & ")"
my_conn.Execute (strSql),,adCmdText + adExecuteNoRecords
strMyHobbies = rs("M_HOBBIES")
----------
Replace line #83 in register.asp
Before:
----------
", M_BIO, M_HOBBIES, M_LNEWS, M_QUOTE, M_SHA256" & _
----------
After:
----------
", M_BIO, M_HOBBIES, M_LNEWS, M_QUOTE, M_SHA256, M_PROFILE_VIEWCOUNT, M_PROFILE_UPDATE" & _
----------
Replace line #180 and line #566 in register.asp
Before:
----------
strSql = strSql & ")"
----------
After:
----------
strSql = strSql & ", 0"
strSql = strSql & ", '" & DateToStr(strForumTimeAdjust) & "'"
strSql = strSql & ")"
----------
Replace line #140 and line #433 in register.asp
Before:
----------
strSql = strSql & ") "
----------
After:
----------
strSql = strSql & ", M_PROFILE_VIEWCOUNT"
strSql = strSql & ", M_PROFILE_UPDATE"
strSql = strSql & ") "
----------
All line number references are before changes are made. I don't think I missed anything, but implement and use at your own risk.
Topic Locked
Posted - 02 September 2004 : 10:42:00
