<%
Function Cv(metin)
metin = Replace(metin,"%u015F","ÅŸ", 1, -1)
metin = Replace(metin,"%u015E","Åž", 1, -1)
metin = Replace(metin,"%3A",":", 1, -1)
metin = Replace(metin,"%2C",",", 1, -1)
metin = Replace(metin,"%20"," ", 1, -1)
metin = Replace(metin,"%0D%0A","
", 1, -1)
metin = Replace(metin,"%21","!", 1, -1)
metin = Replace(metin,"%28","(", 1, -1)
metin = Replace(metin,"%29",")", 1, -1)
metin = Replace(metin,"%u011F","ÄŸ", 1, -1)
metin = Replace(metin,"%u011E","Äž", 1, -1)
metin = Replace(metin,"%u0130","Ä°", 1, -1)
metin = Replace(metin,"%u0131","ı", 1, -1)
metin = Replace(metin,"%E7","ç", 1, -1)
metin = Replace(metin,"%C7","Ç", 1, -1)
metin = Replace(metin,"%F6","ö", 1, -1)
metin = Replace(metin,"%D6","Ö", 1, -1)
metin = Replace(metin,"%FC","ü", 1, -1)
metin = Replace(metin,"%DC","Ü", 1, -1)
Cv = metin
End Function
process = Request("process")
Select Case process
%>
<%
Case "Send"
%>
<%
Session("ad") = Cv(Request("ad"))
Session("email") = Cv(Request("email"))
Session("tel") = Cv(Request("tel"))
Session("aciklama") = Cv(Request("aciklama"))
If Session("ad") = "" Then
Response.Redirect("iletisim.asp?Eror1=true&erorcode=1")
End If
If Session("email") = "" Then
Response.Redirect("iletisim.asp?Eror1=true&erorcode=2")
End If
mailo = Instr(Session("email"),"@")
mailn = Instr(Session("email"),".")
If mailo = 0 Or mailn = 0 Then
Response.Redirect("iletisim.asp?Eror1=true&erorcode=2")
End If
If Session("aciklama") = "" Then
Response.Redirect("iletisim.asp?Eror1=true&erorcode=4")
End If
kime = "info@nuhararat.com"
konu = "Web Sayfanýzdan Bir Mesaj Var."
kimden = Session("email")
ad = Session("ad")
smtpsunucu = "mail.nuhararat.com"
html = html & "" '
html = html & ""
html = html & "
"
html = html & "
"
html = html & "
"
html = html & "
"
html = html & ""
html = html & ""
html = html & ""
html = html & "
"
'--------------# Eðer Yeni bir tablo yada sütün oluþturman gerekirse bu bölüme ekle #----------------
html = html & "| Gönderenin Adý | : | "&Session("ad")&" |
"
html = html & "| Gönderenin E-Posta Adresi | : | "&Session("email")&" |
"
html = html & "| Gönderenin Telefonu | : | "&Session("tel")&" |
"
html = html & "| Gönderene Ait Mesaj | : | "&Session("aciklama")&" |
"
html = html & "
"
html = html & ""
html = html & ""
'--------------#Asp Mail Bileþeni Ýle Maili Gönderen Kýsým
On Error Resume Next 'Herhangi bi hata Olsada iþleme devam et demek
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.CustomCharSet = "Windows-1254" ' Mesajýn Dil Karakterini Belirler windows-1254 türkçe demek
Mail.From = kimden ' Mesajýn kim tarafýndan gönderildiðini belirler yukarýda hallettin zaten
Mail.FromName =ad ' Mesajý göndereinin adý yukarýda hallettin
Mail.Host = smtpsunucu ' yukarýda belirttin
Mail.Subject= konu ' Yukarýda belirttin
Mail.AddAddress kime ' yukarýda belirttin
Mail.IsHTML = True ' Bu bölüm html mesaj olacak mý olmayacakmý bölümü ture olacak demek false olmayacak demek bizim mesajýmýz html olduðu için olacak
Mail.Body = html ' mesajýn içeriði yukarýda oluþturdun
Mail.SEnd ' maili gönderir :)
Set Mail = Nothing
%>
|
Sayýn <%=Session("ad")%> Mesajýnýz Baþarýyla Gönderilmiþtir.
|
|
|
<%
'----------#Session Deðiþkenlerinin Boþaltýldýðý Bölüm #----------------------
Session("ad") =""
Session("email") =""
Session("aciklama") =""
Session("cbolum") =""
%>
<%
Case Else ' request nesnemiz hiç biþey içermiyorsa bu iþlemi yapacak
%>
<%
If Request("eror1") <> "" Then ' eðer forma eksik bilgi girildiyse hata mesajý verecek
%>
Forma Devam Edilemiyor Aþaðýdaki Hata Oluþtu !
<%
'-------------# Hatalarýn Ekrana Yazdýrýldýðý Bölüm #--------------------
erorcode = Request("erorcode")
Select Case erorcode
Case "1"
Response.Write("Adınız İsimli Form Alanını Boş Bıraktınız Lütfen Kontrol Ediniz")
Case "2"
Response.Write("E-Posta Adresiniz İsimli Form Alannını Boş Bıraktınız Yada E-Posta Adresinizi Yanlış Girdiniz Lütfen Kontrol Ediniz")
Case "3"
Response.Write("Konu Başlığı İsimli Form Alanını Boş Bıraktınız Kontrol Ediniz")
Case "4"
Response.Write("Açıklama İsimli Form Alanını Boş Bıraktınız Lütfen Kontrol Ediniz")
Case "5"
Response.Write("Þube Alanýný Boþ Býraktýnýz.")
End Select
%>
|
<%
End If
%>
<%
End Select '
%>
