<% nombre=Request.Form("nombre") apellido=Request.Form("apellido") telefono=Request.Form("telefono") fax=Request.Form("fax") direccion=Request.Form("direccion") ciudad=Request.Form("ciudad") pais=Request.Form("pais") email=Request.Form("email") rubro=Request.Form("rubro") dproducto=Request.Form("dproducto") producto=Request.Form("producto") cantidad=Request.Form("cantidad") strTo = "cotizacion@andesimport.cl" strSubject = "Envio de cotización para Andesimport Ltda : " strBody = "" strBody = strBody & "Este es un mensaje generado por el formulario cotización de Andesimport Ltda :" & "

" strBody = strBody & "Nombre : "& nombre &"
" strBody = strBody & "Apellido : "& apellido &"
" strBody = strBody & "Teléfono : "& telefono &"
" strBody = strBody & "Fax : "& fax &"
" strBody = strBody & "Direccion : "& direccion &"
" strBody = strBody & "Ciudad : "& ciudad &"
" strBody = strBody & "Pais : "& pais &"
" strBody = strBody & "E-mail : "& email &"
" strBody = strBody & "Categoria : "& rubro &"
" strBody = strBody & "Código : "& dproducto&"
" strBody = strBody & "Producto : "& producto &"
" strBody = strBody & "Cantidad : "& cantidad &"
" strBody = strBody & "" Set objCDOMail = Server.CreateObject("CDONTS.NewMail") objCDOMail.From = "cotizacion@andesimport.cl" objCDOMail.To = strTo objCDOMail.Subject = strSubject objCDOMail.BodyFormat=0 objCDOMail.MailFormat=0 objCDOMail.Body = strBody objCDOMail.Send Set objCDOMail = Nothing %> <% Set objDB = Server.CreateObject("ADODB.Connection") objDB.Open "DSN=andesimportdsn; UID=; PWD=;" Set objDB = objDB.Execute(" DELETE * from cotizacion ") %> <% Response.redirect "gracias.htm" %>