<% islem = Request.Querystring("GET") %>
<% IF islem = "" THEN %>
| |
Form Mail |
| |
Tüm alanların doldurulması mecburidir.. |
<% 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@turkmcsd.net" 'Site email adresiniz
Mail.FromName = "Netteki Güncel Portalınız" 'Sitenizin adi
Mail.AddRecipient "destek@turkmcsd.net" 'Formun gelecegi mail adres
Mail.Subject = "Reklam Formu" 'Mesajinizin sabit basligi
Mail.HTMLBody = body
Mail.Send "mail.turkmcsd.net" 'Mail server adresi
Set Mail = Nothing
Response.Redirect "tesekkurler.asp"
Set RS = Nothing
END IF %>
<% SUB HATAVAR %>
Gazeteler
Canlı TV
B
Canlı Radyo
TV izle
Gazetete Oku
Yerel Gazeteler
Resim
<% END SUB %>