<% sCrLf = Chr(13) & Chr(10) mensaje="" mensaje=mensaje & "Comentarios de un Usuario" & sCrLf & sCrLf 'mensaje=mensaje & "Datos de un Cliente" & sCrLf & sCrLf 'mensaje=mensaje & "Un usuario ha proporcionado sus comentarios " 'mensaje=mensaje & "favor de confirmar dicha información." & sCrLf & sCrLf mensaje=mensaje & "---------------------------------" & sCrLf & sCrLf mensaje=mensaje & "---------------------------------" & sCrLf & sCrLf mensaje=mensaje & "Nombre: " & Nombre & sCrLf & sCrLf & sCrLf mensaje=mensaje & "Dirección: " & Dirección & sCrLf & sCrLf & sCrLf mensaje=mensaje & "Teléfono: " & Teléfono & sCrLf & sCrLf & sCrLf mensaje=mensaje & "Ciudad: " & Fáx & sCrLf & sCrLf & sCrLf mensaje=mensaje & "E-Mail: " & E-Mail & sCrLf & sCrLf & sCrLf mensaje=mensaje & "Mensaje: " & Mensaje & sCrLf & sCrLf & sCrLf mensaje=mensaje & "---------------------------------" & sCrLf & sCrLf mensaje=mensaje & "-----------------------------------" & sCrLf & sCrLf Set Mail = CreateObject("CDONTS.Newmail") Mail.From = "contacto@gemtel.net" Mail.To = "vesquivel@gemtel.net" 'Mail.Cc = "vesquivel@gemtel.net" Mail.Subject = "Comentarios desde Sitio Web" Mail.Body = mensaje Mail.Send Set Mail = Nothing %>
 
 
 
     
 

<% nombre = Request.Form("nombre") direccion = Request.Form("direccion") telefono = Request.Form("telefono") fax = Request.Form("fax") email = Request.Form("email") mensaje = Request.Form("mensaje")