<% 'Envio de email '--------------- nombre = Request.form("nombre") empresa = Request.form("empresa") telefono1 = Request.form("telefono1") correo = Request.form("correo") 'direccion = Request.form("direccion") 'codigopostal = Request.form("codigopostal") 'ciudad = Request.form("ciudad") 'provincia = Request.form("provincia") 'fax = Request.form("fax") 'tema = Request.form("tema") If nombre <> "" Then ServidorDeCorreo = "smtp.bio-sol.net" MailDestino = "energia@bio-sol.net" ElQueEnvia = Request.Form("Nombre") comentario = Request.Form("comentario") correo = Request.Form("correo") Mensaje = "Contactar con Bio-Sol" _ & "" _ & "" _ & "

 

" _ & "Nombre:" & " " & nombre & "
" _ & "E-mail:" & " " & correo & "
" _ & "Empresa:" & " " & empresa & "
" _ & "Tlf:" & " " & telefono1 & "
" _ & "

" & comentario & "

" _ & "
"& "
" & "E-mail :" & correo _ & "
" _ & "
" _ & "www.bio-sol.net
" _ & "
" _ & "" Set JMail = Server.CreateObject("JMail.Message") JMail.From = "energia@bio-sol.net" JMail.Subject = "Contactar: Más información (BIO-SOL)" JMail.AddRecipient MailDestino JMail.AppendHTML Mensaje JMail.Priority = 3 JMail.Send(ServidorDeCorreo) '& "Dirección:" & " " & direccion & "
" _ '& "Ciutad:" & " " & ciudad & "
" _ '& "Tlf:" & " " & telefono1 & "
" _ '& "Fax:" & " " & fax & "
" _ '& "Tema" & " " & tema & "
" _ %>

 Inicio
 Productos
 Ofertas
 Precios
 Gestión Pedidos
 Contáctenos
 Delegaciones
 

Sus datos han sido enviados correctamente.

Nos pondremos en contacto con usted a la mayor brevedad posible.

<%Else%>

 Inicio
 Productos
 Ofertas
 Precios
 Gestión Pedidos
 Contáctenos
 Delegaciones
 
Nombre:
Empresa:
Teléfono:
E-mail:
Comentarios:

<%End If%>