<%'///////////////////////////////////////////////////////////////////////////////////////////////////////// If Request.QueryString ("islem") = "ok" then AdSoyad = Request.Form ("AdSoyad") FirmaAdi = Request.Form ("FirmaAdi") Telefon= Request.Form ("Telefon") Email= Request.Form ("Email") Malzeme = Request.Form ("Malzeme") FaturaBilgi = Request.Form ("FaturaBilgi") SevkAdresi = Request.Form ("SevkAdresi") dim Ssaat, Starih, Sip , Sbrowser Ssaat=time Starih=date Sip=Request.ServerVariables("remote_addr") Sbrowser=Request.ServerVariables("http_user_agent") Dim FormBilgi(1,6) FormBilgi(0,0) = "Ad Soyad" FormBilgi(0,1) = "Firma Adı" FormBilgi(0,2) = "Telefon" FormBilgi(0,3) = "Email" FormBilgi(0,4) = "Malzeme" FormBilgi(0,5) = "fatura Bilgisi" FormBilgi(0,5) = "Sevk Adresi" FormBilgi(1,0) = AdSoyad FormBilgi(1,1) = FirmaAdi FormBilgi(1,2) = Telefon FormBilgi(1,3) = Email FormBilgi(1,4) = Malzeme FormBilgi(1,5) = FaturaBilgi FormBilgi(1,6) = SevkAdresi dim gonder gonder="" gonder = gonder & "" gonder = gonder & "" gonder = gonder & "" gonder = gonder & "Güleç Demir Fiyat Teklif Formu" gonder = gonder & "" gonder = gonder & "" gonder = gonder & "
Güleç Demir Fiyat Teklif Formu
 " For i = 0 to UBound(FormBilgi,2) gonder = gonder & "" gonder = gonder & "" gonder = gonder & "" gonder = gonder & "" Next gonder = gonder & "
" & FormBilgi(0,i) & "" & FormBilgi(1,i) & "
 " gonder = gonder & "Bu mesajın gönderildiği tarih : " gonder = gonder & Starih gonder = gonder & "   saat: " gonder = gonder & Ssaat gonder = gonder & "  Gönderenin IP Adresi : " gonder = gonder & Sip gonder = gonder & "  
Kullandığı Browser : " gonder = gonder & Sbrowser gonder = gonder & "
" gonder = gonder & "" gonder = gonder & "" 'MailNereye = "serkantuncer@gmail.com" MailNereye = "info@gulecdemir.com.tr" strCCEmailAddress = "" strBCCEmailAddress = "" strReturnEmailAddress = "info@gulecdemir.com.tr" Set objCDOMail = Server.CreateObject("CDONTS.NewMail") objCDOMail.From = "gulec@gulecdemir.com.tr" objCDOMail.To = MailNereye objCDOMail.Cc = strCCEmailAddress objCDOMail.Bcc = strBCCEmailAddress objCDOMail.BodyFormat = 0 objCDOMail.MailFormat = 0 objCDOMail.Subject = "Güleç Demir Fiyat Formu" objCDOMail.Body = gonder objCDOMail.Importance = 1 objCDOMail.Send Set objCDOMail = Nothing Response.Write "
Fiyat teklifiniz tarafımıza ulaşmıştır. En kısa zamanda tarafınıza geri dönüş yapılacaktır.
" else '///////////////////////////////////////////////////////////////////////////////////////////////////////// %>
Fiyat Teklifi
Adınız ve Soyadınız :
Firma Adı :
Telefon :
E-Mail :
Malzeme :
Fatura Bilgisi :
Sevk Adresi :
<%end if%>