Não consigo enviar e-mails

[natalia 0]

Olá pessoal, estou com problemas para enviar e-mails, já perguntei sobre isso aqui mas ainda não consegui resolver.

 

O problema é o erro abaixo:

 

Server object error 'ASP 0177 : 800401f3'

Server.CreateObject Failed

/admin/mailing/mailing_exib.asp, line 40

 

Invalid ProgID. For additional information specific to this message please visit the Microsoft Online Support site located at: http://www.microsoft.com/contentredirect.asp.

 

 

Aí eu descobri que o servidor onde o site está hospedado não tem o Persits instalado. Lá tem este aqui:

 

<% Set upl = Server.CreateObject("SoftArtisans.FileUp") %>

<% upl.Path = "e:\home\login\web\upload" %>

<% upl.Save %>

 

Mas não consigo adapta-lo p/ o código abaixo, pois dá as seguintes mensagens: O arquivo TXT não foi mandado e O arquivo HTML não foi mandado.

Como o meu código ficaria depois de alterado.

 

Set Upload = Server.CreateObject("Persits.Upload.1")

Upload.Save(F_CaminhoVirtual & "\admin\mailing\")

 

on error resume next

varTxt = Upload.Files("txt").extractfilename

if err then

Response.Write "O arquivo TXT não foi mandado<br>"

end if

 

on error resume next

varHtml = Upload.Files("htm").extractfilename

if err then

Response.Write "O arquivo HTML não foi mandado<br>"

end if

 

if varHtml <> "" then

Set fs = CreateObject("Scripting.FileSystemObject")

varCaminho = F_CaminhoVirtual & "\admin\mailing\" & varhtml

Set thisfile = fs.OpenTextFile(varCaminho, forreading, False)

 

while (not thisfile.AtEndOfStream) and response.isclientconnected()

HTML = thisfile.readline

response.write HTML

wend

 

thisfile.Close

set thisfile = nothing

set fs = nothing

end if

%>

</td>

</tr>

</table>

<div align="center">

<input type="hidden" name="txt" value="<%=varTxt%>">

<input type="hidden" name="htm" value="<%=varHtml%>">

<input type="submit" name="Submit2" value="Eviar email">

</div>

</form>

<% if varTxt = "" then %>

<form method="post" action="default.asp">

<div align="center">

<input type="submit" name="Submit" value="Voltar">

</div>

</form>

<%

else

end if

%>

[wxkj 0]

cada componente possui sintaxes diferentes:

 

http://fileup.softartisans.com/default.aspx?PageID=131

[cfuser 0]

Por que você não utiliza o cdonts para enviar emails, já que é encontrado bem mais facilmente nos serviços de hospedagem e ainda por cima é gratuito?Valeu,