<%
If Request.querystring("Send") <> "" Then
msg_txt = "kurshuni.com | partnership"
msg_txt = msg_txt & "
firma: " & Request.form("firma")
msg_txt = msg_txt & "
isim: " & Request.form("name")
msg_txt = msg_txt & "
adres: " & Request.form("adres")
msg_txt = msg_txt & "
istlf: " & Request.form("istlf")
msg_txt = msg_txt & "
gsm: " & Request.form("gsm")
msg_txt = msg_txt & "
fax: " & Request.form("fax")
msg_txt = msg_txt & "
Email: " & Request.form("From")
msg_txt = msg_txt & "
web: " & Request.form("web")
msg_txt = msg_txt & "
sektorsene: " & Request.form("sektor")
msg_txt = msg_txt & "
calisan: " & Request.form("calisan")
msg_txt = msg_txt & "
magaza: " & Request.form("magaza")
msg_txt = msg_txt & "
magazaadres: " & Request.form("magazadres")
msg_txt = msg_txt & "
alan: " & Request.form("alan")
msg_txt = msg_txt & "
referans: " & Request.form("referans")
msg_txt = msg_txt & "
tercihsebebi: " & Request.form("S1")
msg_txt = msg_txt & "
Mesajınız:
" & Request.form("mesaj")
msg_txt = msg_txt & ""
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "mail.kurshuni.com"
Mail.From = Request.form("From")
Mail.FromName = Request.form("FromName")
Mail.AddAddress "info@kurshuni.com"
Mail.Subject = "kurshuni.com | partnership"
Mail.IsHTML = True
Mail.Body = msg_txt
On Error Resume Next
Mail.Send
If Err <> 0 Then
msg = "Mesajiniz Gonderilememistir..Lutfen Tekrar Deneyiniz..Formu Eksiksiz Doldurunuz.!.
" & Err.Description
else
msg = "Mesajınız iletildi..."
End If
End If
%> |
|
|
|
