<%@ language=VBScript%> <% if Request.QueryString("envio")="si" then set objMail=Server.CreateObject("CDONTS.NewMail") objMail.To="lasdietas@lasdietas.com.ar" objMail.From = Request.Form("Email") objMail.Subject = "Solicitud de "&Request.Form("Nombre") objMail.body = "Enviado desde su Web"& vbCrLf &"Nombre: "&Request.Form("Nombre")& vbCrLf &"Email: "&Request.Form("Email")_ & vbCrLf&"Pais: "&Request.Form("Pais")& vbCrLf&"Fecha de Nacimiento: "&Request.Form("Fecha")&vbCrLf&"Comentarios: "&vbCrLf&vbTab&Request.Form("Comentarios") objMail.send set objMail= nothing end if %>