| Author |
 Topic  |
|
|
Maxime
Average Member
France
521 Posts |
 Posted - 21 December 2013 : 09:07:39
|
Hello as I can not put both on the same page here on two different positions errors I meet with private messages
Microsoft VBScript compilation error error '800a03ea '
Syntax error
/ privateread.asp, line 220
end if
privateread.asp, line 220
<%
'#################################################################################
'## 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.03 ##
'#################################################################################
%>
<!--#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_SKYPE, M.M_YAHOO, M.M_AIM, M.M_TITLE, M.M_LEVEL, M.M_POSTS, M.M_HOMEPAGE, M.M_COUNTRY, 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")
strMSKYPE = rs("M_SKYPE")
strMYahoo = rs("M_YAHOO")
strMAIM = rs("M_AIM")
strMTitle = rs("M_TITLE")
strMLevel = rs("M_LEVEL")
strMPosts = rs("M_POSTS")
strMHomepage = rs("M_HOMEPAGE")
strMCountry = rs("M_COUNTRY")
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<br><br></font></td>" & vbNewLine & _
" <td colspan=""2"" align=""right"" valign=""bottom""><a href=""pm_view.asp"">" & getCurrentIcon(strIconpmreceive,"Vérifier les nouveaux messages","hspace=""0""") & "</a>"
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
If pmcount < strPMLimit or mLev > 2 then
Response.Write "<a href=""privatesend.asp?method=Reply&id=" & cLng(Request.QueryString("id")) & """>" & getCurrentIcon(strIconpmreply,"Poster Un Commentaire","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=""privatedelete.asp?method=DeleteMessage&id=" & cLng(Request.QueryString("id")) & """>" & getCurrentIcon(strIconpmdelete,"Supprimer Ce Message","hspace=""0""") & "</a></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 & """>à partir de</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><br>" & vbNewLine & _
" <p><font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>" & strMCountry & "</font><br>" & vbNewLine & _
" <font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>" & strMPosts & " Postes</font></p></td>" & vbNewLine & _
" <td bgcolor=""" & strForumFirstCellColor & """ valign=""top"">" & vbNewLine & _
" " & getCurrentIcon(strIconPosticon,"","") & "<font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>Sent - " & ChkDate(strPMSent, " : " ,true) & " " & "</font>" & vbNewLine
if strUseExtendedProfile then
Response.Write " <a href=""pop_profile.asp?mode=display&id=" & strMID & """>" & getCurrentIcon(strIconProfile,"Aperçu 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,"Email Poster","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éponse 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 strAIM = "1" and Trim(rs("M_AIM")) <> "" then
strContacts = strContacts + 1
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=""right"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>AIM: </font></b></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & getCurrentIcon(strIconAIM,"","align=""absmiddle""") & " <a href=""" & strIMURL1 & "pop_messengers.asp?mode=AIM&ID=" & rs("MEMBER_ID") & strIMURL2 & """>" & ChkString(rs("M_AIM"), "display") & "</a> </font></td>" & vbNewLine & _
" </tr>" & vbNewLine
end if
if strICQ = "1" and Trim(rs("M_ICQ")) <> "" then
strContacts = strContacts + 1
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=""right"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>ICQ: </font></b></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & getCurrentIcon("http://online.mirabilis.com/scripts/online.dll?icq=" & ChkString(rs("M_ICQ"), "urlpath") & "&img=5|18|18","","align=""absmiddle""") & " <a href=""" & strICQURL & "pop_messengers.asp?mode=ICQ&ID=" & rs("MEMBER_ID") & strIMURL2 & """>" & ChkString(rs("M_ICQ"), "display") & "</a> </font></td>" & vbNewLine & _
" </tr>" & vbNewLine
end if
if strMSN = "1" and Trim(rs("M_MSN")) <> "" then
strContacts = strContacts + 1
parts = split(rs("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 " <script language=""javascript"" type=""text/javascript"">" & vbNewLine & _
" function MSNjs() {" & vbNewLine & _
" var tag1 = '" & strtag1 & "';" & vbNewLine & _
" var tag2 = '" & strtag2 & "';" & vbNewLine & _
" var tag3 = '" & strtag3 & "';" & vbNewLine & _
" document.write(tag1 + ""@"" + tag2 + ""."" + tag3) }" & vbNewLine & _
" </script>" & vbNewLine
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=""right"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>MSN: </font></b></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & getCurrentIcon(strIconMSNM,"","align=""absmiddle""") & " <script language=""javascript"" type=""text/javascript"">MSNjs()</script> </font></td>" & vbNewLine & _
" </tr>" & vbNewLine
end if
if strSKYPE = "1" and Trim(rs("M_SKYPE")) <> "" then
strContacts = strContacts + 1
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=""right"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Skype: </font></b></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><script type=""text/javascript"" src=""http://download.skype.com/share/skypebuttons/js/skypeCheck.js""></script><a href=""skype:" & ChkString(rs("M_SKYPE"), "urlpath") & "?call""><img src=""http://mystatus.skype.com/smallclassic/" & ChkString(rs("M_SKYPE"), "urlpath") & """ style=""border: none;"" width=""114"" height=""20"" alt=""My status"" /></a></font></td>" & vbNewLine & _
" </tr>" & vbNewLine
end if
if strYAHOO = "1" and Trim(rs("M_YAHOO")) <> "" then
strContacts = strContacts + 1
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=""right"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>YAHOO: </font></b></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><a href=""http://edit.yahoo.com/config/send_webmesg?.target=" & ChkString(rs("M_YAHOO"), "urlpath") & "&.src=pg"" target=""_blank"">" & getCurrentIcon("http://opi.yahoo.com/online?u=" & ChkString(rs("M_YAHOO"), "urlpath") & "&m=g&t=2|125|25","","") & "</a> </font></td>" & vbNewLine & _
end if
end if
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 - 21 December 2013 : 09:19:07
|
At the end of line 219, delete the last three characters.
& _ |
 |
|
|
Maxime
Average Member
France
521 Posts |
Posted - 21 December 2013 : 10:20:16
|
Carefree thank you, I have still a line 227 error page same as above
Microsoft VBScript compilation error '800a03ea '
Syntax error
/ privateread.asp, line 227
end if
|
Cordially,
Maxime
Taxation consists in so plucking the goose to get the most out of feathers with the least possible cries.(Jean-Baptiste Colbert)
|
Edited by - Maxime on 21 December 2013 10:21:42 |
|
|
|
Carefree
Advanced Member
Philippines
4207 Posts |
Posted - 21 December 2013 : 10:51:20
|
It doesn't belong there. Try this:
<%
'#################################################################################
'## 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.03 ##
'#################################################################################
%>
<!--#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"
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_SKYPE, M.M_YAHOO, M.M_AIM, M.M_TITLE, M.M_LEVEL, M.M_POSTS, M.M_HOMEPAGE, M.M_COUNTRY, 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
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")
strMSKYPE = rs("M_SKYPE")
strMYahoo = rs("M_YAHOO")
strMAIM = rs("M_AIM")
strMTitle = rs("M_TITLE")
strMLevel = rs("M_LEVEL")
strMPosts = rs("M_POSTS")
strMHomepage = rs("M_HOMEPAGE")
strMCountry = rs("M_COUNTRY")
strPMSubject = rs("M_SUBJECT")
strPMSent = rs("M_SENT")
strPMFromID = rs("M_FROM")
strPMMessage = rs("M_MESSAGE")
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<br><br></font></td>" & vbNewLine & _
" <td colspan=""2"" align=""right"" valign=""bottom""><a href=""pm_view.asp"">" & getCurrentIcon(strIconpmreceive,"Vérifier les nouveaux messages","hspace=""0""") & "</a>"
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)
If not rsPM.EOF Then
pmcount = rsPM("pmcount")
rsPM.Close
End If
Set rsPM=Nothing
If pmcount < strPMLimit or mLev > 2 then
Response.Write "<a href=""privatesend.asp?method=Reply&id=" & cLng(Request.QueryString("id")) & """>" & getCurrentIcon(strIconpmreply,"Poster Un Commentaire","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=""privatedelete.asp?method=DeleteMessage&id=" & cLng(Request.QueryString("id")) & """>" & getCurrentIcon(strIconpmdelete,"Supprimer Ce Message","hspace=""0""") & "</a></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 & """>à partir de</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><br>" & vbNewLine & _
" <p><font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>" & strMCountry & "</font><br>" & vbNewLine & _
" <font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>" & strMPosts & " Postes</font></p></td>" & vbNewLine & _
" <td bgcolor=""" & strForumFirstCellColor & """ valign=""top"">" & vbNewLine & _
" " & getCurrentIcon(strIconPosticon,"","") & "<font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>Sent - " & ChkDate(strPMSent, " : " ,true) & " " & "</font>" & vbNewLine
if strUseExtendedProfile then
Response.Write " <a href=""pop_profile.asp?mode=display&id=" & strMID & """>" & getCurrentIcon(strIconProfile,"Aperçu 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,"Email Poster","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éponse 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 strAIM = "1" and Trim(rs("M_AIM")) <> "" then
strContacts = strContacts + 1
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=""right"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>AIM: </font></b></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & getCurrentIcon(strIconAIM,"","align=""absmiddle""") & " <a href=""" & strIMURL1 & "pop_messengers.asp?mode=AIM&ID=" & rs("MEMBER_ID") & strIMURL2 & """>" & ChkString(rs("M_AIM"), "display") & "</a> </font></td>" & vbNewLine & _
" </tr>" & vbNewLine
end if
if strICQ = "1" and Trim(rs("M_ICQ")) <> "" then
strContacts = strContacts + 1
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=""right"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>ICQ: </font></b></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & getCurrentIcon("http://online.mirabilis.com/scripts/online.dll?icq=" & ChkString(rs("M_ICQ"), "urlpath") & "&img=5|18|18","","align=""absmiddle""") & " <a href=""" & strICQURL & "pop_messengers.asp?mode=ICQ&ID=" & rs("MEMBER_ID") & strIMURL2 & """>" & ChkString(rs("M_ICQ"), "display") & "</a> </font></td>" & vbNewLine & _
" </tr>" & vbNewLine
end if
if strMSN = "1" and Trim(rs("M_MSN")) <> "" then
strContacts = strContacts + 1
parts = split(rs("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 " <script language=""javascript"" type=""text/javascript"">" & vbNewLine & _
" function MSNjs() {" & vbNewLine & _
" var tag1 = '" & strtag1 & "';" & vbNewLine & _
" var tag2 = '" & strtag2 & "';" & vbNewLine & _
" var tag3 = '" & strtag3 & "';" & vbNewLine & _
" document.write(tag1 + ""@"" + tag2 + ""."" + tag3) }" & vbNewLine & _
" </script>" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=""right"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>MSN: </font></b></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & getCurrentIcon(strIconMSNM,"","align=""absmiddle""") & " <script language=""javascript"" type=""text/javascript"">MSNjs()</script> </font></td>" & vbNewLine & _
" </tr>" & vbNewLine
end if
if strSKYPE = "1" and Trim(rs("M_SKYPE")) <> "" then
strContacts = strContacts + 1
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=""right"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Skype: </font></b></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><script type=""text/javascript"" src=""http://download.skype.com/share/skypebuttons/js/skypeCheck.js""></script><a href=""skype:" & ChkString(rs("M_SKYPE"), "urlpath") & "?call""><img src=""http://mystatus.skype.com/smallclassic/" & ChkString(rs("M_SKYPE"), "urlpath") & """ style=""border: none;"" width=""114"" height=""20"" alt=""My status"" /></a></font></td>" & vbNewLine & _
" </tr>" & vbNewLine
end if
if strYAHOO = "1" and Trim(rs("M_YAHOO")) <> "" then
strContacts = strContacts + 1
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=""right"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>YAHOO: </font></b></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><a href=""http://edit.yahoo.com/config/send_webmesg?.target=" & ChkString(rs("M_YAHOO"), "urlpath") & "&.src=pg"" target=""_blank"">" & getCurrentIcon("http://opi.yahoo.com/online?u=" & ChkString(rs("M_YAHOO"), "urlpath") & "&m=g&t=2|125|25","","") & "</a> </font></td>" & vbNewLine
end if
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
rs.close
Set rs=Nothing
Response.Write "<br>" & vbNewLine
WriteFooter
Response.End
%>
|
Edited by - Carefree on 21 December 2013 16:10:57 |
|
|
|
Maxime
Average Member
France
521 Posts |
Posted - 21 December 2013 : 11:44:28
|
My poor Carefree still a mistake, I can not read private messages. You have to see if the rest of the code is good.
Error Microsoft VBScript runtime error '800a000d '
Incompatible type 'rs'
/ privateread.asp, line 153
 |
Cordially,
Maxime
Taxation consists in so plucking the goose to get the most out of feathers with the least possible cries.(Jean-Baptiste Colbert)
|
Edited by - Maxime on 21 December 2013 14:21:25 |
|
|
|
Carefree
Advanced Member
Philippines
4207 Posts |
Posted - 21 December 2013 : 16:11:21
|
| Edited above. Please try again. |
|
|
|
Maxime
Average Member
France
521 Posts |
Posted - 21 December 2013 : 17:06:24
|
A big thank you and Merry Christmas Carefree
There is still a small problem. If there is a skype or icq, aim the message I get I address, the message text is displayed outside of the box.
see the red arrow.
Otherwise if not you address icq, skype etc.. This is displayed correctly in the box
Or there is the red arrow
 |
Cordially,
Maxime
Taxation consists in so plucking the goose to get the most out of feathers with the least possible cries.(Jean-Baptiste Colbert)
|
Edited by - Maxime on 21 December 2013 18:07:51 |
|
|
|
Carefree
Advanced Member
Philippines
4207 Posts |
Posted - 22 December 2013 : 03:05:27
|
OK - redid the tabling. Try this:
<%
'#################################################################################
'## 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.03 ##
'#################################################################################
%>
<!--#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"
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_SKYPE, M.M_YAHOO, M.M_AIM, M.M_TITLE, M.M_LEVEL, M.M_POSTS, M.M_HOMEPAGE, M.M_COUNTRY, 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
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")
strMSKYPE = rs("M_SKYPE")
strMYahoo = rs("M_YAHOO")
strMAIM = rs("M_AIM")
strMTitle = rs("M_TITLE")
strMLevel = rs("M_LEVEL")
strMPosts = rs("M_POSTS")
strMHomepage = rs("M_HOMEPAGE")
strMCountry = rs("M_COUNTRY")
strPMSubject = rs("M_SUBJECT")
strPMSent = rs("M_SENT")
strPMFromID = rs("M_FROM")
strPMMessage = rs("M_MESSAGE")
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<br><br></font></td>" & vbNewLine & _
" <td colspan=""2"" align=""right"" valign=""bottom""><a href=""pm_view.asp"">" & getCurrentIcon(strIconpmreceive,"Vérifier les nouveaux messages","hspace=""0""") & "</a>"
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)
If not rsPM.EOF Then
pmtotal = rsPM("pmtotal")
rsPM.Close
End If
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 & """>You have reached your private message limit of " & strPMLimit & ".<br>To send further private messages you must clean your Inbox.</font></center>")
Else
Response.Write ("<center><b><font face=""" & strDefaultFontFace & """ color=""" & strDefaultFontColor & """ size=""" & strFooterFontSize & """>You currently have " & pmtotal & " saved private messages.<br>Your Inbox limit is " & strPMLimit & ".<br>Please delete your messages once you have read them.</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)
If not rsPM.EOF Then
pmcount = rsPM("pmcount")
rsPM.Close
End If
Set rsPM=Nothing
If pmcount < strPMLimit or mLev > 2 Then
Response.Write "<a href=""privatesend.asp?method=Reply&id=" & cLng(Request.QueryString("id")) & """>" & getCurrentIcon(strIconpmreply,"Poster Un Commentaire","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=""privatedelete.asp?method=DeleteMessage&id=" & cLng(Request.QueryString("id")) & """>" & getCurrentIcon(strIconpmdelete,"Supprimer Ce Message","hspace=""0""") & "</a></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 & """>à partir de</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><br>" & vbNewLine & _
" <p><font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>" & strMCountry & "</font><br>" & vbNewLine & _
" <font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>" & strMPosts & " Postes</font></p></td>" & vbNewLine & _
" <td bgcolor=""" & strForumFirstCellColor & """ valign=""top"">" & vbNewLine & _
" " & getCurrentIcon(strIconPosticon,"","") & "<font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>Sent - " & ChkDate(strPMSent, " : " ,true) & " " & "</font>" & vbNewLine
if strUseExtendedProfile then
Response.Write " <a href=""pop_profile.asp?mode=display&id=" & strMID & """>" & getCurrentIcon(strIconProfile,"Aperçu 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,"Email Poster","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éponse 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 strAIM = "1" and Trim(rs("M_AIM")) <> "" then
strContacts = strContacts + 1
Response.Write getCurrentIcon(strIconAIM,"","align=""absmiddle""") & " <a href=""" & strIMURL1 & "pop_messengers.asp?mode=AIM&ID=" & rs("MEMBER_ID") & strIMURL2 & """>" & ChkString(rs("M_AIM"), "display") & "</a>" & vbNewLine
end if
if strICQ = "1" and Trim(rs("M_ICQ")) <> "" then
strContacts = strContacts + 1
Response.Write getCurrentIcon("http://online.mirabilis.com/scripts/online.dll?icq=" & ChkString(rs("M_ICQ"), "urlpath") & "&img=5|18|18","","align=""absmiddle""") & " <a href=""" & strICQURL & "pop_messengers.asp?mode=ICQ&ID=" & rs("MEMBER_ID") & strIMURL2 & """>" & ChkString(rs("M_ICQ"), "display") & "</a>" & vbNewLine
end if
if strMSN = "1" and Trim(rs("M_MSN")) <> "" then
strContacts = strContacts + 1
parts = split(rs("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 " <script language=""javascript"" type=""text/javascript"">" & vbNewLine & _
" function MSNjs() {" & vbNewLine & _
" var tag1 = '" & strtag1 & "';" & vbNewLine & _
" var tag2 = '" & strtag2 & "';" & vbNewLine & _
" var tag3 = '" & strtag3 & "';" & vbNewLine & _
" document.write(tag1 + ""@"" + tag2 + ""."" + tag3) }" & vbNewLine & _
" </script>" & getCurrentIcon(strIconMSNM,"","align=""absmiddle""") & " <script language=""javascript"" type=""text/javascript"">MSNjs()</script>" & vbNewLine
end if
if strSKYPE = "1" and Trim(rs("M_SKYPE")) <> "" then
strContacts = strContacts + 1
Response.Write " <script language=""javascript"" type=""text/javascript"" src=""http://download.skype.com/share/skypebuttons/js/skypeCheck.js""></script><a href=""skype:" & ChkString(rs("M_SKYPE"), "urlpath") & "?call""><img src=""http://mystatus.skype.com/smallclassic/" & ChkString(rs("M_SKYPE"), "urlpath") & """ style=""border: none;"" width=""114"" height=""20"" alt=""My status"" /></a>" & vbNewLine
end if
if strYAHOO = "1" and Trim(rs("M_YAHOO")) <> "" then
strContacts = strContacts + 1
Response.Write "<a href=""http://edit.yahoo.com/config/send_webmesg?.target=" & ChkString(rs("M_YAHOO"), "urlpath") & "&.src=pg"" target=""_blank"">" & getCurrentIcon("http://opi.yahoo.com/online?u=" & ChkString(rs("M_YAHOO"), "urlpath") & "&m=g&t=2|125|25","","") & "</a>" & vbNewLine
end if
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
rs.close
Set rs=Nothing
Response.Write "<br>" & vbNewLine
WriteFooter
Response.End
%>
|
|
|
|
Maxime
Average Member
France
521 Posts |
Posted - 22 December 2013 : 13:14:11
|
Carefree thank you very much, I installed another Private Messages, the Davio too many bugs.
It and I put a lot more single unit.
MOD Version: 3.5.05
Forum Version: 3.3.04
Author: GarethMoore1979
http://www.snitzbitz.com/mods/details.asp?Version=All&mid=62 |
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 - 22 December 2013 : 16:45:55
|
| OK. As long as it works. |
|
|
|
Maxime
Average Member
France
521 Posts |
Posted - 23 December 2013 : 01:44:16
|
| By cons I see on the forum that there are security patches for this mod I have and when I applied, I get an error in clng inc_func_secure.asp line 49 I think, and not with original. Donx left the old pages to not upset the safety functions specific to the forum |
Cordially,
Maxime
Taxation consists in so plucking the goose to get the most out of feathers with the least possible cries.(Jean-Baptiste Colbert)
|
|
|
|
Maxime
Average Member
France
521 Posts |
Posted - 23 December 2013 : 03:36:32
|
Hello Carefree,
When you have time can compare these pages in the zip file, there is the original and patches for the private user messages.
I have a ereur clng line 49 I believe in using inc_func_secure pages patched.
Here is the zip download here: http://www.chalezeule.org/fichier/private-messages.zip |
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 - 06 January 2014 : 19:42:27
|
| "inc_func_secure.asp" is not included in these files. If you are experiencing an error there, it's not because of these changes. |
|
|
|
Maxime
Average Member
France
521 Posts |
Posted - 07 January 2014 : 03:28:30
|
Thank you beaucup Carefree, mode Davio having error. So I put another way by the one above against and what this mod is secure.
I saw a security alert on Private Messenger on any versions? Here http://forum.snitz.com/forum/topic.asp?TOPIC_ID=66176 |
Cordially,
Maxime
Taxation consists in so plucking the goose to get the most out of feathers with the least possible cries.(Jean-Baptiste Colbert)
|
Edited by - Maxime on 07 January 2014 03:31:01 |
|
|
|
Carefree
Advanced Member
Philippines
4207 Posts |
Posted - 07 January 2014 : 18:07:01
|
| That applies to the original private message program, updates Davio's. |
|
|
|
Maxime
Average Member
France
521 Posts |
Posted - 07 January 2014 : 19:06:54
|
ok I installed it:
MOD Version: 3.5.05
Forum Version: 3.3.04
Author: GarethMoore1979
http://www.snitzbitz.com/mods/details.asp?Version=All&mid=62 |
Cordially,
Maxime
Taxation consists in so plucking the goose to get the most out of feathers with the least possible cries.(Jean-Baptiste Colbert)
|
|
|
| |
Topic |
|
|
|
