<% ' mensaje en formato html Dim HTML HTML = "" HTML = HTML & "[nombre o razón social]" HTML = HTML & " " & REquest("nombre") & "

" HTML = HTML & "[giro de la empresa]" HTML = HTML & " " & REquest("giro") & "

" HTML = HTML & "[dirección] " HTML = HTML & "calle: " & REquest("calle") & ", número: " & REquest("numero") & ", colonia: " & REquest("colonia") & ", codigo: " & REquest("codigo") & "

" HTML = HTML & "[ciudad México]" HTML = HTML & " " & REquest("estado") & "

" HTML = HTML & "[ciudad extranjero]" HTML = HTML & " " & REquest("select2") & "

" HTML = HTML & "[teléfono]" HTML = HTML & " " & REquest("telefono") & "

" HTML = HTML & "[teléfono 2]" HTML = HTML & " " & REquest("telefono2") & "

" HTML = HTML & "[fax]" HTML = HTML & " " & REquest("fax") & "

" HTML = HTML & "[e-mail]" HTML = HTML & " " & REquest("email") & "

" HTML = HTML & "[apellido paterno]" HTML = HTML & " " & REquest("apellidopaterno") & "

" HTML = HTML & "[apellido materno]" HTML = HTML & " " & REquest("apellidomaterno") & "

" HTML = HTML & "[nombre]" HTML = HTML & " " & REquest("nombrep") & "

" HTML = HTML & "[área del contácto]" HTML = HTML & " " & REquest("select3") & "

" HTML = HTML & "[télefono del contácto]" HTML = HTML & " " & REquest("telcontacto") & "

" HTML = HTML & "[extensión]" HTML = HTML & " " & REquest("extension") & "

" HTML = HTML & "[e-mail de contacto]" HTML = HTML & " " & REquest("emailcontacto") & "

" HTML = HTML & "[puesto del contacto]" HTML = HTML & " " & REquest("puestocontacto") & "

" HTML = HTML & "[más información]" HTML = HTML & " " & REquest("textfield") & "

" HTML = HTML & "" ' a quien va dirigido Dim para ' quien lo envia Dim de ' asunto, en este caso cotización Dim tema ' con copia oculta Dim concopia ' a que pagina me lleva despues Dim adonde para = Cstr(Request("para")) de = Cstr(Request("de")) concopia = Cstr(Request("concopia")) tema = Cstr(Request("tema")) adonde = Cstr(Request("adonde")) ' Response.write HTML Dim myMail Set myMail = CreateObject("CDONTS.NewMail") myMail.From = de myMail.To = para if concopia <> "" then myMail.Bcc = concopia end if myMail.Subject = tema myMail.BodyFormat = 0 myMail.MailFormat = 0 myMail.Body = HTML myMail.Send Set myMail = nothing 'Response.end %>