<% if request.Form()<> "" then Set Mail = Server.CreateObject("Persits.MailSender") Mail.FromName = "Web - aridosycontenedoresbermejo.com" Mail.From = "acb@aridosycontenedoresbermejo.com" Mail.Host = "smtp.aridosycontenedoresbermejo.com" Mail.AddCC "acb@aridosycontenedoresbermejo.com" mail.username="wacb0120" mail.password="bermejo" Mail.AddAddress "acb@aridosycontenedoresbermejo.com" Mail.Subject = "Contacto aridosycontenedoresbermejo.com - No responder a este mensaje" texto = "Este es un mensaje enviado desde la Web aridosycontenedoresbermejo.com" & vbcrlf texto = texto + "No responda automáticamente a este mensaje." & vbcrlf texto = texto + "Más abajo tiene la dirección del usuario, para poder contestarle." & vbcrlf texto = texto + " --------------------------------------------------------------------------" & vbcrlf texto = texto + " Nombre : " & request.form("nombre") & vbcrlf texto = texto + " Telefono : " & request.form("telefono") & vbcrlf texto = texto + " E-mail : " & request.form("email") & vbcrlf texto = texto + " Mensaje : " & request.form("mensaje") & vbcrlf Mail.Body = texto On Error Resume Next Mail.Send If (Err <> 0) then response.write "" else response.write "" end if end if %>
Contacto
Nombre:
Teléfono:
E-mail:
Mensaje:
Dirección:
Ctra. Nacional 110 Soria - Plasencia Km. 186,5
40196 Segovia
Tlf. y Fax.
921 44 43 46
