Мы представляем оригинальные
запчасти ведущих производителей рынка США.
По каталогам вы сможете выбрать
и заказать всевозможные аксесуары на ваш автомобиль.
Поставка запчастей осуществляется
из Америки в течении 5-14 дней с момента заказа.
Для заказа запчастей вам
необходимо заполнить и отправить форму заявки предложеную
на данной странице. После чего наши специалисты свяжутся
с Вами для полного оформления заказа.
*Убедительная просьба по
возможности заполнять все поля формы, это позволить лучше
оценить заказ и предложить оптимальный вариант. |
|
| |
|
|
<%
if (Request("fio") = "") or ((Request("phone") = "") and (Request("uemail") = "")) then
%>
<%
else
%>
Ваш заказ принят к исполнению.
<%
LetterText = "марка: " & Request("marka") & vbCrLf
LetterText = LetterText & "дата выпуска: " & Request("datav") & vbCrLf
LetterText = LetterText & "VIN код автомобиля: " & Request("vincod") & vbCrLf
LetterText = LetterText & "тип и обьем двигателя: " & Request("tod") & vbCrLf
LetterText = LetterText & "тип привода: " & Request("tipp") & vbCrLf
LetterText = LetterText & "тип КПП: " & Request("tipkpp") & vbCrLf
LetterText = LetterText & "количество дверей: " & Request("kold") & vbCrLf
LetterText = LetterText & "кондиционер: " & Request("kond") & vbCrLf
LetterText = LetterText & "ABS: " & Request("abs") & vbCrLf & vbCrLf
LetterText = LetterText & "описание необходимой детали: " & Request("opis") & vbCrLf & vbCrLf
LetterText = LetterText & "ФИО: " & Request("fio") & vbCrLf
LetterText = LetterText & "телефон: " & Request("phone") & vbCrLf
LetterText = LetterText & "Email: " & Request("uemail") & vbCrLf
Set NewMail = Server.CreateObject("CDO.Message")
if Request("uemail") = "" then
NewMail.From = "expo@ukrtrans.biz"
else
NewMail.From = Request("uemail")
end if
NewMail.To = "expo@ukrtrans.biz"
NewMail.Subject = "Order from www.zapchasti-usa.com"
NewMail.TextBody = LetterText
NewMail.Send
end if
%>
|
.jpg)
.jpg)