|
<%
IF Request.Form ("Send") = 1 then
msg = msg & "Exim-usa.com - Contact form" & vbCrLf & vbCrLf
msg = msg & "Name: " & Request.Form ("n")& vbCrLf & vbCrLf
msg = msg & "E-mail: " & Request.Form ("e")& vbCrLf & vbCrLf
msg = msg & "Phone: " & Request.Form ("t")& vbCrLf & vbCrLf
msg = msg & "Inquire: " & Request.Form ("p")& vbCrLf & vbCrLf
msg = msg & "Detail: " & Request.Form ("c")& vbCrLf & vbCrLf
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "mail.exim-usa.com"
'Mail.From = "ventas@compu-ofertas.com"
Mail.From = "mmontero@exim-usa.com"
'Mail.Username = "ventas@compu-ofertas.com"
'Mail.Password = "info"
Mail.FromName = Request.Form ("n")&"<"& Request.Form ("e") &">"
Mail.AddAddress "mmontero@exim-usa.com"
'Mail.AddBCC "gonzalo@compuofertas.net"
Mail.Subject = "Exim-usa.com - Contact form" & Request.Form ("n")
Mail.Body = msg
On error resume next
Mail.Send
set Mail = nothing
If Err <> 0 Then
Response.Write "Mail Error"
Else
%>
<%
end if
%>
<%ELSE%>
<%end if %>
|
