Snitz Forums 2000 - Private Read, ICQ, AOL not workin, can't find fix

Snitz Forums 2000

Username:	Password:
Save Password
Forgot your Password?

All Forums

Help Groups for Snitz Forums 2000 Users

Help: MOD Implementation

Private Read, ICQ, AOL not workin, can't find fix

New Topic

Topic Locked

Printer Friendly

Author

Topic

acoustika
Junior Member

Denmark
311 Posts

Posted - 01 December 2003 : 18:29:38

Help ICQ and AOL are not working on my Privateread.asp
I found a fix for the same issue for Active user, and it worked, but since that is a SUB function and it i´s not I can't seem to get the code right for Privateread.asp, I have searched and only find topic's with fixes only to dead links, Anyone who can help get these functions right on private read or have a link to a fixed version???

May The Code Be With You
www.UniqueDk.dk *** The Open Forums of Denmark ***

masterao
Senior Member

Sweden
1678 Posts

Posted - 01 December 2003 : 19:07:31

Here is the code that I use in my privateread.asp for those links. Copy the code below and paste over the code in your privateread.asp:


	if strICQ = "1" then
		if Trim(strMICQ) <> "" then
					Response.Write	"                       <a href=""JavaScript:openWindow('pop_messengers.asp?mode=ICQ&ID=" & strPMFromID & "',400,400)""><img src=""http://online.mirabilis.com/scripts/online.dll?icq=" & strMICQ & "&img=5"" height=""15"" width=""15"" alt=""Send " & strMName & " an ICQ Message"" border=""0"" align=""absmiddle"" hspace=""6""></a>" & vbNewLine
		end if
	end if
	if (strMSN = "1") then
		if Trim(strMMSN) <> "" then
			Response.Write	"    <a href=""JavaScript:openWindow('pop_messengers.asp?mode=MSN&ID=" & strMID & "',400,400)"">" & getCurrentIcon(strIconMSNM,"Click to see " & ChkString(Member_Name,"display") & "'s MSN Messenger address","align=""absmiddle"" hspace=""6""") & "</a>" & vbNewLine
		end if
	end if
	if strYAHOO = "1" then
		if Trim(strMYahoo) <> "" then
			Response.Write	"     <a href=""JavaScript:openWindow('http://edit.yahoo.com/config/send_webmesg?.target=" & strMYahoo & "&.src=pg',400,400)"">" & getCurrentIcon(strIconYahoo,"Send a Yahoo! Message","align=""absmiddle"" hspace=""6""") & "</a>" & vbNewLine
		end if
	end if
	if (strAIM = "1") then
		if Trim(strMAIM) <> "" then
					Response.Write	"                       <a href=""JavaScript:openWindow('pop_messengers.asp?mode=AIM&ID=" & strMID & "',400,400)"">" & getCurrentIcon(strIconAIM,"Send " & ChkString(strMName,"display") & " an AOL message","align=""absmiddle"" hspace=""6""") & "</a>" & vbNewLine
		end if
	end if

Jan
===========
FR Portal Forums | Active Users 4.0.20 Mod

acoustika
Junior Member

Denmark
311 Posts

Posted - 01 December 2003 : 19:55:50

Thanks alot masterao, that did the job ;-) again you have saved me *S*

Maybe I can give a little back :-), there are a little bug in the code you posted, minor one :-)

the thing markes in read should be strMName instead for the members name to show on tooltip, I had several other places this were wrong :-)

if (strMSN = "1") then
if Trim(strMMSN) <> "" then
Response.Write " <a href=""JavaScript:openWindow('pop_messengers.asp?mode=MSN&ID=" & strMID & "',400,400)"">" & getCurrentIcon(strIconMSNM,"Click to see " & ChkString(Member_Name,"display") & "'s MSN Messenger address","align=""absmiddle"" hspace=""6""") & "</a>" & vbNewLine
end if
end if

May The Code Be With You
www.UniqueDk.dk *** The Open Forums of Denmark ***

masterao
Senior Member

Sweden
1678 Posts

Posted - 01 December 2003 : 20:14:54

Thanks for the heads up, acoustika. I must have missed to change it when I updated that section.

Jan
===========
FR Portal Forums | Active Users 4.0.20 Mod

Topic

New Topic

Topic Locked

Printer Friendly

Jump To:

Snitz Forums 2000

This page was generated in 0.73 seconds.