Snitz Forums 2000
Snitz Forums 2000
Home | Profile | Register | Active Topics | Members | Search | FAQ
Username:
 Password:
Save Password
Forgot your Password?

 All Forums
 Help Groups for Snitz Forums 2000 Users
 Help: MOD Implementation
 To display the photo privateread.asp		  New Topic
 Printer Friendly
Author Previous Topic Topic Next Topic  

Maxime
Average Member

France
521 Posts
Posted - 31 December 2013 :  04:20:11  Show Profile  Visit Maxime's Homepage  Reply with Quote
Hello,

To display the photo of Carefree member as you did for topic.asp
But there on the page privateread.asp I do not know how

privateread.asp
<%
'#################################################################################
'## Copyright (C) 2000-01 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 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 support forums at:
'## http://forum.snitz.com 
'##
'## Correspondence and Marketing Questions can be sent to:
'## reinhold@bigfoot.com
'##
'## or
'##
'## Snitz Communications
'## C/O: Michael Anderson
'## PO Box 200
'## Harpswell, ME 04079
'#################################################################################
'##       Part of the Private Messages MOD for Snitz Forums 2000 v3.4.04        ##
'#################################################################################
%>
<!--#INCLUDE FILE="config.asp" -->
<!--#INCLUDE FILE="inc_func_common.asp" -->
<!--#INCLUDE FILE="inc_func_secure.asp" -->
<!--#INCLUDE FILE="inc_func_member.asp" -->
<!--#INCLUDE FILE="inc_header.asp" -->
<%
if strDBNTUserName = "" then
        Response.Redirect "default.asp"
        Response.End
else
	strSql = "UPDATE " & strTablePrefix & "PM SET " & strTablePrefix & "PM.M_READ = 1 WHERE (" & strTablePrefix & "PM.M_ID = " & cLng(Request.QueryString("id")) & ");"

	my_conn.Execute (strSql)

	strSql = "SELECT M.MEMBER_ID, M.M_NAME, M.M_ICQ, M.M_MSN, M.M_YAHOO, M.M_SKYPE, M.M_AIM, M.M_TITLE, M.M_LEVEL, M.M_POSTS, M.M_HOMEPAGE, M.M_COUNTRY, M.M_AVATAR_URL, M.M_PMRECEIVE, P.M_ID, P.M_TO, P.M_SUBJECT, P.M_SENT, P.M_FROM, P.M_MESSAGE FROM " & strMemberTablePrefix & "MEMBERS M , " & strTablePrefix & "PM P WHERE M.MEMBER_ID = P.M_FROM AND P.M_TO = " & getMemberID(chkString(strDBNTUserName,"SQLString")) & " AND P.M_ID = " & cLng(Request.QueryString("id"))

	Set rs = my_Conn.Execute(strSql)

	if rs.BOF or rs.EOF then
		rs.close
		set rs = nothing
		Response.Redirect("pm_view.asp")
	end if

	strSql = "UPDATE " & strTablePrefix & "PM SET " & strTablePrefix & "PM.M_READ = 1 WHERE (" & strTablePrefix & "PM.M_ID = " & cLng(Request.QueryString("id")) & ");"

	my_conn.Execute (strSql)

	strMID = rs("MEMBER_ID")
	strMName = rs("M_NAME")
	strMICQ = rs("M_ICQ")
	strMMSN = rs("M_MSN")
	strMYahoo = rs("M_YAHOO")
	strMSKYPE = rs("M_SKYPE")
	strMAIM = rs("M_AIM")
	strMTitle = rs("M_TITLE")
	strMLevel = rs("M_LEVEL")
	strMPosts = rs("M_POSTS")
	strMHomepage = rs("M_HOMEPAGE")
	strMCountry = rs("M_COUNTRY")
	strMAvatar = rs("M_AVATAR_URL")
	strPMSubject = rs("M_SUBJECT")
	strPMSent = rs("M_SENT")
	strPMFromID = rs("M_FROM")
	strPMMessage = rs("M_MESSAGE")

	rs.close
	set rs = nothing

	Response.Write	"<center>" & vbNewLine & _
			"<table border=""0"" width=""100%"" align=""center"">" & vbNewLine & _
			"  <tr>" & vbNewLine & _
			"    <td width=""33%"" align=""left"" nowrap><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine & _
			"    " & getCurrentIcon(strIconFolderOpen,"","align=""absmiddle""") & " <a href=""default.asp"">Tous Les Forums</a><br>" & vbNewLine & _
			"    " & getCurrentIcon(strIconBar,"","") & getCurrentIcon(strIconFolderOpen,"","align=""absmiddle""") & " <a href=""pm_view.asp"">Private Messages</a><br>" & vbNewLine & _
			"    " & getCurrentIcon(strIconBlank,"","align=""absmiddle""") & getCurrentIcon(strIconBar,"","") & getCurrentIcon(strIconFolderOpenTopic,"","") & " Lire Messages Privés</font></td></tr></table>" & vbNewLine 
	
	if strDBType = "access" then
		strSqL = "SELECT count(M_TO) as [pmtotal] FROM " & strTablePrefix & "PM P," & strMemberTablePrefix & "MEMBERS M WHERE M.M_NAME = '" & strDBNTUserName & "' AND M.MEMBER_ID = P.M_TO"
	else
        	strSqL = "SELECT count(M_TO) as pmtotal FROM " & strTablePrefix & "PM P," & strMemberTablePrefix & "MEMBERS M WHERE M.M_NAME = '" & strDBNTUserName & "' AND M.MEMBER_ID = P.M_TO"
    end if

	
	Set rsPM = my_Conn.Execute(strSql)
	pmtotal = rsPM("pmtotal")
	
	rsPM.close
	set rsPM = nothing

Response.Write    " <table border=""0"" width=""100%"" cellspacing=""0"" cellpadding=""1"" bgcolor=""" & strTableBorderColor & """>" & vbNewLine & _
			" <tr>" & vbNewLine & _
  			" <td width=""100%"">" & vbNewLine & _
      		" <table border=""0"" width=""100%"" bgcolor=""" & strPopUpTableColor & """ cellspacing=""0"" cellpadding=""0"">"  & vbNewLine & _
			" <tr>" & vbNewLine & _
  			" <td width=""50%"" align=""center"">" & vbNewLine
	If pmtotal = strPMLimit or pmtotal > strPMLimit then
		Response.Write ("<center><b><font face=""" & strDefaultFontFace & """ color=""" & StrHiLiteFontColor & """ size=""" & strFooterFontSize & """>Vous avez atteint votre limite des messages privés de " & strPMLimit & ".<br>Pour envoyer d'autres messages privés que vous devez nettoyer votre boîte de réception.</font></center>")
	else
		Response.Write ("<center><b><font face=""" & strDefaultFontFace & """ color=""" & strDefaultFontColor & """ size=""" & strFooterFontSize & """>Vous avez actuellement " & pmtotal & " messages privés enregistrés.<br>Votre limite de la boîte de réception est de " & strPMLimit & ".<br>S'il vous plaît supprimer vos messages une fois que vous les avez lues.</font></center>")
	end if
Response.Write 	" </td>" & vbNewLine & _
			" <td width=""50%"" align=""right"">" & vbNewLine

	if strDBType = "access" then
		strSqL = "SELECT count(M_TO) as [pmcount] FROM " & strTablePrefix & "PM P," & strMemberTablePrefix & "MEMBERS M WHERE M.M_NAME = '" & strDBNTUserName & "' AND M.MEMBER_ID = P.M_TO"
	else
        	strSqL = "SELECT count(M_TO) as pmcount FROM " & strTablePrefix & "PM P," & strMemberTablePrefix & "MEMBERS M WHERE M.M_NAME = '" & strDBNTUserName & "' AND M.MEMBER_ID = P.M_TO"
    end if     
	
	Set rsPM = my_Conn.Execute(strSql)
	pmcount = rsPM("pmcount")
	
	rsPM.close
	set rsPM = nothing

Response.Write 	"<a href=""pm_view.asp"">" & getCurrentIcon(strIconpmreceive,"Vérifier les Nouveaux Messages","hspace=""0""") & "</a>" 
	If pmcount < strPMLimit or mLev > 2 then 
	Response.Write "<a href=""privatesend.asp?method=Reply&id=" & cLng(Request.QueryString("id")) & """>" & getCurrentIcon(strIconpmreply,"Envoyer une Réponse","hspace=""0""") & "</a><a href=""privatesend.asp?method=Forward&id=" & cLng(Request.QueryString("id")) & """>" & getCurrentIcon(strIconpmforward,"Transférez ce message","hspace=""0""") & "</a>"
	end if 
	Response.Write "<a href=""pm_blocklist.asp?mname="&ChkString(strMName,"display")&""">" & getCurrentIcon(strIconPmblocklist,"Ajouter "&ChkString(strMName,"display")&" A Votre Liste de Blocage","hspace=""0""") & "</a>"& _
					"<a href=""JavaScript:openWindow3('privateprint.asp?id=" & cLng(Request.QueryString("id")) & "')"">"& getCurrentIcon(strIconpmprint,"Imprimer Ce Message","hspace=""0""") & "</a>"& _
					"<a href=""privatedelete.asp?method=DeleteMessage&id=" & cLng(Request.QueryString("id")) & """>" & getCurrentIcon(strIconpmdelete,"Supprimer Ce Message","hspace=""0""") & "</a></td>" & vbNewLine & _

			" </tr>" & vbNewLine & _
			" </table>" & vbNewLine & _
			" </td>" & vbNewLine & _
			" </tr>" & vbNewLine & _
			" </table>" & vbNewLine & _
			" <table border=""0"" cellspacing=""0"" cellpadding=""0"">" & vbNewLine & _
			" <tr>" & vbNewLine & _
			" <td height=""10"">" & vbNewLine & _
			" </td>" & vbNewLine & _
			" </tr>" & vbNewLine & _
			" </table>" & vbNewLine

	Response.Write	"<table width=""100%"" border=""0"" cellspacing=""1"" cellpadding=""4"" bgcolor=""" & strTableBorderColor & """>" & vbNewLine & _
			"  <tr>" & vbNewLine & _
			"    <td align=""center"" bgcolor=""" & strHeadCellColor & """ width=""" & strTopicWidthLeft & """"
	if lcase(strTopicNoWrapLeft) = "1" then
		Response.Write(" nowrap")
	end if
	Response.Write	"><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """>Epéditeur</font></b></td>" & vbNewLine & _
			"    <td align=""left"" bgcolor=""" & strHeadCellColor & """ width=""" & strTopicWidthRight & """"
	if lcase(strTopicNoWrapRight) = "1" then
		Response.Write(" nowrap")
	end if
	Response.Write	"><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """>Objet:  " & strPMSubject & "</font></b></td>" & vbNewLine & _
			"  </tr>" & vbNewLine & _
			"  <tr>" & vbNewLine & _
			"    <td bgcolor=""" & strForumFirstCellColor & """ valign=""top"">" & vbNewLine
	if strUseExtendedProfile then
		Response.Write	"<a href=""pop_profile.asp?mode=display&id=" & strPMFromID & """>"
	else
		Response.Write	"<a href=""JavaScript:openWindow3('pop_profile.asp?mode=display&id=" & strPMFromID & "')"">"
	end if
	Response.Write	"    <p><font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>" & ChkString(strMName,"display") & "</a></b></font><br>" & vbNewLine
	if strShowRank = 1 or strShowRank = 3 then
		Response.Write	"    <font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>" & ChkString(getMember_Level(strMTitle, strMLevel, strMPosts),"display") & "</font><br>" & vbNewLine
	end if
	if strShowRank = 2 or strShowRank = 3 then
		Response.Write	"    " & getStar_Level(strMLevel, strMPosts) & "<br>" & vbNewLine
	end if
 	Response.Write	"                </p>" & vbNewLine & _
			"                <p>" & vbNewLine
		 	if strMAvatar <> "noavatar.gif" then
		 		    response.write"		<img src=""" & strMAvatar & """ width=""" & intAvatarWidth & """ height=""" & intAvatarHeight & """ border=""" & intAvatarBorder & """><br />"
		 	end if
	Response.Write	"    <br>" & vbNewLine & _

			"    <p><font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>" & strMCountry & "</small></font><br /><img src=""" & strImageURL & strMCountry & ".gif""><br />" & vbNewLine & _
			"    <font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>" & strMPosts & " Messages</font></p></td>" & vbNewLine & _
			"    <td bgcolor=""" & strForumFirstCellColor & """ valign=""top"">" & vbNewLine & _
			"    " & getCurrentIcon(strIconPosticon,"","") & "<font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>Envoyé Le - " & ChkDate(strPMSent, " : " ,true) & "  " & "</font>" & vbNewLine
	if strUseExtendedProfile then
		Response.Write	"     <a href=""pop_profile.asp?mode=display&id=" & strMID & """>" & getCurrentIcon(strIconProfile,"Apercu Profil","hspace=""0""") & "</a>" & vbNewLine
	else
		Response.Write	"     <a href=""JavaScript:openWindow3('pop_profile.asp?mode=display&id=" & strMID & "')"">" & getCurrentIcon(strIconProfile,"Aperçu Profil","hspace=""0""") & "</a>" & vbNewLine
	end if
	if (lcase(strEmail) = "1") then
		Response.Write	"     <a href=""JavaScript:openWindow('pop_mail.asp?id=" & strPMFromID & "')"">" & getCurrentIcon(strIconEmail,"Envoyer Email","align=""absmiddle"" hspace=""6""") & "</a>" & vbNewLine
	end if
	If pmcount < strPMLimit or mLev > 2 then 
	Response.Write	"     <a href=""privatesend.asp?method=ReplyQuote&id=" & cLng(Request.QueryString("id")) & """>" & getCurrentIcon(strIconReplyTopic,"Répondre Avec Citation","align=""absmiddle"" hspace=""6""") & "</a>" & vbNewLine
	end if
	if strHomepage = "1" then
		if strMHomepage <> " " then
			Response.Write	"     <a href=""" & strMHomepage & """>" & getCurrentIcon(strIconHomepage,"Visit " & ChkString(Member_Name,"display") & "'Site Web","align=""absmiddle"" hspace=""6""") & "</a>" & vbNewLine
		end if
	end if
	if strICQ = "1" then
		if strMICQ <> " " then
			Response.Write	"     <a href=""JavaScript:openWindow('pop_messengers.asp?mode=ICQ&ICQ=" & strMICQ & "&M_NAME=" & ChkString(strMName,"urlpath") & "')""><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 (strMMSN <> " ") then
			Response.Write	"    <a href=""JavaScript:openWindow('pop_messengers.asp?mode=MSN&ID=" & strMID & "')"">" & getCurrentIcon(strIconMSNM,"Cliquer Ici " & ChkString(Member_Name,"display") & "  Adresse MSN Messenger","align=""absmiddle"" hspace=""6""") & "</a>" & vbNewLine
		end if
	end if
	if strSKYPE = "1" then
		if (strMSKYPE <> " ") then
					Response.Write	"                       <a href=""JavaScript:openWindow('pop_messengers.asp?mode=SKYPE&ID=" & strMID & "')"">" & getCurrentIcon(strIconSKYPE,"Afficher l'adresse téléphone Skype " & ChkString(Reply_MemberName,"display") & "","align=""absmiddle"" hspace=""6""") & "</a>" & vbNewLine
		end if
	end if
	if strYAHOO = "1" then
		if strMYahoo <> " " then
			Response.Write	"     <a href=""JavaScript:openWindow('http://edit.yahoo.com/config/send_webmesg?.target=" & strMYahoo & "&.src=pg')"">" & getCurrentIcon(strIconYahoo,"Envoyer Message Yahoo!","align=""absmiddle"" hspace=""6""") & "</a>" & vbNewLine
		end if
	end if
	if (strAIM = "1") then
		if strMAIM <> " " then
			Response.Write	"     <a href=""JavaScript:openWindow('pop_messengers.asp?mode=AIM&AIM=" & strMAIM & "&M_NAME=" & ChkString(strMName,"urlpath") & "')"">" & getCurrentIcon(strIconAIM,"Envoyer Message AOL","align=""absmiddle"" hspace=""6""") & "</a>" & vbNewLine
		end if
	end if
Response.Write	"<a href=""privatedelete.asp?method=DeleteMessage&id=" & cLng(Request.QueryString("id")) & """>" & getCurrentIcon(strIconDeleteReply,"Supprimer Ce Message","align=""absmiddle"" hspace=""6""") & "</a>" & vbNewLine
	Response.Write	"    <hr noshade size=""1"">" & vbNewLine & _
			"    <font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & formatStr(strPMMessage) & "</font></td>" & vbNewLine & _
			"  </tr>" & vbNewLine & _
			"</table>" & vbNewLine & _
			"</center>" & vbNewLine
end if
Response.Write	"<br>" & vbNewLine
WriteFooter
Response.End
%>
Cordially,
Maxime

Taxation consists in so plucking the goose to get the most out of feathers with the least possible cries.(Jean-Baptiste Colbert)

Carefree
Advanced Member

Philippines
4207 Posts
Posted - 31 December 2013 :  06:04:25  Show Profile
Not sure which mod you are referring to. Please post a link to the topic so I can refresh my failing memory.
Go to Top of Page

Maxime
Average Member

France
521 Posts
Posted - 31 December 2013 :  07:28:20  Show Profile  Visit Maxime's Homepage
Here Carefree

http://forum.snitz.com/forum/topic.asp?TOPIC_ID=70650
Cordially,
Maxime

Taxation consists in so plucking the goose to get the most out of feathers with the least possible cries.(Jean-Baptiste Colbert)
Go to Top of Page
  Previous Topic Topic Next Topic  
 New Topic
 Printer Friendly
Jump To:
Snitz Forums 2000 © 2000-2021 Snitz™ Communications Go To Top Of Page
This page was generated in 0.21 seconds. Powered By: Snitz Forums 2000 Version 3.4.07