Hello everyone I wanted to know if and 'can change the file privatesent.asp,
modification and Ess: I write and send the message by, ok I realize that there 'something wrong and you decide to place, but there' the voice change.
I wonder if you can put the item in edit mode straps PM
This is my file
%>
<!--#INCLUDE FILE="config.asp" -->
<!--#INCLUDE FILE="inc_sha256.asp"-->
<!--#INCLUDE FILE="inc_header.asp" -->
<!--#INCLUDE FILE="inc_func_secure.asp" -->
<!--#INCLUDE FILE="inc_func_member.asp" -->
<%
if strDBNTUserName = "" then
Response.Redirect "default.asp"
Response.End
else
strSql = "SELECT " & strMemberTablePrefix & "MEMBERS.MEMBER_ID "
strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_NAME "
strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_TITLE "
strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_LEVEL "
strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_POSTS "
strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_COUNTRY "
strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_AVATAR_URL "
strSql = strSql & ", " & strTablePrefix & "PM.M_ID "
strSql = strSql & ", " & strTablePrefix & "PM.M_TO "
strSql = strSql & ", " & strTablePrefix & "PM.M_SUBJECT "
strSql = strSql & ", " & strTablePrefix & "PM.M_SENT "
strSql = strSql & ", " & strTablePrefix & "PM.M_FROM "
strSql = strSql & ", " & strTablePrefix & "PM.M_MESSAGE "
strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS , " & strTablePrefix & "PM "
strSql = strSql & " WHERE " & strMemberTablePrefix & "MEMBERS.M_NAME = '" & strDBNTUserName & "'"
strSql = strSql & " AND " & strMemberTablePrefix & "MEMBERS.MEMBER_ID = " & strTablePrefix & "PM.M_FROM "
strSql = strSql & " AND " & strTablePrefix & "PM.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?rand=" & int(10000000*rnd) & "§ionid=2")
end if
strMName = rs("M_NAME")
strMTitle = rs("M_TITLE")
strMLevel = rs("M_LEVEL")
strMPosts = rs("M_POSTS")
strMCountry = rs("M_COUNTRY")
strMAvatar = rs("M_AVATAR_URL")
strPMToID = rs("M_TO")
strPMSubject = rs("M_SUBJECT")
strPMSent = rs("M_SENT")
strPMFromID = rs("M_FROM")
strPMMessage = rs("M_MESSAGE")
rs.Close
Set rs = nothing
Response.Write " <table border=""0"" width=""100%"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td width=""33%"" align=""left"" nowrap><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine & _
" " & getCurrentIcon(strIconFolderOpen,"","align=""absmiddle""") & " <a href=""default.asp"">" & fLang("strLangAll_Forums00010") & "</a><br />" & vbNewLine & _
" " & getCurrentIcon(strIconBar,"","") & getCurrentIcon(strIconFolderOpen,"","align=""absmiddle""") & " <a href=""pm_view.asp?rand=" & int(10000000*rnd) & "§ionid=2"">" & fLang("strLangPm_Message00020") & "</a><br />" & vbNewLine & _
" " & getCurrentIcon(strIconBlank,"","") & getCurrentIcon(strIconBar,"","") & getCurrentIcon(strIconFolderOpenTopic,"","") & " " & fLang("strLangPm_Message00840") & "<br /></font></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" </table><br/>" & vbNewLine & _
" <table border=""0"" width=""100%"" cellspacing=""0"" cellpadding=""0"" align=""center"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td " & TableBorderColor & ">" & vbNewLine
call CornerTop
Response.Write " <table width=""100%"" border=""0"" " & Cellspacing & " cellpadding=""4"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td align=""center"" " & HeadCellColor & " width=""" & strTopicWidthLeft & """"
if lcase(strTopicNoWrapLeft) = "1" then
Response.Write(" nowrap")
end if
Response.Write "><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ " & HeadFontColor & ">" & fLang("strLangPm_Message00320") & "</font></b></td>" & vbNewLine & _
" <td align=""left"" " & HeadCellColor & " width=""" & strTopicWidthRight & """"
if lcase(strTopicNoWrapRight) = "1" then
Response.Write(" nowrap")
end if
Response.Write "><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ " & HeadFontColor & ">" & fLang("strLangPost00540") & " " & strPMSubject & "</font></b></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td " & ForumCellColor & " align=""center"" valign=""top"">" & vbNewLine & _
" <p><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b><span class=""spnMessageText"">" & profileLink(chkString(strMName,"display"),strPMFromID) & "</span></b></font><br />" & vbNewLine
if strShowRank = 1 or strShowRank = 3 then
Response.Write " <font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """ " & ForumFontColor & ">" & 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
if strAllowAvatars = "0" then Response.Write("<br /><br />" & vbNewLine)
if strAllowAvatars = "1" then
if strMAvatar <> "noavatar.gif" then
if (strMyAvatarLink + strMyAvatarTooltip) > 0 then
Response.Write getMyAvatar(strMAvatar,strMID,strMName,strMHomepage) & "</p>" & vbNewLine
else
Response.Write "<img src=""" & strMAvatar & """ width=""" & intAvatarWidth & """ height=""" & intAvatarHeight & """ border=""" & intAvatarBorder & """>"
end if
end if
end if
Response.Write " <p><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """ " & ForumFontColor & ">" & strMCountry & "</font><br />" & vbNewLine & _
" <font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """ " & ForumFontColor & ">" & strMPosts & " " & fLang("strLangPosts00010") & "</font></p></td>" & vbNewLine & _
" <td " & ForumCellColor & " valign=""top"">" & vbNewLine & _
" " & getCurrentIcon(strIconPosticon,"","hspace=""3""") & "<font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """ " & ForumFontColor & ">" & fLang("strLangSent_To00010") & " <b>" & GetMemberName(strPMToID) & "</b> - " & ChkDate(strPMSent, " : " ,true) & "</font>" & vbNewLine & _
" <hr noshade size=""" & strFooterFontSize & """>" & vbNewLine & _
" <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ " & ForumFontColor & ">" & formatStr(strPMMessage) & "</font></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" </table>" & vbNewLine
call CornerBottom
Response.Write " </td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" </table>" & vbNewLine
end if
WriteFooter
Response.End
function getMyAvatar(fAvatarURL, fMemID, fMemName, fMemHomepage)
Dim alink : alink = ""
Dim atooltip : atooltip = ""
Dim astatus : astatus = ""
select case strMyAvatarLink
case 0 '## feature off
alink = ""
case 1 '## user's profile
if strUseExtendedProfile then
alink = "<a href=""pop_profile.asp?rand=" & int(10000000*rnd) & "§ionid=2&mode=display&id=" & fMemID & """>"
else
alink = "<a href=""JavaScript:openWindow3('pop_profile.asp?rand=" & int(10000000*rnd) & "&mode=display&id=" & fMemID & "')"">"
end if
astatus = fLangN("strLangInc_Func_Common00120",fMemName)
case 2 '## user's homepage
if Len(fMemHomepage) > 10 and InStr(fMemHomepage,"http://") > 0 then
alink = "<a href=""" & fMemHomepage & """ target=""_blank"">"
astatus = fLangN("strLangTopic00930",fMemName)
else
alink = ""
end if
case 3 '## homepage/profile
if Len(fMemHomepage) > 10 and InStr(fMemHomepage,"http://") > 0 then
alink = "<a href=""" & fMemHomepage & """ target=""_blank"">"
astatus = fLangN("strLangTopic00930",fMemName)
else
if strUseExtendedProfile then
alink = "<a href=""pop_profile.asp?rand=" & int(10000000*rnd) & "§ionid=2&mode=display&id=" & fMemID & """>"
else
alink = "<a href=""JavaScript:openWindow3('pop_profile.asp?rand=" & int(10000000*rnd) & "&mode=display&id=" & fMemID & "')"">"
end if
astatus = fLangN("strLangInc_Func_Common00120",fMemName)
end if
case 4 '## my avatars list show
alink = "<a href=""my_avatar_show.asp"">"
astatus = fLang("strLangTopic00950")
case 5 '## avatars legend
alink = "<a href=""avatar_legend.asp"">"
astatus = fLang("strLangMy_Avatar00080")
case else
alink = ""
end select
if strMyAvatarTooltip > 0 then
strSql = "SELECT A_NAME, A_NAME_USER FROM " & strTablePrefix & "AVATAR "
strSql = strSql & " WHERE A_URL = '" & fAvatarURL & "'"
Set rsav = my_Conn.Execute (strSql)
if not(rsav.BOF or rsav.EOF) then
avatar_defaultname = chkString(rsav("A_NAME"),"display")
avatar_username = chkString(rsav("A_NAME_USER"),"display")
avatar_defaultname = Replace(avatar_defaultname, """", """)
avatar_username = Replace(avatar_username, """", """)
end if
rsav.Close
Set rsav = nothing
end if
select case strMyAvatarTooltip
case 0 '## feature off
atooltip = ""
case 1 '## default name
atooltip = avatar_defaultname
case 2 '## user defined name
atooltip = avatar_username
case 3 '## user/default name
if trim(avatar_username) <> "" then
atooltip = avatar_username
else
atooltip = avatar_defaultname
end if
case else
atooltip = ""
end select
getMyAvatar = ""
if strMyAvatarLink > 0 and trim(alink) <> "" then getMyAvatar = getMyAvatar & alink
getMyAvatar = getMyAvatar & "<img src=""" & fAvatarURL & """ width=""" & intAvatarWidth & """ height=""" & intAvatarHeight & """ border=""" & intAvatarBorder & """"
if strMyAvatarTooltip > 0 and trim(atooltip) <> "" then getMyAvatar = getMyAvatar & " alt=""" & atooltip & """"
if strMyAvatarLink > 0 and trim(astatus) <> "" then getMyAvatar = getMyAvatar & dWStatus(astatus)
getMyAvatar = getMyAvatar & ">"
if strMyAvatarLink > 0 and trim(alink) <> "" then getMyAvatar = getMyAvatar & "</a>"
end function
%>
Topic Locked
Posted - 20 November 2009 : 00:20:03
