Sipariş Formu Lütfen Tüm Alanları Doldurunuz... Ad Soyad : Yayınlanacak Gazeteler Yayınlanacak Tarihler: Telefon/Fax: E-Mail: İlan Metni:   <% End If %> <% IF islem = "Send" THEN adsoyad = Trim(Request.Form("adsoyad")) site = Trim(Request.Form("site")) adres = Trim(Request.Form("adres")) email = Trim(Request.Form("email")) mesaj = Trim(Request.Form("mesaj")) IF adsoyad = "" OR site = "" OR adres = "" OR email = "" OR mesaj = "" THEN hata = "Formda boş alan bırakmayınız. Forma başlıkları kırmızı renkle yazılmış olan alanların doldurulması mecburdur. Lütfen geri dönüp bu alanları eksiksiz ve doğru bir biçimde doldurunuz." HATAVAR Response.End END IF If Len(email) < 5 Then bIsValid = "False" Else If Instr(1, email, " ") <> 0 Then bIsValid = "False" Else If InStr(1, email, "@", 1) < 2 Then bIsValid = "False" Else If InStrRev(email, ".") < InStr(1, email, "@", 1) + 2 Then bIsValid = "False" End If End If End If End If IF bIsValid = "False" THEN hata = "Email adresiniz geçersiz Lütfen geçerli ve kullanıma açık bir email adresi girin." HATAVAR Response.End end if body="Ad Soyad : "& adsoyad &" Yayınlanacak Gazete : "& site &" Tel/Fax : "& adres &" E-Mail : "& email &" İlan Metni : "& mesaj &"" Set Mail = Server.CreateOBject("JMail.Message") Mail.Charset = "ISO-8859-9" Mail.Logging = True Mail.Silent = True Mail.From = "tutkuajans@hotmail.com" 'Form Mail'den Mail.FromName = "www.GazeteİlanBurosu.com" 'Sitenizin İsmi Mail.AddRecipient "tutkuajans@hotmail.com" 'Formun gelecegi mail adres Mail.Subject = "Yeni Sipariş Aldınız" 'Mesajinizin sabit basligi Mail.HTMLBody = body Mail.Send mailserver Set Mail = Nothing Response.Redirect "tesekkurler.htm" Set RS = Nothing END IF %> <% SUB HATAVAR %> <%=hata%> [ Geri Dön ] <% END SUB %>

Sitemiz aracılığıyla tüm gazetelere ilan verebilirsiniz ...                                       Her türlü reklam ve ilan siparişleriniz için bizimle canlı destek hattından bağlantı kurabilirsiniz . ...