%@LANGUAGE="VBSCRIPT" CODEPAGE="1254"%>
<%
If Request.querystring("Send") <> "" Then
msg_txt = "Yeni İletişim Formu"
msg_txt = msg_txt & "
Adı Soyadı: " & Request.form("FromName")
msg_txt = msg_txt & "
Email Adresi: " & Request.form("From")
msg_txt = msg_txt & "
Telefon: " & Request.form("Firma")
msg_txt = msg_txt & "
Okul Adı: " & Request.form("Phone")
msg_txt = msg_txt & "
Mesaj:
" & Request.form("mesaj")
msg_txt = msg_txt & ""
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Charset = "windows-1254"
Mail.Host = "mail.arge10.com"
Mail.username = "iletisim@arge10.com"
Mail.password = "argeile10"
Mail.From = Request.form("From")
Mail.FromName = Request.form("FromName")
Mail.AddAddress "iletisim@arge10.com"
Mail.Subject = "İletişim Formu"
Mail.IsHTML = True
Mail.Body = msg_txt
On Error Resume Next
Mail.Send
If Err <> 0 Then
msg = "Mesajınız Gönderilemedi.
Bilgilerinizi eksiksiz ve doğru giriniz!"
else
msg = "Mesajınız Alınmıştır.
En kısa zamanda sizinle temas kuracağız.
İlginiz için teşekkürler..."
End If
End If
%>
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||