<% ' On Error Resume Next Dim msg Dim gv if Request.Form("gonder") <> "" Then gv = "" gv= gv &" " gv= gv &" " gv= gv &" " gv= gv &" " gv= gv &" " gv= gv &" " gv= gv &" " gv= gv &" " gv= gv &" " gv= gv &" " gv= gv &" " gv= gv &" " gv= gv &" " gv= gv &" " gv= gv &" " gv= gv &" " gv= gv &" " gv= gv &" " gv= gv &" " gv= gv &" " gv= gv &" " gv= gv &" " gv= gv &" " gv= gv &" " gv= gv &" " gv= gv &" " gv= gv &" " gv= gv &" " gv= gv &" " gv= gv &" " gv= gv &" " gv= gv &" " gv= gv &" " gv= gv &" " gv= gv &" " gv= gv &" " gv= gv &" " gv= gv &" " gv= gv &" " gv= gv &" " gv= gv &" " gv= gv &" " gv= gv &" " gv= gv &" " gv= gv &" " gv= gv &" " gv= gv &" " gv= gv &" " gv= gv &" " gv= gv &" " gv= gv &" " gv= gv &" " gv= gv &" " gv= gv &" " gv= gv &" " gv= gv &" " gv= gv &" " gv= gv &" " gv= gv &" " gv= gv &" " gv= gv &" " gv= gv &" " gv= gv &" " gv= gv &" " gv= gv &" " gv= gv &" " gv= gv &" " gv= gv &" " gv= gv &" " gv= gv &" " gv= gv &" " gv= gv &" " gv= gv &"
MUSTERI SIPARIS SAYFASI
GAZETE" & Request.Form("gazetesecim") & "
ILAN BASKI" & Request.Form("baski") & "
ILAN KATEGORI" & Request.Form("ilankategori") & "
ILAN CESITI" & Request.Form("ilancesit") & "
PUNTO SECENEK" & Request.Form("cizgi") & "
ILAN YAZISI" & Request.Form("ilanmetni") & "
ILAN TARIHI" & Request.Form("tarih") & "
YAYINLANACAK GUN SAYISI" & Request.Form("kacgun") & "
ILETISIM BILGILERI
FIRMA ADI" & Request.Form("firmaadi") & "
ADI SOYADI" & Request.Form("isim") & "
ADRESI" & Request.Form("adres") & "
TELEFONU" & Request.Form("tel") & "
EMAIL ADRESI" & Request.Form("email") & "
VERGI DAIRESI" & Request.Form("vergi") & "
VERGI NUMARASI" & Request.Form("vergino") & "
ACIKLAMASI" & Request.Form("aciklama") & "
" ' Email gonderme islemleri ******************************************************************** Set msg = Server.CreateObject("CDONTS.NewMail") msg.From= "info@saglamajans.com" msg.To="info@saglamajans.com" msg.Subject="sitenizden mail var" msg.BodyFormat=0 msg.MailFormat=0 msg.Body=gv if not msg.Send("info@saglamajans.com") Then aciklama = "isleminiz basari ile gerceklestirildi" Else aciklama = "." End if ' Email gonderme sonu ****************************************************************************** End if %>
İLAN İÇERİKLERİ
Gazeteyi Seçiniz

Baskıyı Seçiniz
Kategori Seçiniz
İlan Çeşiti
İlan Metini Yazınız Not=Kelime arasına boşluk ve telefon nolarında nokta(.) ayraçlarını kullanınız
Örnek= Sahibinden satılık 2005 model renault broadway tel 0212.888.88.88
Alt Üst Çizgi - Punto Seçeneği
Alt Üst Çizgi
Punto
Tarih Seçiniz
Kaç Gün Yayınlasın
<%= aciklama %>
FİRMA VEYA KİŞİSEL BİLGİLERİNİZ
Firma Adı
=
Adı Soyadı
=
Adres
 =
Tel
 =
Email
 =
Vergi Dairesi
=
Vergi No
=
Mesaj
 =