<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
'body of email
mailbody = "" & "" & "שם:" & Request.form("name") & "" & "" & "
"
mailbody = mailbody & "" & "" & "חברה:" & Request.form("phone") & "" & "" & "
"
mailbody = mailbody & "" & "" & "טלפון:" & Request.form("email") & "" & "" & "
" & "
"
mailbody = mailbody & "" & "דואר אלקטרוני:" & Request.form("url") & "" & "
" & "
"
mailbody = mailbody & "" & "שם האתר:" & Request.form("site_name") & "" & "
"
mailbody = mailbody & "" & "שפת האתר:" & Request.form("site_language") & "" & "
"
mailbody = mailbody & "" & "תיאור האתר:" & Request.form("site_description") & ""
Set objCDO = Server.CreateObject("Cdonts.NewMail")
objCDO.BodyFormat =0 ' 0 is a plain text, 0 "zero" is a HTML
objCDO.MailFormat = 0 ' 1 is a plain text, 0 "zero" is mime format
objCDO.To = "info@cad.org.il" ' put your email address here
objCDO.From = Request.form("email") ' put an email address here, can be a dummy one
objCDO.Subject ="הוספת אתר לאינדקס תכנון ועיצוב"
objCDO.Body =mailbody
objCDO.Send
Set objCDO = Nothing
%>
הוסף אתר לאינדקס תכנון ועיצוב