dolunay-fm

form mail

Aşagıdaki kodu FormMail.asp olarak kaydedin ve JMAIL desteği veren serverinizda kullanmaya başlayın.. Eğer serveriniz JMAIL component desteği vermiyorsa Componentler kategorisinde gerekli Componenti bulabilirsiniz.. <% islem = Request.Querystring("GET") %> <% IF islem = "" THEN %>

	Form Mail
	Tüm alanların doldurulması mecburidir..
Ad Soyad:
Site Adı:
Site Adresi:
E-Mail:
Mesajınız:

<% 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 &"
Site Adı : "& 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 = "destek@hazirkod.com" 'Site email adresiniz Mail.FromName = "HazırKod" 'Sitenizin adi Mail.AddRecipient "reklam@hazirkod.com" 'Formun gelecegi mail adres Mail.Subject = "Reklam Formu" 'Mesajinizin sabit basligi Mail.HTMLBody = body Mail.Send "mail.hazirkod.com" 'Mail server adresi Set Mail = Nothing Response.Redirect "tesekkurler.asp" Set RS = Nothing END IF %> <% SUB HATAVAR %>

<%=hata%>

[ Geri Dön ]

<% END SUB %>