All Forums  Snitz Forums 2000 MOD-Group  MOD Add-On Forum (W/Code)  Adding attachments to private messages

Note: You must be registered in order to post a reply.
To register, click here. Registration is FREE!
Before posting, make sure you have read this topic!

Screensize: 640 x 480 800 x 600 1024 x 768 1280 x 1024 UserName: Password: Format Mode: Basic  Help  Prompt  Format: Font Andale Mono Arial Arial Black Book Antiqua Century Gothic Comic Sans MS Courier New Georgia Impact Lucida Console Script MT Bold Stencil Tahoma Times New Roman Trebuchet MS Verdana   Size 1 2 3 4 5 6   Color Black Red Yellow Pink Green Orange Purple Blue Beige Brown Teal Navy Maroon LimeGreen Message: * HTML is OFF * Forum Code is ON Smilies [quote][i]Originally posted by philsbbs[/i] [br]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> <% [b]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[/b] 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< [/quote]   Check here to include your profile signature. Check here to subscribe to this topic.