<%@ LANGUAGE="VBScript" %> <% option explicit %> <% if request.querystring("lang") = 2 then session("LangType")=2 else session("LangType")=1 end if %> <% Dim CellColor Dim FontColor Dim OddCell Dim CurrentNumber Dim ItemNumber Dim Amount Dim ItemArray() Dim ItemId Dim ItemCode Dim ItemAmount Dim ItemDetail Dim ItemThumb Dim ItemPrice Dim ItemTotal Dim I Dim J Dim TheType Dim SendName Dim SendDate Dim SendDate2 Dim SendCity Dim SendMail Dim SendWeb Dim SendNote Dim SendDetail dim sendType Dim SendPhone Dim SendFax Dim Subject Dim SendMessage Dim mailObj function displaymessage(themessage) response.write "
" response.write "
" response.write "" response.write " " response.write " " response.write " " response.write "
" response.write themessage response.write "
" response.write "
" response.write "" response.write "" end function function WriteTrail() %> <% end function TheType = request.querystring("pr") if IsNull(TheType) or (Trim(TheType) = "" ) Then TheType = 1 end if if TheType = 1 then dim TempArr(18) 'if session("LangType")=2 then if request.querystring("lang") = 2 then 'session("LangType")=2 TempArr(1) = "Order " TempArr(2) = " information the sender" TempArr(3) = "direction :" TempArr(4) = "date of order start :" TempArr(5) = "date of bringing order :" TempArr(6) = "E-Mail :" TempArr(7) = "Web site :" TempArr(8) = "Tel :" TempArr(9) = "Fax :" TempArr(10) = "Notes :" TempArr(11) = "the order detail :" TempArr(12) = "kind of merchandise :" TempArr(13) = "Send " TempArr(14) ="Week" TempArr(15) = "Month" TempArr(16) ="2 Month" TempArr(17)="Other Date" TempArr(18)="state :" else 'session("LangType")=1 TempArr(1) = "طلب عرض سعر " TempArr(2) = " معلومات المرسل" TempArr(3) = "الجهة :" TempArr(4) = "تاريخ طلب العرض :" TempArr(5) = "تاريخ تأمين المواد :" TempArr(6) = "البريد الالكتروني :" TempArr(7) = "عنوان الموقع :" TempArr(8) = "هاتف :" TempArr(9) = "فاكس :" TempArr(10) = "ملاحظات :" TempArr(11) = "تفاصيل الطلب :" TempArr(12) = "نوع البضاعة بالتفصيل" TempArr(13) = "ارسال" TempArr(14) ="خلال اسبوع" TempArr(15) = "شهر" TempArr(16) ="شهرين" TempArr(17)="موعد آخر" TempArr(18)="الدولة" end if response.write "
" response.write "" & Chr(13) response.write "" response.write " " response.write "" response.write "" 'response.write "" 'response.write "[FrontPage Save Results Component]" 'response.write "" 'response.write "" response.write "" & chr(13) response.write "" & chr(13) response.write "" & chr(13) response.write "" response.write "" & chr(13) response.write "" response.write "" response.write "" & chr(13) response.write "" response.write "" response.write "" & chr(13) response.write "" & chr(13) response.write "" & chr(13) response.write "" response.write "" & chr(13) response.write "" & chr(13) response.write "" & chr(13) response.write "" response.write "" response.write "" response.write "" response.write "" & chr(13) response.write "" & chr(13) response.write "" & chr(13) response.write "" response.write "" & chr(13) response.write "" & chr(13) response.write "" & chr(13) response.write "" response.write "" & chr(13) response.write "" & chr(13) response.write "" & chr(13) response.write "" response.write "" & chr(13) response.write "" & chr(13) response.write "" & chr(13) response.write "" response.write "" response.write "
" response.write " " response.write " " response.write " " response.write " " response.write "
"&chr(13) response.write " " response.write " " & TempArr(1) & "" response.write "
" response.write "
" response.write TempArr(2) response.write " 
"& chr(13) response.write "" response.write "" response.write "" & chr(13) response.write "" & chr(13) response.write "" & chr(13) response.write "" & chr(13) response.write "" response.write "
" & TempArr(3) & " " & TempArr(4) & "
" response.write "
"& chr(13) response.write "" response.write "" response.write "" & chr(13) response.write "" & chr(13) response.write "" & chr(13) response.write "" & chr(13) response.write "" response.write "
" & TempArr(18) & " " & TempArr(5) & "
" response.write "
" & TempArr(6) & "
" & TempArr(7) & "
"& chr(13) response.write "" response.write "" response.write "" & chr(13) response.write "" & chr(13) response.write "" & chr(13) response.write "" & chr(13) response.write "" response.write "
" & TempArr(8) & " " & TempArr(9) & "
" response.write "
" & TempArr(10) & "
" & TempArr(11) & "
" & TempArr(12) & "
 
" response.write "." response.write("
") else sendname = trim(request.form("username")) senddate = trim(request.form("userdate")) senddate2 = trim(request.form("userdate2")) sendcity = trim(request.form("usercity")) sendmail = trim(request.form("usermail")) sendweb = trim(request.form("userweb")) sendphone = trim(request.form("userphone")) sendfax = trim(request.form("userfax")) sendnote = trim(request.form("usernote")) senddetail = trim(request.form("userdetail")) sendType = trim(request.form("user_Type")) if senddate2 = "week" then senddate2 = "خلال أسبوع" elseif senddate2 = "month" then senddate2 = "شهر" elseif senddate2 = "2month" then senddate2 = "شهرين" else senddate2 = "موعد آخر" end if if sendname = "" then displaymessage "يجب إدخال الجهة" WriteTrail response.end end if if sendcity = "" then displaymessage "يجب إدخال الدولة" WriteTrail response.end end if if sendphone = "" then displaymessage "يجب إدخال الهاتف" WriteTrail response.end end if SendMessage = "" SendMessage = "طلب عرض سعر" SendMessage = SendMessage & Chr(13) & "-------- معلومات ------" SendMessage = SendMessage & Chr(13) & "الجهة = " & sendname & " " SendMessage = SendMessage & Chr(13) & "" SendMessage = SendMessage & Chr(13) & "تاريخ طلب العرض" & senddate & " " SendMessage = SendMessage & Chr(13) & "الدولة:" & sendcity & " " SendMessage = SendMessage & Chr(13) & "تاريخ تأمين المواد:" & senddate2 & " " SendMessage = SendMessage & Chr(13) & "البريد الإلكتروني:" & sendmail & " " SendMessage = SendMessage & Chr(13) & "عنوان الموقع:" & sendweb & " " SendMessage = SendMessage & Chr(13) & "الهاتف:" & sendphone & " " SendMessage = SendMessage & Chr(13) & "الفاكس:" & sendfax & " " SendMessage = SendMessage & Chr(13) & "ملاحظات:" & sendnote & " " SendMessage = SendMessage & Chr(13) & "تفاصيل العرض:" & senddetail & " " SendMessage = SendMessage & Chr(13) & "نوع البضاعة المطلوبة:" & sendType & " " 'Response.write "اضغط هنا لتأكيد الارسال" on error resume next set mailObj = Server.CreateObject("SMTPsvg.Mailer") 'set mailObj = Server.CreateObject("Asp.Mailer") ' set mailObj = Server.CreateObject("CDONTS.NewMail") mailObj.FromAddress = "info@sadaaf.com" 'mailObj.RemoteHost = "mail6.burlee.com" mailObj.RemoteHost = "mail.sadaaf.com" mailObj.ReplyTo = "info@sadaaf.com" mailObj.AddRecipient "", Trim("info@sadaaf.com") mailObj.Subject = "طلب عرض سعر" mailObj.ContentType = "text/html" mailObj.BodyText = sendmessage ' response.write sendmessage 'if mailObj.SendMail then displayMessage "لقد تم إرسال المعلومات بنجاح " 'else ' displayMessage mailObj.Response 'end if end if WriteTrail %>