KINDER DEL TEPEYAC , S.C. QUIENES SOMOS

"LA EDUCACION COMIENZA EN LA CUNA"
Pernambuco No.785 Col. Lindavista
Teléfono: 01 (55)-5586-0389 / 01 (55)-5119-3761

<% Dim strTo, strBody, strnombre, strcomentario Dim objCDOMail strSubject = "Ha recibido un email de " & Request.Form("Nombre") & " desde su sitio en Internet" strNombre = Request.Form ("Nombre") strDireccion = Request.Form ("Direccion") strTelefono = Request.Form ("Telefono") strEmail = Request.Form ("Email") strComentarios = Request.Form ("Comentarios") strBody = strBody & vbCrLf & vbCrLf strBody = strBody & "Nombre: " strBody = strBody & strNombre strBody = strBody & vbCrLf & vbCrLf strBody = strBody & "Dirección: " strBody = strBody & strDireccion strBody = strBody & vbCrLf & vbCrLf strBody = strBody & "Teléfono: " strBody = strBody & strTelefono strBody = strBody & vbCrLf & vbCrLf strBody = strBody & "Email: " strBody = strBody & strEmail strBody = strBody & vbCrLf & vbCrLf strBody = strBody & "Comentarios: " strBody = strBody & strComentarios strBody = strBody & vbCrLf & vbCrLf If strnombre = "" Then %>

<% else Set objCDOMail = Server.CreateObject("Dundas.Mailer") objCDOMail.SMTPRelayServers.Add "mail.valledelmezquital.com", 25, "mail.valledelmezquital.com", "info@valledelmezquital.com","legp" objCDOMail.FromAddress = "info@kinderdeltepeyac.edu.mx" objCDOMail.Tos.Add "kinderdeltepeyac@prodigy.net.mx" objCDOMail.Subject = strSubject objCDOMail.Body = strBody objCDOMail.SendMail Set objCDOMail = Nothing Set objCDOMail2 = Server.CreateObject("Dundas.Mailer") objCDOMail2.SMTPRelayServers.Add "mail.valledelmezquital.com", 25, "mail.valledelmezquital.com", "info@valledelmezquital.com","legp" objCDOMail2.FromAddress = strmail ' "info@valledelmezquital.com" objCDOMail2.Tos.Add "info@valledelmezquital.com" objCDOMail2.Subject = "Del Kinder del Tepeyac" objCDOMail2.Body = strBody objCDOMail2.SendMail Set objCDOMail2 = Nothing Response.Write "

" Response.Write "Gracias
Sus datos han sido enviados..." Response.Write "" Response.Write "

" Response.Write "Regresar" Response.Write "

" End If %>