<% ' change to address of your own SMTP server strHost = "mail.fabricadosfz.com" If Request("Send") <> "" Then Set Mail = Server.CreateObject("Persits.MailSender") ' enter valid SMTP host Mail.Host = strHost Mail.From = Request("From") ' From address Mail.FromName = Request("FromName") ' optional Mail.AddAddress "fabricadosfz@fabricadosfz.com" ' Request("To") ' message subject ' Mail.Subject = Request("Subject") ' message body Mail.Body = "Nombre: " & Request("FromName") & chr(13) & "Poblacion: " & Request("Poblacion") & chr(13) & "Provincia: " & Request("Provincia") & chr(13) & "Pais: " & Request("Pais") & chr(13) & "Telefono: " & Request("Telefono") & chr(13) & "Asunto: " & Request("Body") strErr = "" bSuccess = False On Error Resume Next ' catch errors Mail.Send ' send message If Err <> 0 Then ' error occurred strErr = Err.Description else bSuccess = True End If End If %> Solicite información

 

<% If strErr <> "" Then %> Error occurred: <% = strErr %> <% End If %> <% If bSuccess Then %> Mensaje enviado correctamente a Fabricados FZ <% = Request("To") %> . <% End If %>

E-Mail:
Nombre:
Población:
Provincia:
Pais:
Telefono:
Asunto:
©Fabricados FZ C.B. - Todos los derechos reservados - Aviso Legal