<%@ Language=VBScript CodePage = "1256" %> <% SenderName = Request.Form("SenderName") SenderEmail = Request.Form("SenderEmail") EmailSubject = Request.Form("EmailSubject") EmailBody = Request.Form("EmailBody") %> <% Function Email() Dim objMail Set objMail = CreateObject("CDO.Message") objMail.BodyPart.charset = "windows-1256" objMail.From = SenderName & " <" & SenderEmail & ">" objMail.Subject = EmailSubject objMail.To = "jassim@alhorr.com" objMail.TextBody = EmailBody objMail.Send %>

شكرا.. لقد تم إرسال الرسالة

<% set objMail = nothing End Function Function Form()%>
يمكنك من خلال النموذج التالي إرسال مشاركاتك، أو ملاحظاتك، أو اقتراحاتك للمهندس جاسم الحر
الاسم (باللغة الإنجليزية):
البريد الإلكتروني:
عنوان الرسالة:
نص الرسالة:

<%End Function%> ALHORR Site

 

.

<%IF SenderName = "" or SenderEmail = "" or EmailSubject = "" or EmailBody = "" Then%>

الرجاء تعبئة جميع الحقول

<%Form() Else Email() End IF%>

Designed by Jassim Alhor.  All rights reserved, 2001.