Couldn't find it but seen it like it so I wrote mine first mod
it read the ACTIVE_USERS Table and the AU_QUERYSTRING Field
it Will add Also here: user,user,user and you
or Also here: just you
to the folders tree of the forum
Add the Icon to the inc_iconfile.asp
Const StrIconMember = "icon_member.gif|15|15"
add this Function to inc_func_member.asp
Mark 2 Version
my user ask if they could click and see the other user profies
added
, " & strTablePrefix & "MEMBERS.MEMBER_ID "] to SQL
Temp =""
Anker = "<a href=" & chr(34) & "JavaScript:viewfull('pop_profile_short.asp?mode=display&id=" & objRS("MEMBER_ID") & "')" & chr(34) & ">"
can never get the """"""!!! right so i use the chr(34)
edited this line
User_line = User_line & Anker & objRS("M_NAME") & "</a> , "
or just replace the function
just check that there is the java pop window viewfull is there
Function Show_Active_User_Line(Where)
Dim SQLLINE
Dim User_Line
SQLLINE = ""
SQLLINE = SQLLINE & "SELECT " & strTablePrefix & "MEMBERS.M_NAME, " & strTablePrefix & "MEMBERS.MEMBER_ID "
SQLLINE = SQLLINE & " FROM " & strTablePrefix & "ACTIVE_USERS INNER JOIN " & strTablePrefix & "MEMBERS ON " & strTablePrefix & "ACTIVE_USERS.MEMBER_ID = " & strTablePrefix & "MEMBERS.MEMBER_ID"
SQLLINE = SQLLINE & " WHERE " & strTablePrefix & "ACTIVE_USERS.AU_QUERYSTRING ='" & where & "'"
'Response.Write SQLLINE
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open strConnString
Set objRS = objConn.Execute(SQLLINE)
User_line = ""
Temp =""
While Not objRS.EOF
if lcase(strDBNTUserName) <> lcase(objRS("M_NAME")) then
Anker = "<a href=" & chr(34) & "JavaScript:viewfull('pop_profile_short.asp?mode=display&id=" & objRS("MEMBER_ID") & "')" & chr(34) & ">"
User_line = User_line & Anker & objRS("M_NAME") & "</a> , "
else
End if
objRS.MoveNext()
Wend
IF User_line <> "" then
User_line = mid(User_line,1,len(User_line)-3)
User_line = User_line & " And "
else
User_line = "just "
end if
User_line ="Also here: " & User_line & " You"
Set objRS = Nothing
objConn.Close()
Show_Active_User_Line = User_line
End Function
edit forum.asp
find
if Cat_Status <> 0 and Forum_Status <> 0 then
Response.Write getCurrentIcon(strIconFolderOpenTopic,"","align=""absmiddle""")
else
Response.Write getCurrentIcon(strIconFolderClosedTopic,"","align=""absmiddle""")
end if
end if
Response.Write " <a href=""forum.asp?" & ArchiveLink & "FORUM_ID=" & Forum_ID & """>" & ChkString(Forum_Subject,"display") & "</a><br>" & vbNewLine
after that paste
'##################ALSO HERE######################################################
Response.Write getCurrentIcon(strIconBlank,"","align=""absmiddle""") & getCurrentIcon(strIconBlank,"","align=""absmiddle""") & getCurrentIcon(strIconBar,"","align=""absmiddle""")
Response.Write getCurrentIcon(StrIconMember,"","align=""absmiddle""") & Show_Active_User_Line("FORUM_ID=" & Forum_ID) &"</font>"
'##################ALSO HERE#############################################
edit topic.asp
find
if ArchiveView = "true" then
Response.Write " " & getCurrentIcon(strIconBlank,"","align=""absmiddle""") & getCurrentIcon(strIconBlank,"","align=""absmiddle""") & getCurrentIcon(strIconBar,"","align=""absmiddle""") & getCurrentIcon(strIconFolderArchived,"","align=""absmiddle""") & " "
elseif Cat_Status <> 0 and Forum_Status <> 0 and Topic_Status <> 0 then
Response.Write " " & getCurrentIcon(strIconBlank,"","align=""absmiddle""") & getCurrentIcon(strIconBlank,"","align=""absmiddle""") & getCurrentIcon(strIconBar,"","align=""absmiddle""") & getCurrentIcon(strIconFolderOpenTopic,"","align=""absmiddle""") & " "
else
Response.Write " " & getCurrentIcon(strIconBlank,"","align=""absmiddle""") & getCurrentIcon(strIconBlank,"","align=""absmiddle""") & getCurrentIcon(strIconBar,"","align=""absmiddle""") & getCurrentIcon(strIconFolderClosedTopic,"","align=""absmiddle""") & " "
end if
end if
if Request.QueryString("SearchTerms") <> "" then
Response.Write SearchHiLite(ChkString(Topic_Subject,"title"))
else
Response.Write ChkString(Topic_Subject,"title")
end if
after that paste
'###############ALSO HERE#########################################################
Response.Write "<BR>" & getCurrentIcon(strIconBlank,"","align=""absmiddle""")&getCurrentIcon(strIconBlank,"","align=""absmiddle""") & getCurrentIcon(strIconBlank,"","align=""absmiddle""") & getCurrentIcon(strIconBar,"","align=""absmiddle""")
Response.Write getCurrentIcon(StrIconMember,"","align=""absmiddle""") & " " & Show_Active_User_Line("TOPIC_ID=" & Topic_ID) &"</font>"
'###############ALSO HERE#########################################################
just check the forum.asp and the topic.asp
has the
<!--#INCLUDE FILE="inc_func_member.asp"-->
here is the pop_profile_short.asp it also put the stars next to there name
have cut out all the other code
http://www.myle.co.nz/updates/pop_profile_short.zip
That it Done
injoy
hay thanks for the thanks
Topic Locked
Posted - 16 March 2004 : 15:08:55
lol
