I've now added attachements to private messages.
Here's the code change in privatesend.asp
>
<script language="JavaScript">
<!-- hide from JavaScript-challenged browsers
function pmmembers() { var MainWindow = window.open ("pm_pop_members.asp", "","toolbar=no,location=no,menubar=no,scrollbars=yes,width=250,height=500,top=100,left=100,resizeable=yes,status=no");
}
// done hiding -->
</script>
<%
Response.Write " <a href=""#"" onClick=""window.open('pop_upload_new.asp','Uploading','toolbar=no,location=no,directories=no,status=yes,menubar=no,scrollbars=yes,resizable=yes,width=440,height=310');""><acronym title=""Upload an Image File..."">" & getCurrentIcon(strIconPaperClip,"","") & "</a> <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Insert an Image File</acronym><br /></font>" & vbNewLine
Response.Write " <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ noWrap vAlign=""top"" align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Send to:</b>"
Response.Write "</font></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><input maxLength=""50"" name=""sendto"" value=""" & Request.Querystring("mname") & """ size=""50""> <font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><a href=""members.asp"">Memberlist</a> "
if strRqMethod <> "Forward" then Response.Write ("<br>(Separate member names with a comma for multiple recipients.)")
if (mLev > 0) and strRqMethod <> "Forward" then Response.Write ("<br><input type=""checkbox"" name=""allmods"" value=""true""><b>ALERT MODERATORS</b> (Send Message to all Moderators)<br>") '# All Moderators PM Modification
if (mLev = 4) and strRqMethod <> "Forward" then Response.Write ("<input type=""checkbox"" name=""allmem"" value=""true"">Send Message to all Members<br>") '# All Member PM Modification
Response.Write "</font></td>" & vbNewLine & _
" </tr>" & vbNewLine
end if
Let me know if you find this useful phil@philsbbs.com<