<% nombre=Request.Form("nombre") cargo=Request.Form("cargo") empresa=Request.Form("empresa") direccion=Request.Form("direccion") ciudad=Request.Form("ciudad") pais=Request.Form("pais") telefono=Request.Form("telefono") fax=Request.Form("fax") email=Request.Form("email") comentario=Request.Form("comentario") strTo = "andes@andesimport.cl" strSubject = "Contactenos para Andesimport Ltda :" strBody = "" strBody = strBody & "Este es un mensaje generado el formulario contactenos de Andesimport Ltda :" & "

" strBody = strBody & "Nombres : "& nombre &"
" strBody = strBody & "Cargo : "& cargo &"
" strBody = strBody & "Empresa o Institución : "& empresa &"
" strBody = strBody & "Dirección : "& direccion &"
" strBody = strBody & "Ciudad : "& ciudad &"
" strBody = strBody & "País : "& pais &"
" strBody = strBody & "Teléfono : "& telefono &"
" strBody = strBody & "Fax : "& fax &"
" strBody = strBody & "E-Mail : "& email &"
" strBody = strBody & "Comentarios : "& comentario &"
" strBody = strBody & "" Set objCDOMail = Server.CreateObject("CDONTS.NewMail") objCDOMail.From = "andes@andesimport.cl" objCDOMail.To = strTo objCDOMail.Subject = strSubject objCDOMail.BodyFormat=0 objCDOMail.MailFormat=0 objCDOMail.Body = strBody objCDOMail.Send Set objCDOMail = Nothing Response.redirect "gracias.htm" %>