<%
qsel="SELECT *,T_VENDEDOR.NOME AS NOMEVENDEDOR, T_REPRESENTANTE.NOME AS NOMEREPRESENTANTE FROM T_PROPOSTA,T_VENDEDOR, T_REPRESENTANTE WHERE T_PROPOSTA.IDVENDEDOR=T_VENDEDOR.IDVENDEDOR AND T_PROPOSTA.IDREPRESENTANTE=T_REPRESENTANTE.IDREPRESENTANTE AND IDPROPOSTA="&Request.QueryString("id")
Set RSsel=Conexao.Execute(qsel)
Dim objMailer 'Mailer control
Set objMailer = Server.CreateObject("Dundas.Mailer")
titulo_email="CANCELAMENTO DE PROPOSTA/CONTRATO"
descricao_email="O vendedor "&RSsel("NOMEVENDEDOR")&"/"&RSsel("NOMEREPRESENTANTE")&" está pedindo o cancelamento de uma Proposta/Contrato com número "&Request.QueryString("id")&" ."
objMailer.TOs.Add to_email
objMailer.FromAddress = from_email
objMailer.Priority = 1
objMailer.Subject = ".:CREDILON:. - CANCELAMENTO - Nº "&Request.QueryString("id")
objMailer.SMTPRelayServers.Add smtp_server
objMailer.HTMLBody = ".: Credilon :.
.: CREDILON:.
Titulo:"&titulo_email&"
Descrição:
"&descricao_email&"
"
objMailer.SendMail
'you can test for the success/failure of the operation by examining VBScript's Err object here
Set objMailer = Nothing
%>
Pedido de Cancelamento
SEU
PEDIDO DE CANCELAMENTO
FOI ENVIADO COM SUCESSO!!!