Bio-Sol - Pedidos

<% 'Envio de email '--------------- nombre = Request.form("nombre") empresa = Request.form("empresa") provincia = Request.form("provincia") telefono1 = Request.form("telefono1") correo = Request.form("correo") referencias = Request.form("referencias") pago = Request.form("pago") 'direccion = Request.form("direccion") 'codigopostal = Request.form("codigopostal") 'ciudad = Request.form("ciudad") '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 = "Pedidos con Bio-Sol" _ & "" _ & "" _ & "

" _ & "Nombre:" & " " & nombre & "
" _ & "E-mail:" & " " & correo & "
" _ & "Tlf:" & " " & telefono1 & "
" _ & "Empresa:" & " " & empresa & "
" _ & "Provincia:" & " " & provincia & "
" _ & "Forma de Pago:" & " " & pago & "
" _ & "

Referencias y cantidades:" & "
" & referencias & "

" _ & "

"& "
" & "E-mail :" & correo _ & "

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

Sus datos han sido enviados correctamente.

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

<%Else%>

Rellene el mayor número de campos, con el fin de poder disponer de mayor información para contactar con usted y llevar a cabo su pedido.

<%End if%>