Haberservisi.info adresimize sitenizin linkini eklemek için lütfen formu doldurunuz. Siteniz uygun görüldüğü taktirde en geç 2 gün içersinde listemize eklenecektir.

<% islem = Request.Querystring("GET") %> <% IF islem = "" THEN %>

	Form Mail
	Lütfen tüm alanları eksiksiz doldurunuz.
Kategori:
Site Adi:
Site Adresi:
E-Mail:
Mesajiniz:

<% 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 bos alan birakmayiniz.

Forma basliklari kirmizi renkle yazilmis olan alanlarin doldurulmasi mecburdur.
Lütfen geri dönüp bu alanlari eksiksiz ve dogru 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 kullanima açik bir email adresi girin." HATAVAR Response.End end if body="Ad Soyad : "& adsoyad &"
Site Adi : "& site &"
Site Adresi : "& adres &"
E-Mail : "& email &"
Mesaj : "& mesaj &"" Set Mail = Server.CreateOBject("JMail.Message") Mail.Charset = "ISO-8859-9" Mail.Logging = True Mail.Silent = True Mail.From = "info@haberservisi.info" 'Site email adresiniz Mail.FromName = "Haberservisi" 'Sitenizin adi Mail.AddRecipient "info@haberservisi.info" 'Formun gelecegi mail adres Mail.Subject = "Iletisim Formu" 'Mesajinizin sabit basligi Mail.HTMLBody = body Mail.Send "mail.haberservisi.info" 'Mail server adresi Set Mail = Nothing Response.Redirect "tesekkurler.asp" Set RS = Nothing END IF %> <% SUB HATAVAR %>

<%=hata%>

[ Geri Dön ]

<% END SUB %>