E posivel as informação no email

[arldin]

O que eu estou querendo e o sequinte eu tenho o documento enviar1.asp para recer email no meu site,

Gostaria de saber 2 coisas

A primeira e se as palvaras podem vim com cor, e se tambem pode vir tipo tabela

O codigo e este as palavras são a que estão em vermelho

<%

sch = "http://schemas.microsoft.com/cdo/configuration/"

Set cdoConfig = Server.CreateObject("CDO.Configuration")

cdoConfig.Fields.Item(sch & "sendusing") = 2

cdoConfig.Fields.Item(sch & "smtpauthenticate") = 1

cdoConfig.Fields.Item(sch & "smtpserver") = "smtp.arldinartfest.com.br"

cdoConfig.Fields.Item(sch & "smtpserverport") = 25

cdoConfig.Fields.Item(sch & "smtpconnectiontimeout") = 30

cdoConfig.Fields.Item(sch & "sendusername") = "arldin@arldinartfest.com.br"

cdoConfig.Fields.Item(sch & "sendpassword") = "ar592409"

cdoConfig.fields.update

Set cdoMessage = Server.CreateObject("CDO.Message")

Set cdoMessage.Configuration = cdoConfig

cdoMessage.From = request.Form("responder")

cdoMessage.To = request.Form("destino")

cdoMessage.Subject = "Formulario de Pedido"

strBody = "Dados do Pedido" & vbCrLf & vbCrLf & _

"CÓD.001 HOMEM ARANHA PREÇO R$: "& Request("preco1") & vbCrLf & _

"QUANTIDADE: "& Request("quant1") & vbCrLf & _

"TOTAL R$: "& Request("total1") & vbCrLf & _

"CÓD.002 FLAMENGO PREÇO R$: "& Request("preco2") & vbCrLf & _

"QUANTDADE: "& Request("quant2") & vbCrLf & _

"TOTAL R$: "& Request("total2") & vbCrLf & _

"TOTAL DO PEDIDO R$: "& Request("totalgeral") & vbCrLf & _

"NOME: "& Request("nome") & vbCrLf & _

"ENDEREÇO: "& Request("end") & vbCrLf & _

"NUMERO: "& Request("num") & vbCrLf & _

"CIDADE: "& Request("cid") & vbCrLf & _

"ESTADO: "& Request("estado") & vbCrLf & _

"CEP: "& Request("cep") & vbCrLf & _

"DDD: "& Request("ddd") & vbCrLf & _

"TELEFONE: "& Request("tel") & vbCrLf & _

"FAX: "& Request("fax") & vbCrLf & _

"E-MAIL: "& Request("responder") & vbCrLf & _

"FORMAS DE PAGAMENTO: "& Request("pag") & vbCrLf & _

"CHEQUE NUM: "& Request("numch") & vbCrLf & _

"BANCO NUM: "& Request("bcnum") & vbCrLf & _

"CONTA NUM: "& Request("cc") & vbCrLf & _

"BOM PARA: "& Request("dta") & vbCrLf & _

"COLOQUE OUTROS TEMAS QUE NÃO TENHA NESTE FORMULARIO "& Request("mensagem")

strBody = strBody & "."

cdoMessage.HTMLBody = strBody

cdoMessage.Send

Set cdoMessage = Nothing

Set cdoConfig = Nothing

response.write "O E-mail foi processado e enviado com sucesso"

%>

[.Andreia.]

A primeira e se as palvaras podem vim com cor, e se tambem pode vir tipo tabela

Sim e Sim, é só colocar as tags HTML que definem a formatação do texto e tabelas. por exemplo

"<table><tr><td><b>NOME:</b> "& Request("nome") & "</td>" & vbCrLf & _