<%@LANGUAGE="VBSCRIPT"%> <% goster = Request.QueryString("goster") 'MAİL YOLLA ------------------------------ if goster = "mailyolla" then sYouEmail = Request.Form("adres") sPunter = Request.Form("isim") sPunterEmail = Request.Form("Email") EmailSubject = Request.Form("Konu") Message = Request.Form("Mesaj") Message=Replace(Message, vbcrlf, "
") Message=Replace(Message, " ", "  ") mesaj = "Gelen Mesaj:

"& Message &"
" Set objCDONTS = Server.CreateObject("CDONTS.NewMail") objCDONTS.From = ""& sPunter &"" & "<"& sPunterEmail &">" objCDONTS.To = sYouEmail objCDONTS.Subject = EmailSubject objCDONTS.BodyFormat=0 objCDONTS.MailFormat=0 objCDONTS.Body = mesaj On Error Resume Next objCDONTS.Send Set objCDONTS = Nothing huya = Request.ServerVariables("HTTP_REFERER") call head Response.Write "" Response.Write "


E-mailiniz başarıyla gönderilmiştir.
lütfen bekleyiniz" Response.End end if '---------------------------------------- if goster = "iletisim" or goster = "" then %>
www.BEYPAZARI.biz

iletişim ve sipariş formu

*İsim-Soyad
:
*E-posta
:
Şirket Adı
:
Telefon
:
Faks
:
Bulunduğunuz Şehir
:
*Mesajınız yada Siparişiniz
:

* Doldurulması Zorunlu Alanlar

tlf.: +90 535 512 63 18

<% end if %>
Site Creation by happy