<%
function brc(gln)
brc = Replace(gln, VbCrlf, "[br]")
end function
function cvr(gln)
cvr = Replace(gln, "[br]", "
")
cvr = Replace(cvr, "[h1]", "
")
cvr = Replace(cvr, "[/h1]", "
")
cvr = Replace(cvr, "[o]", "•")
end function
Function temizle(gln,trc)
if trim(gln)="" then
exit function
end if
Set objReg = New RegExp
objReg.Global = True
objReg.IgnoreCase = True
objReg.Pattern = "<[^>]*>"
tm2 = objReg.Replace(gln,"")
ozl=tm2
if trc="1" then
ozl = Replace(ozl, "Ö", "Ö")
ozl = Replace(ozl, "Ü", "Ü")
ozl = Replace(ozl, "İ", "İ")
ozl = Replace(ozl, "Ç", "Ç")
ozl = Replace(ozl, "Ş", "Ş")
ozl = Replace(ozl, "Ğ", "Ğ")
ozl = Replace(ozl, "ö", "ö")
ozl = Replace(ozl, "ü", "ü")
ozl = Replace(ozl, "ı", "ı")
ozl = Replace(ozl, "ç", "ç")
ozl = Replace(ozl, "ş", "ş")
ozl = Replace(ozl, "ğ", "ğ")
ozl = Replace(ozl, "£", "£")
ozl = Replace(ozl, "€", "¨")
ozl = Replace(ozl, "~", "€")
ozl = Replace(ozl, "´", "´")
ozl = Replace(ozl, "ß", "ß")
ozl = Replace(ozl, "æ", "æ")
end if
ozl = Replace(ozl, VbCrlf, "[br]")
ozl = Replace(ozl, chr(13), "[br]")
temizle=cvr(brc(Trim(ozl)))
end Function
f_send=request("send")
f_as=temizle(request("as"),1)
f_as2=temizle(request("as"),0)
f_mail=temizle(request("mail"),1)
f_konu=temizle(request("konu"),1)
f_konu2=temizle(request("konu"),0)
f_mesaj=temizle(request("mesaj"),1)
if f_send="yes" then
msgx = ""
msgx = msgx&"
"
msgx = msgx&"Adı/Soyadı : "&f_as&"
"
msgx = msgx&"E-Mail'i : "&f_mail&"
"
msgx = msgx&"Telefon Numaranız : "&f_konu&"
"
msgx = msgx&"Sorularınız varsa buraya yazın :
"&f_mesaj&"
"
m_host="webmail.kendimiseviyorum.com"
m_user="info@kendimiseviyorum.com"
m_pass="ayibogan159"
m_send="info@kendimiseviyorum.com"
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = m_host
Mail.Username= m_user
Mail.Password= m_pass
Mail.From = m_user
Mail.FromName = m_user
Mail.AddAddress m_send
Mail.IsHTML = True
Mail.Charset = "iso-8859-9"
Mail.Subject = f_as2&" - "& f_konu2 &" - Acı Çehre.Name "
Mail.Body = msgx
bSuccess = False
Mail.Send
set Mail=Nothing
end if
%>
..
İLETİŞİM FORMU |
|
Bize Ulaşın:
GSM:
0506 710 03 85
TEL: 0216 345 42 94 | E-Mail : destek@pusulla.net |
<% if not f_send="yes" then%>
<%else%>
Mesajınız Tarafımıza Ulaşmıştır.
En Yakın Zamanda Sizinle
İletişime Geçilecektir.
İlginiz İçin Teşekkür Ederiz...
<%end if%>
|