<%@ language="VBScript" %> <% if Request("submitmail")<>"" then mailtosend = trim(request("email")) zmani=request("content") while InStr(1,zmani,chr(13))>0 zmani=left(zmani,InStr(1,zmani,chr(13))-1)&"
"&mid(zmani,InStr(1,zmani,chr(13))+1) wend content=zmani mailbody="שם: "&request("fullname")&"
"&"דואל: "&request("email")&"
"&"טלפון: "&request("phone")&"
"&"ההודעה: "&content&"
" Set mail = Server.CreateObject("CDO.Message") Set oCdoConf = Server.CreateObject("CDO.Configuration") sConfURL = "http://schemas.microsoft.com/cdo/configuration/" with oCdoConf .Fields.Item(sConfURL & "sendusing") = 2 .Fields.Item(sConfURL & "smtpserver") = "217.194.192.55" .Fields.Item(sConfURL & "smtpserverport") = 25 .Fields.Item(sConfURL & "sendusername") = "shlomit@daat.ac.il" .Fields.Item(sConfURL & "sendpassword") = "nfkkv97" .Fields.Update end with mail.Bodypart.ContentMediaType = "text/html" mail.Bodypart.ContentTransferEncoding = "7bit" mail.Bodypart.Charset= "windows-1255" mail.To = "yehudaeis@gmail.com" mail.From = trim(request("email")) mail.Subject = "הודעה שנתקבלה מאתר פודקאסט" mail.HtmlBody = ""&mailbody&"
" mail.Configuration = oCdoConf mail.Send end if %> דעת | צרו קשר <%if request("submitmail")="" then %>

 

צרו קשר

לשאלות ותגובות בנושא פודקאסט דעת אנא מלאו את פרטיכם ונשתדל לענות בהקדם

אפשר גם לשלוח מייל למנהל האתר לכתובת: yehudaeis@gmail.com

<%else %> <%end if %>

טלפון:

דוא"ל: (* שדה חובה)

תוכן ההודעה:

 

צרו קשר

תודה על הודעתך

חזור