%@ 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 %>
شكرا.. لقد تم إرسال الرسالة
|
|
. <%IF SenderName = "" or SenderEmail = "" or EmailSubject = "" or EmailBody = "" Then%> الرجاء تعبئة جميع الحقول |
Designed by Jassim Alhor. All rights reserved, 2001.