<% if request("submitted") = 1 then 'prepare to send email... dim sIPAddress sIPAddress = Request.ServerVariables("HTTP_X_FORWARDED_FOR") If sIPAddress="" Then sIPAddress = Request.ServerVariables("REMOTE_ADDR") varName= request("txtName") varSubject= request("txtSubject") varEmail= request("txtEmail") varBody= request("txtBody") varBody = Replace(varBody,"""","'") varBody = replace(varBody,vbcrlf," ") ' mail object set msg = Server.CreateOBject( "JMail.Message" ) 'logging for debugging, silent for errors msg.Logging = true msg.silent = true ' sender msg.From = varEmail msg.FromName = varName ' recipients msg.AddRecipient "webmaster@alahsai.net", "موقع الأحسائي" ' character set msg.CharSet = "8859-6" ' subject msg.Subject = "رسالة من موقع الأحسائي" 'HTML email msg.HTMLBody = "رسالة مرسلة من موقع الأحسائي اسم المرسل: " & varName & " البريد الإلكتروني: " & varEmail & " رقم الآي بي: " & sIPAddress & " الموضوع: " & varSubject & " نص الرسالة: " & varBody & "" if Session("Attachment") <> "" then msg.AddAttachment(Session("Attachment")) ' send message and capture errors if not msg.Send("mail.alahsai.net" ) then Response.write "عذراً، حصل خطا ما.. لم نستطع إرسال رسالتك" else Response.write "شكراً، لقد تم ارسال رسالتك بنجاح" end if 'close connection 'close everything 'msg.Disconnect Set msg = Nothing else Session("Attachment") = "" 'show the form %> الرجاء كتابة رسالتك مع ذكر التالي: الاسم: الموضوع: البريد الإلكتروني: نص الرسالة: لإرفاق ملف انقر هنا إرسال   |    مسح <% end if %>