<% 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 %>
<%If Request.querystring("Send") <> "" Then%> <%End If%>

BAYIMIZ OLMAK ISTER MISINIZ ?
COMPANY NAME / FIRMA UNVANI :

NAME/SURNAME

 / ADINIZ SOYADINIZ :
ADDRESS / ADRES :
PHONE / TELEFON NO :
MOBİLE PHONE / CEP TELEFON NO :
FAX / FAX :
E-MAIL / E-MAIL :
WEB / WEB :
<%=msg%> 
       

 

Ajansev.net