..:: MX Studio Fóruns ::..: Robozinho de envio de newsletter - ..:: MX Studio Fóruns ::..

Jump to content

Publicidade

ATENÇÃO

Para evitar posts desnecessários e que não influam para o andamento e desenvolvimento do fórum, clique aqui e leia todas as regras.
Page 1 of 1
  • You cannot start a new topic
  • You cannot reply to this topic

Robozinho de envio de newsletter dúvida !!!!

#1 User is offline   sevilla 

  • Group: Membros
  • Posts: 241
  • Joined: 04-March 04

  Posted 10 August 2004 - 10:45 AM

Ae galera !!!

Estou com uma dúvida aqui. Tenho uma página que funciona como um robozinho que envia newsletter automático, até ai tudo bem ... o problema quando eu abro esta página e tento enviar um newsletter ela vai p/ a próxima página e aparece o seguinte erro:

CODE


Server object error 'ASP 0177 : 800401f3'

Server.CreateObject Failed

/uas/envio.asp, line 46

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



Não sei se esta faltando algum arquivo que a página necessita, pois não manjo quase nada de ASP thumbdown.gif ....

o código das página que ele usa são os seguintes:
News.asp
CODE


<%
Response.Write "<html><head><title>Escolha de Arquivos - Newsletter</title></head>"
Response.Write "<body link=#000000 vlink=#000000 alink=#000000>"
Dim ObjFso, ObjArq, ObjPasta, ObjSubPasta
Set ObjFso = Server.CreateObject("Scripting.FileSystemObject")

Response.Write "<br>"

Set ObjPasta = ObjFso.GetFolder(SERVER.MAPPATH("."))

'For Each ObjSubPasta in ObjPasta.Subfolders
'    Response.Write "<a href=view3.asp?pasta="&ObjSubPasta.Name & "> "&ObjSubPasta.Name &" </a?<br>"
'    Response.Write "<br>"
'Next

'Response.Write "</font><br>"
'response.Write("<a></a>")
Response.Write "<font color='#000000' size='2' face='verdana'><b>Listas de Envio "
Response.Write "</b></font><br>"
response.write "<form action=envio.asp method=get>"
Response.Write "<font size='2' face='verdana'>"
response.write "<br> Subject: <br> </font> <input type=text name='txtsubject' size=50> <br> "
response.write "Emails - <br><select name=emailfrom> "
Set arquivo = Server.CreateObject("Scripting.FileSystemObject")
Set emailsfrom = arquivo.OpenTextFile(server.mappath("emailsfrom.txt"),1,true)
while not emailsfrom.AtEndOfStream
response.write "<option> " & emailsfrom.readline
wend
set arquivo=nothing
response.write "</select> <br>"

'---------------------------------  Monta Combo de To (Destinatarios)
response.write "Lista de Envio <br><select name=lista>"
For Each ObjArq in ObjPasta.Files

if mid(objarq.name,len(objarq.name)-2,4)="csv" then
   response.write "<option>" & Mid(ObjArq.Name,1,len(ObjArq.Name)-4)
end if
   
Next
response.write "</select>"
Response.Write "<p>"
Response.Write "<font color='#000000' size='2' face='verdana'><b>News de Envio "
Response.Write "</b></font><p>"

response.write "<select name=News>"
'---------------------------------  Monta Combo de News
For Each ObjArq in ObjPasta.Files
if mid(objarq.name,len(objarq.name)-2,4)="htm" then
   response.write "<option>" & ObjArq.Name
end if
Next
response.write "</select> "
response.write "<br> Email: <input type=text name='txtemail' size=50> <br> "
response.write "<input type=Submit Value='Enviar'></form>"

Set ObjPasta = Nothing
Set ObjArq = Nothing
'Set ObjSubPasta = Nothing
Set ObjFso = Nothing

Response.Write "</body></html>"
%>


envio.asp

CODE

<%
xlista = request("lista")
xnews = request("news")
xemail = request("txtemail")
xsubject= request("txtsubject")
xemailsfrom = request("emailfrom")
response.buffer = true
%>

<form name="f1">
<input type=text name="contador" value="0"> <br>
</form>

<%

response.flush()

Set arquivo = Server.CreateObject("Scripting.FileSystemObject")
Set news = arquivo.OpenTextFile(server.mappath(xnews),1,true)
NewsEnvio  = news.readALL



if len(xemail)=0 then

Set Nomes = arquivo.opentextfile(server.mappath(xlista & ".csv"),1,true)
SERVER.ScriptTimeout = 99999

while not nomes.AtEndOfStream
NomesEnvio = nomes.readline


ok = 0

x = instr(1,NomesEnvio,";")
y = instr(x+1,NomesEnvio," ")
z = instr(1,NomesEnvio,"@.")
w = instr(1,NomesEnvio,".@")

if y<>0 or z<>0 or w<>0 then ok=1

if ok=0 then

'AddressName =  mid(NomesEnvio,1,instr(nomesenvio,";")-1)
AddressMail =  mid(NomesEnvio,instr(nomesenvio,";")+1,len(nomesenvio))
Set objmail = Server.CreateObject("Persits.MailSender")
'objmail.Host = "smtp.iphotel.com.br"
objmail.Host = "unimed06.com.br"
objmail.From = xemailsfrom
objmail.AddAddress AddressMail , AddressName
objmail.Subject = xsubject
objmail.IsHTML = True
objmail.Body = replace(NewsEnvio,"email=","email=" & AddressMail )
objmail.Send
%>

<script language="JavaScript">
document.f1.contador.value++
</script>

<%

Set objmail = nothing
response.flush()
ELSE
response.write "Errado - "  & NomesEnvio
end if
wend

else

AddressName =  "Cliente GP"
AddressMail =  xemail
Set objmail = Server.CreateObject("Persits.MailSender")
'objmail.Host = "smtp.iphotel.com.br"
objmail.Host = "unimed06.com.br"
objmail.From = xemailsfrom
objmail.AddAddress AddressMail , AddressName
objmail.Subject = xsubject
objmail.IsHTML = True
objmail.Body = replace(NewsEnvio,"email=","email=" & AddressMail )
objmail.Send
Set objmail = nothing

end if
set arquivo=nothing

%>

<br>
<A href=news.asp> Voltar </a>



Galera preciso de ajuda !!!!! sad.gif

0

#2 User is offline   rbaialuna 

  • Group: Desafio Fireworks
  • Posts: 2938
  • Joined: 28-January 04

Posted 10 August 2004 - 10:54 AM

Qual o componente de e-mai, do seu servidor???

Pelo que vi no seu código você utiliza FSO e também ASP Mail (ou e-mail, não me lembro bem qual é o da persists...

Primeiro você precisraria ver qual é o Componente de E-mail do seu servidor (ASPMail, AspE-Mail, CDONTS, Etc) para ver se suporta... e ver se seu servidor suporta FSO também...

Verificando isso primeiro já ajuda, pois pode até não ser erro do script seu ok???

Abraços!!! thumbsup.gif
0

Share this topic:


Page 1 of 1
  • You cannot start a new topic
  • You cannot reply to this topic

Similar Topics Collapse

  Topic Forum Started By Stats Last Post Info
New Replies LoadVars + PHP
Dúvida 		Flash & ActionScript Edu Silva 
  • 4 Replies
  • 483 Views
New Replies Tableless e acessibilidade
Dúvida? 		Usabilidade Jaidelson 
  • 3 Replies
  • 2856 Views
Hot Topic (New) Resident Evil 4, *Tópico-Oficial* com Detonado
Dúvidas, dicas, experiências e imagens 		Jogos jones_bass 
  • 18 Replies
  • 82943 Views
New Replies Dúvida sobre formulários Dúvidas Gerais avorray 
  • 0 Replies
  • 499 Views
New Replies centralizar background
duvida 		Dreamweaver ricardovtav 
  • 1 Reply
  • 1249 Views
New Replies Dúvida com MySql MySQL Barba 
  • 0 Replies
  • 579 Views
New Replies [Duvida] Ficha Cadastral em PHP
+ MySQL opcional 		PHP LuKááSsMB 
  • 0 Replies
  • 107 Views
New Replies Galera Tenho duvida em alguns Comandos
Comandos que eu nao concheço e nao sei para que servem!!!& 		Flash & ActionScript Dougls 
  • 2 Replies
  • 876 Views

Publicidade

1 User(s) are reading this topic
0 membro(s), 1 visitante(s) e 0 membros anônimo(s)