marneiak

Amigos... meu servidor alterou o compronente de envio de e-mail de CDONTS para CDOSYS, mas não sei como configurar essa alteração no meu atual código... por favor me ajudem... segue abaixo o código:

<%if request.form("txt_produto") <> "" then

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objHTML = objFSO.OpenTextFile( server.MapPath("emails") & "\indique.html", 1, True, 0)
mensagem = objHTML.ReadAll
Set objHTML = Nothing
Set objFSO = Nothing
response.clear
mensagem = Replace(mensagem, "##nome_loja##", loja("nome_loja"))
mensagem = Replace(mensagem, "##slogan_loja##", loja("slogan_loja"))
mensagem = Replace(mensagem, "##forma_entrega##", tfrete)
mensagem = Replace(mensagem, "##email_loja##", loja("email"))
mensagem = Replace(mensagem, "##endereco_loja##", loja("endereco"))
mensagem = Replace(mensagem, "##cep_loja##", loja("cep"))
mensagem = Replace(mensagem, "##bairro_loja##", loja("bairro"))
mensagem = Replace(mensagem, "##cidade_loja##", loja("cidade"))
mensagem = Replace(mensagem, "##estado_loja##", loja("estado"))
mensagem = Replace(mensagem, "##url_loja##", "http://" & loja("url_loja"))
mensagem = Replace(mensagem, "##NOME##", request.form("txt_nome"))
mensagem = Replace(mensagem, "##NOME_PRODUTO##", request.form("txt_nome_produto"))
mensagem = Replace(mensagem, "##IDPRODUTO##", request.form("txt_produto"))
mensagem = Replace(mensagem, "##NOME_INDICADO##", request.form("txt_destinatario"))

enviar loja("email"), request.form("txt_email_destinatario") , request.form("txt_nome")&" te deixou um recado!", mensagem

%>