<% '################################################################################# '## Snitz Forums 2000 v3.4.05 '################################################################################# '## Copyright (C) 2000-05 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 (at your option) 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 our support forums at: '## http://forum.snitz.com '## '## Correspondence and Marketing Questions can be sent to: '## manderson@snitz.com '## '################################################################################# %> <% if Request.QueryString("mode") = "DoIt" then Err_Msg = "" if strLogonForMail <> "0" and (MemberID < 1 or isNull(MemberID)) then Err_Msg = Err_Msg & "

עליך לבצע כניסה לפני שתוכל לשלוח הודעות

" end if if (Request.Form("YName") = "") then Err_Msg = Err_Msg & "

עליך להכניס את שמך!

" end if if (Request.Form("YEmail") = "") then Err_Msg = Err_Msg & "

עליך לתת את כתובת הדוא""ל שלך

" else if (EmailField(Request.Form("YEmail")) = 0) then Err_Msg = Err_Msg & "

עליך להכניס כתובת דוא""ל תקינה

" end if end if if (Request.Form("Name") = "") then Err_Msg = Err_Msg & "

עליך להכניס את שם הנמען

" end if if (Request.Form("Email") = "") then Err_Msg = Err_Msg & "

עליך להכניס את כתובת הדוא""ל של הנמען

" else if (EmailField(Request.Form("Email")) = 0) then Err_Msg = Err_Msg & "

כתובת הדוא""ל של הנמען חייבת להיות תקינה

" end if end if if (Request.Form("Msg") = "") then Err_Msg = Err_Msg & "

עליך להכניס את תוכן ההודעה

" end if if lcase(strEmail) = "1" then if (Err_Msg = "") then strRecipientsName = Request.Form("Name") strRecipients = Request.Form("Email") strSubject = "מאת: " & Request.Form("YName") & " דף מעניין" strMessage = "שלום " & Request.Form("Name") & vbNewline & vbNewline strMessage = strMessage & Request.Form("Msg") & vbNewline & vbNewline strMessage = strMessage & "קיבלת הודעה זו מאת " & Request.Form("YName") & " (" & Request.Form("YEmail") & ") " if Request.Form("YEmail") <> "" then strSender = Request.Form("YEmail") end if %> <% Response.Write("

הודעת הדוא""ל נשלחה

" & vbNewLine) else Response.Write("

ארעה בעיה עם ההודעה שלך

" & vbNewLine) Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "

" & Err_Msg & "

" & vbNewLine Response.Write("

חזור להזנת נתונים

" & vbNewLine) end if end if else '## Forum_SQL strSql = "SELECT M_NAME, M_USERNAME, M_EMAIL " strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS" strSql = strSql & " WHERE " & strDBNTSQLName & " = '" & chkString(strDBNTUserName,"SQLString") & "'" set rs = my_conn.Execute (strSql) YName = "" YEmail = "" if (rs.EOF or rs.BOF) then if strLogonForMail <> "0" then Err_Msg = Err_Msg & "

עליך לבצע כניסה לפני שתוכל לשלוח הודעות

" Response.Write("

ארעה בעיה עם ההודעה שלך

" & vbNewLine) Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "

" & Err_Msg & "

" & vbNewLine set rs = nothing Response.Write("

סגור את החלון

" & vbNewLine) Response.End end if else YName = Trim("" & rs("M_NAME")) YEmail = Trim("" & rs("M_EMAIL")) end if rs.close set rs = nothing Response.Write("

שלח את הנושא לחבר

" & vbNewLine) Response.Write "

" & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "

" & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "

שם הנמען:
כתובת הדוא""ל של הנמען:
שמך:	"" then Response.Write("hidden") else Response.Write("text") end if Response.Write """ value=""" & YName & """ size=""25"">" if YName <> "" then Response.Write(YName) end if Response.Write "
כתובת הדוא""ל שלך:	"" then Response.Write("hidden") else Response.Write("text") end if Response.Write """ value=""" & YEmail & """ size=""25"">" if YEmail <> "" then Response.Write(YEmail) end if Response.Write "
תוכן ההודעה:
נראה לי שההודעה הזאת יכולה לעניין אותך:" & vbNewline & vbNewline & Request.QueryString("url") & "

" & vbNewLine & _ "

" & vbNewLine end if WriteFooterShort Response.End %>