<%
'#################################################################################
'## Snitz Forums 2000 v3.4.07
'#################################################################################
'## Copyright (C) 2000-09 Michael Anderson, Pierre Gorissen,
'## Huw Reddick and Richard Kinser
'##
'## This program is free software; you can redistribute it and/or
'## modify it under the terms of the GNU General Public License
'## as published by the Free Software Foundation; either version 2
'## of the License, or (at your option) any later version.
'##
'## All copyright notices regarding Snitz Forums 2000
'## must remain intact in the scripts and in the outputted HTML
'## The "powered by" text/logo with a link back to
'## http://forum.snitz.com in the footer of the pages MUST
'## remain visible when the pages are viewed on the internet or intranet.
'##
'## This program is distributed in the hope that it will be useful,
'## but WITHOUT ANY WARRANTY; without even the implied warranty of
'## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
'## GNU General Public License for more details.
'##
'## You should have received a copy of the GNU General Public License
'## along with this program; if not, write to the Free Software
'## Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
'##
'## Support can be obtained from our support forums at:
'## http://forum.snitz.com
'##
'## Correspondence and Marketing Questions can be sent to:
'## manderson@snitz.com
'##
'#################################################################################
%>
<%
if Request.QueryString("ID") <> "" and IsNumeric(Request.QueryString("ID")) = True then
intMemberID = cLng(Request.QueryString("ID"))
else
intMemberID = 0
end if
select case Request.QueryString("mode")
case "AIM"
'## Forum_SQL
strSql = "SELECT MEMBER_ID, M_NAME, M_AIM "
strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS "
strSql = strSql & " WHERE MEMBER_ID = " & intMemberID
Set rsAIM = my_Conn.execute(strSql)
strProfileName = chkString(rsAIM("M_NAME"),"display")
strAIM_Name = chkString(rsAIM("M_AIM"),"urlpath")
Response.Write " " & strProfileName & "'s AIM Options
" & vbNewLine & _
" NOTE: You must have AOL Instant Messenger installed in order for these functions to work properly.
" & vbNewLine & _
" " & vbNewLine & _
" " & vbNewLine & _
" " & vbNewLine & _
" " & vbNewLine & _
" " & vbNewLine & _
" | Send a Message | " & vbNewLine & _
" " & vbNewLine & _
" " & vbNewLine & _
" | Open a chat room | " & vbNewLine & _
" " & vbNewLine & _
" " & vbNewLine & _
" | Add to buddy list | " & vbNewLine & _
" " & vbNewLine & _
" " & vbNewLine & _
" | " & vbNewLine & _
"
" & vbNewLine & _
"
" & vbNewLine
rsAIM.close
set rsAIM = nothing
case "ICQ"
'## Forum_SQL
strSql = "SELECT MEMBER_ID, M_NAME, M_ICQ "
strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS "
strSql = strSql & " WHERE MEMBER_ID = " & intMemberID
Set rsICQ = my_Conn.execute(strSql)
strICQ = rsICQ("M_ICQ")
rsICQ.close
set rsICQ = nothing
Response.Redirect "http://www.icq.com/people/webmsg.php?to=" & strICQ & ""
case "MSN"
'## Forum_SQL
strSql = "SELECT MEMBER_ID, M_NAME, M_MSN "
strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS "
strSql = strSql & " WHERE MEMBER_ID = " & intMemberID
Set rsMSN = my_Conn.execute(strSql)
strProfileName = chkString(rsMSN("M_NAME"), "display")
parts = split(rsMSN("M_MSN"),"@")
strtag1 = parts(0)
partss = split(parts(1),".")
strtag2 = partss(0)
strtag3 = ""
for xmsn = 1 to ubound(partss)
if strtag3 <> "" then strtag3 = strtag3 & "."
strtag3 = strtag3 & partss(xmsn)
next
Response.Write " " & vbNewLine
Response.Write " " & strProfileName & "'s MSN Messenger address:
" & vbNewLine
rsMSN.close
set rsMSN = nothing
end select
if (not(strUseExtendedProfile) and InStr(strReferer, "pop_profile.asp") <> 0) then Response.Write(" Return to " & strProfileName & "'s Profile
" & vbNewLine)
WriteFooterShort
Response.End
%>