<% @ Language=VBScript codepage=1255 %> <% Option Explicit %> <% '**************************************************************************************** '** Copyright Notice '** '** Web Wiz Guide - Web Wiz Forums '** '** Copyright 2001-2003 Bruce Corkhill All Rights Reserved. '** '** This program is free software; you can modify (at your own risk) any part of it '** under the terms of the License that accompanies this software and use it both '** privately and commercially. '** '** All copyright notices must remain in tacked in the scripts and the '** outputted HTML. '** '** You may use parts of this program in your own private work, but you may NOT '** redistribute, repackage, or sell the whole or any part of this program even '** if it is modified or reverse engineered in whole or in part without express '** permission from the author. '** '** You may not pass the whole or any part of this application off as your own work. '** '** All links to Web Wiz Guide and powered by logo's must remain unchanged and in place '** and must remain visible when the pages are viewed unless permission is first granted '** by the copyright holder. '** '** This program is distributed in the hope that it will be useful, '** but WITHOUT ANY WARRANTY; without even the implied warranty of '** MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE OR ANY OTHER '** WARRANTIES WHETHER EXPRESSED OR IMPLIED. '** '** You should have received a copy of the License along with this program; '** if not, write to:- Web Wiz Guide, PO Box 4982, Bournemouth, BH8 8XP, United Kingdom. '** '** '** No official support is available for this program but you may post support questions at: - '** http://www.webwizguide.info/forum '** '** Support questions are NOT answered by e-mail ever! '** '** For correspondence or non support questions contact: - '** info@webwizguide.info '** '** or at: - '** '** Web Wiz Guide, PO Box 4982, Bournemouth, BH8 8XP, United Kingdom '** '**************************************************************************************** Response.Buffer = True 'Dimension variables Dim strAuthorEmail 'Holds the users e-mail address Dim strFormMessage 'Holds the message in the form Dim strEmailBody 'Holds the body of the e-mail Dim blnSentEmail 'Set to true when the e-mail is sent Dim strSubject 'Holds the subject of the e-mail Dim strRealName 'Holds the authors real name Dim intForumID 'Initialise variables blnSentEmail = False 'If the user is user is using a banned IP redirect to an error page If bannedIP() Then 'Clean up Set rsCommon = Nothing adoCon.Close Set adoCon = Nothing 'Redirect Response.Redirect("insufficient_permission.asp?M=IP") End If 'If the user has not logged in then or the page has not been passed with a topic id the redirect to the forum start page If Request.QueryString("TID") = "" OR blnEmail = False OR intGroupID = 2 Then 'Clean up Set rsCommon = Nothing adoCon.Close Set adoCon = Nothing 'Redirect Response.Redirect "default.asp" End If 'Initilise the message in the form strFormMessage = strTxtEmailFriendMessage & " " & strMainForumName & " " & strTxtAt & ": -" strFormMessage = strFormMessage & vbCrLf & vbCrLf & strForumPath & "/forum_posts.asp?TID=" & CLng(Request.QueryString("TID")) strFormMessage = strFormMessage & vbCrLf & vbCrLf & strTxtRegards & "," & vbCrLf & strLoggedInUsername & vbCrLf 'Read in the users e-mail address 'Initalise the strSQL variable with an SQL statement to query the database get the thread details strSQL = "SELECT " & strDbTable & "Author.Real_name, " & strDbTable & "Author.Author_email " strSQL = strSQL & "FROM " & strDbTable & "Author " strSQL = strSQL & "WHERE (((" & strDbTable & "Author.Author_ID)=" & lngLoggedInUserID & "));" 'Query the database rsCommon.Open strSQL, adoCon 'If there is an e-mail address for the user then read it in If NOT rsCommon.EOF Then 'Read in authors detals from the database strAuthorEmail = rsCommon("Author_email") strRealName = rsCommon("Real_name") End If 'If the form has been filled in then send the form If NOT Request.Form("ToName") = "" AND NOT Request.Form("ToEmail") = "" AND NOT Request.Form("FromName") = "" AND NOT Request.Form("FromEmail") = "" AND NOT Request.Form("message") = "" Then 'Check the session ID to stop spammers using the email form Call checkSessionID(Request.Form("sessionID")) 'Initilalse the body of the email message strEmailBody = strTxtHi & " " & Request.Form("ToName") & "," strEmailBody = strEmailBody & vbCrLf & vbCrLf & strTxtTheFollowingEmailHasBeenSentToYouBy & " " & Request.Form("FromName") & " " & strTxtFrom & " " & strMainForumName & "." strEmailBody = strEmailBody & vbCrLf & vbCrLf & strTxtIfThisMessageIsAbusive & ": - " strEmailBody = strEmailBody & vbCrLf & vbCrLf & strForumEmailAddress strEmailBody = strEmailBody & vbCrLf & vbCrLf & strTxtIncludeThisEmailAndTheFollowing & ": - " & "BBS=" & strMainForumName & ";ID=" & lngLoggedInUserID & ";USR= " & strLoggedInUsername & ";" strEmailBody = strEmailBody & vbCrLf & vbCrLf & strTxtReplyToEmailSetTo & " " & Request.Form("FromName") & "." strEmailBody = strEmailBody & vbCrLf & vbCrLf & strTxtMessageSent & ": -" strEmailBody = strEmailBody & vbCrLf & "---------------------------------------------------------------------------------------" strEmailBody = strEmailBody & vbCrLf & vbCrLf & strTxtHi & " " & Request.Form("ToName") strEmailBody = strEmailBody & vbCrLf & vbCrLf & Request.Form("message") 'Inititlaise the subject of the e-mail strSubject = strTxtInterestingForumPostOn & " " & strWebsiteName 'Send the e-mail using the Send Mail function created on the send_mail_function.inc file blnSentEmail = SendMail(strEmailBody, Request.Form("ToName"), Request.Form("ToEmail"), Request.Form("FromName"), Request.Form("FromEmail"), strSubject, strMailComponent, false) End If 'Reset server objects rsCommon.Close Set rsCommon = Nothing adoCon.Close Set adoCon = Nothing %> שליחת נושא לחבר באמצעות דואר אלקטרוני
<% = strTxtEmailTopicToFriend %>
<% 'If the email has been sent then display a message saying If blnSentEmail = True Then %>
<% = strTxtFriendSentEmail %>
<% 'Else the e-mail has not been sent so display the form Else %>
&TID=<% = CLng(Request.QueryString("TID")) %>" onSubmit="return CheckForm();" onReset="return confirm('<% = strResetFormConfirm %>');">
*<% = strTxtRequiredFields %>
<% = strTxtUsername %> <% = strLoggedInUsername %>
<% = strTxtYourName %>*
<% = strTxtYourEmail %>*
<% = strTxtFriendsName %>*
<% = strTxtFriendsEmail %>*
<% = strTxtMessage %>:

<% End If %>
<% = strTxtCloseWindow %>

<% '***** START WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ****** If blnLCode = True Then If blnTextLinks = True Then Response.Write("Hebrew Translate By Web Wiz Hebrew Forums
Hebrew Version " & strHebrewVersion & "

") Response.Write("Powered by Web Wiz Forums version " & strVersion & "") Else Response.Write("Hebrew Translate By Web Wiz Hebrew Forums
Hebrew Version " & strHebrewVersion & "

") Response.Write("") End If Response.Write("
Copyright ©2001-2003 Web Wiz Guide") End If '***** END WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ****** %>