<% @ Language="VBScript" CodePage="1254" %>
<%
'- Kelebek Webmesaj Formu II -------------------------------------------------
kelebekmsg=REQUEST("kelebekmsg")
email=REQUEST("email")
If Request ("KelebekASP") = "Yolla" Then
CALL Webmail
Else
End if
'--------------------------------------------------------------------------
SUB Webmail
'- SessionID Kontrol: -------------------------------------------------------------------------------------------
sid=Trim(Request("sid"))
IF sid <> Session.SessionID THEN
Response.Write "
"
Response.End
END IF
'-----------------------------------------------------------------------------------------------------------------------------
If REQUEST("adsoyad")="" or len(REQUEST("adsoyad"))<3 or len(REQUEST("adsoyad"))>50 Then
kelebekmsg= "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
kelebekmsg= "UYARI: Lütfen Geçerli Bir E-Mail Adresi Girin !"
Else
'--------------------------------------------------------------------------
If not REQUEST("telefon")="" and not IsNumeric(REQUEST("telefon")) Then
kelebek_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
kelebekmsg= "UYARI: Mesaj Alanı Boş Bıraktınız ! ( En Az 3, En Çok 1000 Karekter )"
Else
'--------------------------------------------------------------------------
If Session("KelebekGuvenlik")=TRUE Then
kelebekmsg= "UYARI: Webmail Flood Koruma !"
Else
'-----------------------------------------------------------------------------------------------------------------------------
ip = Request.ServerVariables("REMOTE_ADDR")
Dim objMailKelebek, MyBody, strMailServer
Set objMailKelebek = Server.CreateOBject( "JMail.Message" )
objMailKelebek.CharSet = "windows-1254"
objMailKelebek.From = Trim(Request("email"))
objMailKelebek.Subject = "Kelebek Webmail"
objMailKelebek.AddRecipient "info@naturelkaya.com" 'E-Posta Adresinizi Buraya Yazın !
MyBody = " Webmail Bayilik 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 & " Powered by efbi.com.tr | 2008 " & vbCrLf
objMailKelebek.body = MyBody
strMailServer = "mail.naturelkaya.com" 'Buraya Mail Server Adresinizi Yazın*********************************************** !
on Error Resume Next
objMailKelebek.Send(strMailServer)
kelebekmsg= "Teşekkürler, Mesajınız Başarıyla Gönderildi"
Session("KelebekGuvenlik")=TRUE
'-----------------------------------------------------------------------------------------------------------------------------
End If
End If
End If
End If
End If
'-----------------------------------------------------------------------------------------------------------------------------
End SUB
%>
Naturel Kaya Ltd. Şti.