<% Nombre = Request.Form("Nombre") Tema = Request.Form("Tema") email = Request.Form("email") Tel = Request.Form("Tel") Ciudad = Request.Form("Ciudad") Empresa = Request.Form("Empresa") Puesto = Request.Form("Puesto") Comentarios = Request.Form("Comentarios") If Nombre = "" Then mensaje = mensaje & "Nombre
" End If If email = "" Then mensaje = mensaje & "Correo electrónico
" ElseIf InStr(1,email,"@") <= 0 Then mensaje = mensaje & "El Correo electrónico no tiene un formato válido
" End If If Comentarios = "" Then mensaje = mensaje & "Comentarios
" End If %> <% If mensaje = "" Then mensajeMail = "" mensajeMail = mensajeMail & "Nombre: " & Nombre & Chr(10) mensajeMail = mensajeMail & "Correo Electrónico: " & email & Chr(10) mensajeMail = mensajeMail & "Tema: " & Tema & Chr(10) & Chr(10) mensajeMail = mensajeMail & "Teléfono: " & Tel & Chr(10) mensajeMail = mensajeMail & "Ciudad: " & Ciudad & Chr(10) mensajeMail = mensajeMail & "Empresa: " & Empresa & Chr(10) mensajeMail = mensajeMail & "Puesto: " & Puesto & Chr(10) mensajeMail = mensajeMail & "Comentarios: " & Comentarios & Chr(10) set mailObj = Server.CreateObject("Persits.MailSender") mailObj.From = "map@pyxcom.com" mailObj.FromName = "Sitio Pyxcom" mailObj.Host = "cignus.pyxcom.com" mailObj.Addaddress "leon@pyxcom.com" mailObj.Subject = "Contacto desde el sitio Pyxcom" mailObj.Body = mensajeMail mailObj.Send %> <% Else %> <% End If %>

GRACIAS <%=Nombre%> Sus comentarios han sido enviados. (utilice el menú para continuar navegando por nuestro sitio.)	Ocurrió un error al procesar el formulario; Es necesario completar los campos: <%=mensaje%> haga clic AQUÍ para completar el formulario