ok this is what I used on mine - for some reason I didn't delete one copy of it... If the first doesn't work (it should do though) use the second. It won't show new private messages - this is done in default.asp anyway though.
' DEM --> End of Code added to show subscriptions if they exist
Response.Write " |" & vbNewline & _
" <a href="http://www.bleedinginternally.com/coldtalk/members.asp"><acronym title=""Current members of these forums..."">Members</acronym></a>" & vbNewline & _
" |" & vbNewline
If strPMStatus = "1" then
Response.Write " <a href=""http://www.bleedinginternally.com/coldtalk/pm_view.asp" if pmcount > 0 then Response.Write "(<font color=""" & strActiveLinkColor & """><b>" & pmcount & " New</b></font>)"
Response.Write "</a>" & vbNewline & _
" |" & vbNewline
end if
Response.Write " <a href=""search.asp"
Without new pm message:
' DEM --> End of Code added to show subscriptions if they exist
Response.Write " |" & vbNewline & _
" <a href="http://www.bleedinginternally.com/coldtalk/members.asp"><acronym title=""Current members of these forums..."">Members</acronym></a>" & vbNewline & _
" |" & vbNewline
If strPMStatus = "1" then
Response.Write " <a href="http://www.bleedinginternally.com/coldtalk/pm_view.asp" <acronym title=""View your Private Messages..."">Private Messages</acronym> </a>" & vbNewline & _
" |" & vbNewline
end if
Response.Write " <a href=""search.asp"
Topic Locked
Posted - 20 February 2004 : 17:47:10
