<%@ Language=VBScript %> <% response.buffer = true if Request.Form <> "" then 'Aquí enviamos el mail inmediato con la solicitud de informacion vRazonSocial = Request.Form("razonsocial") vRuc = Request.Form("ruc") vDireccion = Request.Form("direccion") vTelefax=Request.Form("telefax") vCorreo =Request.Form("correo") vP1 =Request.Form("p1") vP2 =Request.Form("p2") vP3 =Request.Form("p3") vP4 =Request.Form("p4") vP5 =Request.Form("p5") vP6 =Request.Form("p7") vFuncionario = Request.Form("funcionario") vCargo = Request.Form("cargo") vFormaPago = Request.Form("formaPago") 'vPara = "inventysac@yahoo.es" vPara = "jmontoya@onlinesolutions.com.pe" vAsunto = "Inscripcion por Internet) Guia de la Salud" vContenido = vContenido & "" vContenido = vContenido & "Inscripcion Por Internet: PRIMEROS AUXILIOS
" vContenido = vContenido & "============================================================
" vContenido = vContenido & "Razon Social: " & vRazonSocial & "
" vContenido = vContenido & "RUC: " & vRuc & "
" vContenido = vContenido & "Dirección: " & vDireccion & "
" vContenido = vContenido & "TeleFax: " & vTelefax & "
" vContenido = vContenido & "Correo: " & vCorreo & "
" vContenido = vContenido & "Participantes:
" vContenido = vContenido & "

1." & vP1 & "
" vContenido = vContenido & "2." & vP2 & "
" vContenido = vContenido & "3." & vP3 & "
" vContenido = vContenido & "4." & vP4 & "
" vContenido = vContenido & "5." & vP5 & "
" vContenido = vContenido & "6." & vP6 & "

" vContenido = vContenido & "Funcionario: " & vFuncionario & "
" vContenido = vContenido & "Cargo: " & vCargo & "
" vContenido = vContenido & "Forma de Pago: Opción " & vFormaPago & "
" 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 ]