<% If Request.querystring("Send") <> "" Then msg_txt = "New Contact Form" msg_txt = msg_txt & "

Name: " & Request.form("FromName") msg_txt = msg_txt & "
Email: " & Request.form("From") msg_txt = msg_txt & "
Company: " & Request.form("Firma") msg_txt = msg_txt & "
Tel: " & Request.form("Phone") msg_txt = msg_txt & "
Subject: " & Request.form("Konu") msg_txt = msg_txt & "

Message:
" & Request.form("mesaj") msg_txt = msg_txt & "
" Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = "mail.aprofil.com.tr" Mail.From = Request.form("From") Mail.FromName = Request.form("FromName") Mail.AddAddress "info@aprofil.com.tr" Mail.Subject = "Contact Form" Mail.IsHTML = True Mail.Body = msg_txt On Error Resume Next Mail.Send If Err <> 0 Then msg = "Failed to send message.
" & Err.Description else msg = "Message Mode." End If End If %> A Profile - Contact

 

  • Building profiles of a brand...

  • Front profile of experience, technology and trust...

  • Front profile of experience, technology and trust...

  • Building profiles of a brand...

  • Front profile of experience, technology and trust...

  • Building profiles of a brand...

  • Building profiles of a brand...

 
 
Name---
E-mail---
Company---
Tel---
Subject---
   
Message---