<%@ Language=VBScript %> <% response.buffer = true if Request.Form <> "" then 'Aquí enviamos el mail inmediato con la solicitud de informacion vInstitucion = Request.Form("institucion") vDireccion = Request.Form("ruc") vDistrito = Request.Form("direccion") vTelefono=Request.Form("telefax") vFax=Request.Form("telefax") vCorreo =Request.Form("correo") vWeb =Request.Form("correo") vRepresentante =Request.Form("correo") vCargo =Request.Form("correo") vFecha =Request.Form("p1") vHora =Request.Form("p2") vComentarios =Request.Form("p3") 'vPara = "ventas@onlinesolutions.com.pe" vPara = "inventysac@yahoo.es" vAsunto = "(Inscripcion por Internet) Inventy" vContenido = vContenido & "" vContenido = vContenido & "Inscripcion Por Internet:Guía de Colegios Norte
" vContenido = vContenido & "============================================================
" vContenido = vContenido & "Institución: " & vInstitucion & "
" vContenido = vContenido & "Dirección: " & vDireccion & "
" vContenido = vContenido & "Distrito: " & vDistrito & "
" vContenido = vContenido & "Telefono: " & vTelefono & "
" vContenido = vContenido & "Fax: " & vFax & "
" vContenido = vContenido & "Correo: " & vCorreo & "
" vContenido = vContenido & "Web: " & vWeb & "
" vContenido = vContenido & "Representante: " & vRepresentante & "
" vContenido = vContenido & "Cargo: " & vCargo & "
" vContenido = vContenido & "Fecha: " & vFecha & "
" vContenido = vContenido & "Hora: " & vHora & "
" vContenido = vContenido & "Comentarios: " & vComentarios & "
" vContenido = vContenido & "Fecha de Inscripcion: " & now() & "
" vContenido = vContenido & "" Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = "mail.inventy.com.pe" Mail.Username = "ventas@inventy.com.pe" Mail.Password = "i123456" Mail.From = vCorreo Mail.FromName = vNombres Mail.AddAddress vPara, "(Inventy)" Mail.Subject = vAsunto Mail.Body = vContenido Mail.IsHTML = True On Error Resume Next Mail.Send If Err <> 0 Then Response.Write(Err.Description) Else Response.Write("El correo fué enviado con éxito") End If 'Response.Redirect "index.htm" 'http://www.publimailperu.com/ols/inventy/p21/ficha.htm End if %>

<% If Err = 0 Then %> Gracias por inscribirse, en breve nos pondremos encontacto con usted. <% else %> Lo Sentimos se ha presentado un problema en el servidor: por favor escribamos a: inventysac@yahoo.es <%End If%>

[ Cerrar ]