<%@ Language=VBScript codepage=1255 %> <% par=3 action=request.Form("action") getName=replace(request.Form("Name"), "'", "`") getEmail=replace(request.Form("Email"), "'", "`") getComments=replace(request.Form("Comments"), "'", "`") errMsg = "" if action="send" then ' email thingie Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = "localhost" Mail.From = getEmail ' From address Mail.FromName = getName ' optional Mail.AddAddress "yona@yona-tepper.co.il" Mail.Subject = "Message from Yona Teper's website" mailString = "" mailString = mailString & "" mailString = mailString & "" mailString = mailString & "" mailString = mailString & "" & Server.HTMLEncode("שם:") & " " & Server.HTMLEncode(getName) & "
" mailString = mailString & "" & Server.HTMLEncode("דוא""ל:") & " " & Server.HTMLEncode(getEmail) & "
" mailString = mailString & "
" & Server.HTMLEncode("הערות:") & "
" mailString = mailString & replace(Server.HTMLEncode(getComments), vbcrlf, "
") mailString = mailString & "" Mail.IsHTML = True Mail.Body = mailString bSuccess = False On Error Resume Next ' catch errors Mail.Send ' send message errMsg = "הודעתך נשלחה" If Err <> 0 Then ' error occurred errMsg = "הייתה בעייה בשליחת ההודעה:
" & response.Write(Err.Description) else bSuccess = True End If End If %> <%=errMsg%>

ליצירת קשר ומפגשים: יונה טפר - טלפון: 04-9848256 השאירו הודעה ברורה ואחזור אליכם בשמחה פקס: 04-9848360 ולציין: עבור יונה טפר דוא"ל: y618767@walla.com   להזמנת ספרים: הוצאת הקיבוץ המאוחד/ ספרית פועלים רח' הירקון 23, בני ברק או: ת.ד. 1432 בני ברק 51114 טלפון: 03-5785810 – שלוחה 220 : אילנה פקס: 03-5785811 http://www.kibutz-poalim.co.il   לתגובות