Ürün Bilgi Formu
<% if isempty(request.Form) then%>
(*) işaretli alanların
doldurulması zorunludur.
<% else
' -- begin email send process --
dim objMail
Set objMail = CreateObject("CDONTS.NewMail")
' -- email variables --
objMail.To = "yawash@hotmail.com"
objMail.From = Request.Form("email")
objMail.Subject = "Ürün Bilgi Formu // TUTKUNLAR"
objMail.BodyFormat = "0" ' HTML format
objMail.Body = "ÜRÜN BİLGİ FORMU // TUTKUNLAR" & vbCrLf _
& vbCrLf _
& vbCrLf _
& "ÜRÜN BİLGİLERİ " & vbCrLf _
& vbCrLf _
& "Ürün Adı: " & Request.Form("urunadi") & vbCrLf _
& "Ürün Modeli: " & Request.Form("urunmodeli") & vbCrLf _
& "Sipariş Adedi: " &"(" & Request.Form("adet") &") Adet" & vbCrLf _
& vbCrLf _
& "SİPARİŞ BİLGİLERİ" & vbCrLf _
& vbCrLf _
& "Ad, Soyad: " & Request.Form("adsoyad") & vbCrLf _
& "Firma Adı: " & Request.Form("firma") & vbCrLf _
& "E-Mail: " & Request.Form("email") & vbCrLf _
& "Adres: " & Request.Form("adres") & vbCrLf _
& "Telefon: " &"(" & Request.Form("telkod") &") " & Request.Form("telno") & vbCrLf _
& "Faks: " &"(" & Request.Form("fakskod") &") " & Request.Form("faksno") & vbCrLf _
& "Gsm: " &"(" & Request.Form("gsmkod") &") " & Request.Form("gsmno") & vbCrLf _
& vbCrLf _
& "Not: " & vbCrLf _
& Request.Form("not") & vbCrLf _
& vbCrLf _
' -- send the email --
objMail.Send
' -- clean up object
Set objMail = Nothing
' -- execute confirmation page
response.Write("
Ürün Bilgi Formunuz Gönderilmiştir.
En kısa zamanda size geri döneceğiz.
")
end if
%>
|
