To get the icon and link to work on active_users, do this:
@Line 128
'## Ls3k - Get Online Members information, and print whatever we get
strSql = "SELECT ME.MEMBER_ID, ME.M_NAME, ME.M_AUHIDE, AU.AU_IP, AU.AU_LOGINTIME, AU.AU_LASTACTIVETIME, AU.AU_LASTPAGE, ME.M_ICQ, ME.M_YAHOO, ME.M_AIM, ME.M_MSN, ME.M_SKYPE, ME.M_LEVEL, AU.AU_QUERYSTRING, AU.AU_USER_AGENT " & _
Add the bit in red.
Bottom of page before:
end sub
%>
Add this:
if strSKYPE = "1" and Trim(rsAM("M_SKYPE")) <> "" then
Response.Write " <a href=""callto://" & ChkString(rsAM("M_SKYPE"),"display") & """>" & getCurrentIcon(strIconSKYPE,"Call " & ChkString(rsAM("M_NAME"),"display"),"align=""absmiddle"" hspace=""0""") & "</a>" & vbNewLine
end if
That's it!