<% 'ddTo =request.Form("ddTo") txtName =request.Form("txtName") 'txtCompany =request.Form("txtCompany") txtEmail =request.Form("txtEmail") txtPhone =request.Form("txtPhone") 'txtFax =request.Form("txtFax") txtMobile =request.Form("hit") txtWeb =request.Form("payment") selCountry =request.Form("txtCountry") txtComment =request.Form("txtComment") secret =request.Form("secret") secretV =request.Form("secretV") if txtName <> "" and txtComment <> "" then '''''''''''''''' spam protect if secret ="" then response.Write("ادخل رمز الحماية") & response.End() secretV=replace(secretV,day(now()),"") if secretV <> secret then response.Write("ادخل رمز الحماية") & response.End() '''''''''''''''' end spam protect HTML="" HTML=HTML & " Contact" HTML=HTML & " " HTML=HTML & " " HTML=HTML & " " HTML=HTML & "
" HTML=HTML & " " HTML=HTML & " " HTML=HTML & " " HTML=HTML & " " HTML=HTML & " " HTML=HTML & " " HTML=HTML & " " HTML=HTML & " " HTML=HTML & " " HTML=HTML & " " HTML=HTML & " " HTML=HTML & " " HTML=HTML & " " HTML=HTML & " " HTML=HTML & " " HTML=HTML & " " HTML=HTML & " " HTML=HTML & " " HTML=HTML & " " HTML=HTML & " " HTML=HTML & " " HTML=HTML & " " HTML=HTML & " " HTML=HTML & " " HTML=HTML & " " HTML=HTML & " " HTML=HTML & " " HTML=HTML & " " HTML=HTML & " " HTML=HTML & " " HTML=HTML & " " HTML=HTML & " " HTML=HTML & " " HTML=HTML & " " HTML=HTML & " " HTML=HTML & " " HTML=HTML & " " HTML=HTML & " " HTML=HTML & " " HTML=HTML & " " HTML=HTML & " " HTML=HTML & " " HTML=HTML & " " HTML=HTML & " " HTML=HTML & " " HTML=HTML & "
" HTML=HTML & " Order Form
" HTML=HTML & "
" HTML=HTML & " " HTML=HTML & " Name*" HTML=HTML & " " HTML=HTML & " :" HTML=HTML & " "& txtName &"" HTML=HTML & "
" HTML=HTML & " Email*" HTML=HTML & " " HTML=HTML & " :" HTML=HTML & " " & txtEmail &"" HTML=HTML & "
" HTML=HTML & " Telephone*" HTML=HTML & " :" HTML=HTML & " " & txtPhone &"" HTML=HTML & "
" HTML=HTML & " service name:" HTML=HTML & " :" HTML=HTML & " " & txtMobile &"" HTML=HTML & "
" HTML=HTML & " payment term: " HTML=HTML & " :" HTML=HTML & " " & txtWeb &"" HTML=HTML & "
" HTML=HTML & " Country" HTML=HTML & " :" HTML=HTML & " " & selCountry &"" HTML=HTML & "
" HTML=HTML & " Comment*" HTML=HTML & " " HTML=HTML & " :" HTML=HTML & " " & txtComment &"" HTML=HTML & "
" HTML=HTML & "
...........

Thanks
NourWeb.com" HTML=HTML & "
" HTML=HTML & "
" HTML=HTML & " " HTML=HTML & " " mailfrom ="websitemail@nourweb.com" 'mailTo ="feedback@uisl-egypt.com"'ahmed@tradeegypt.com"'""&ddTo&"" mailTo ="info@nourweb.com" 'mailBcc ="Info@uisl-egypt.com" subject ="NourWeb.com order form email." Set cdoConfig = CreateObject("CDO.Configuration") With cdoConfig.Fields .Item(cdoSendUsingMethod) = 2'25 .Item(cdoSMTPServer) = "mail.nourweb.com" .Item(cdoSMTPAuthenticate) = 1 .Item(cdoSendUsername) = "websitemail@nourweb.com" .Item(cdoSendPassword) = "2605748" .Update End With Set cdoMessage = CreateObject("CDO.Message") With cdoMessage Set .Configuration = cdoConfig .From =mailfrom .To =mailto if mailcc <> "" then .cc = mailcc end if if mailBcc <> "" then ' .bcc="ahmed@tradeegypt.com"'mailbcc end if .BodyPart.ContentTransferEncoding = "quoted-printable" .BodyPart.Charset = "Windows-1256" .Subject = subject .HTMLBody = HTML .Send End With Set cdoMessage = Nothing Set cdoConfig = Nothing '''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''' 'response.Redirect("thanks.asp") response.Write("
شكراً لك, لقد تم الارسال, احد مندوبينا سوف يتصل بك فى اسرع وقت
") response.End() end if %>
الاسم بالكامل
   
الإيميل
   
التليفون
   
البلد
   
الخدمة المطلوبة
 
 
         
 
         
  برمجة - ستايل - حجز دومين - حجز استضافة
اختر نظام الدفع :
 
   
 
  اكتب الرمز هذا فى الخانة التالية (<%=left(session.sessionid,3)%>):