<% @ Language="VBScript" CodePage="1254" %>
<%
securerspmsg=REQUEST("securerspmsg")
email=REQUEST("email")
If Request ("SecurerspASP") = "Yolla" Then
CALL Webmail
Else
End if
SUB Webmail
'-----------------------------------------------------------------------------------------------------------------------------
If REQUEST("adsoyad")="" or len(REQUEST("adsoyad"))<3 or len(REQUEST("adsoyad"))>50 Then
securerspmsg= "UYARI: Ad Soyad Alanı Boş Bıraktınız ! ( En Az 3, En Çok 50 Karakter )"
Else
'--------------------------------------------------------------------------
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
securerspmsg= "UYARI: Lütfen Geçerli Bir E-Mail Adresi Girin !"
Else
'--------------------------------------------------------------------------
If not REQUEST("telefon")="" and not IsNumeric(REQUEST("telefon")) Then
Grafikit_msg= "UYARI: Telefon Alanına Sadece Rakam Girilebilir !"
Else
'--------------------------------------------------------------------------
If REQUEST("mesaj_mail")="" or len(REQUEST("mesaj_mail"))<3 or len(REQUEST("mesaj_mail"))>1000 Then
securerspmsg= "UYARI: Mesaj Alanı Boş Bıraktınız ! ( En Az 3, En Çok 1000 Karekter )"
Else
'--------------------------------------------------------------------------
If Session("SecurerspGuvenlik")=TRUE Then
securerspmsg= "UYARI: Webmail Flood Koruma !"
Else
'-----------------------------------------------------------------------------------------------------------------------------
ip = Request.ServerVariables("REMOTE_ADDR")
Dim objMailGrafikit, MyBody, strMailServer
Set objMailGrafikit = Server.CreateOBject( "JMail.Message" )
objMailGrafikit.CharSet = "windows-1254"
objMailGrafikit.From = Trim(Request("email"))
objMailGrafikit.Subject = "Webmail"
objMailGrafikit.AddRecipient "bilgi@erdalozedebiyatodulu.com"
MyBody = " Webmail İletişim Formu" & vbCrLf
MyBody = MyBody & "----------------------------------------------------------" & vbCrLf
MyBody = MyBody & " # Mesaj: " & Request("mesaj_mail") & vbCrLf
MyBody = MyBody & "----------------------------------------------------------" & vbCrLf
MyBody = MyBody & " # Ad Soyad: " & Request("adsoyad") & vbCrLf
MyBody = MyBody & " # E-Posta: " & Request("email") & vbCrLf
MyBody = MyBody & " # Şehir: " & Request("sehir") & vbCrLf
MyBody = MyBody & " # Telefon: " & Request("telefon") & vbCrLf
MyBody = MyBody & " # Ip No: " & ip & vbCrLf
MyBody = MyBody & "----------------------------------------------------------" & vbCrLf
MyBody = MyBody & " erdalozedebiyatodulu.com " & vbCrLf
objMailGrafikit.body = MyBody
strMailServer = "mail.erdalozedebiyatodulu.com"
on Error Resume Next
objMailGrafikit.Send(strMailServer)
securerspmsg= "Teşekkürler, Mesajınız Başarıyla Gönderildi"
Session("SecurerspGuvenlik")=TRUE
'-----------------------------------------------------------------------------------------------------------------------------
End If
End If
End If
End If
End If
'-----------------------------------------------------------------------------------------------------------------------------
End SUB
%>
www.erdalozedebiyatodulu.com Bilgi için 0212 252 56 75 - 0212 252 59 88
