Problema con form ASP-CDOSYS 2: la vendetta

[Internos]

Ciao, sono ancora quello che non va d'accordo con gli apici .
Questa volta è un pochino più complesso, ma ho il forte dubbio
che si tratti nuovamente di un problema di apici.
Il file processa una form da cui si inviano delle newsletter.
Ci sono due case, cdo (plan text) e cdohtml
e ognuno dovrebbe far partire la mail con allegato. La cosa che mi sta facendo intrippare è che la versione plan text viene inviata regolarmente, con tanto di allegato, mentre la versione html, pur non dando alcun errore e leggendo il processo come corretto, con tanto di conteggio delle mail inviate, non funge.
Cioè non arriva nessuna email

Questa è la parte di listato 'incriminata'

Function sendMail(fromName, from, rcpt, subject, body)

pEmailComponent=lcase(pEmailComponent)

on error resume next

-------------inizio parte che funziona-------:fonzie:
if pEmailComponent="cdo" then
Set mail = server.CreateObject("CDO.Message")
mail.From = from &"("&fromName&")"
mail.To = rcpt &"("&salute&")"
mail.Subject = subject
mail.textBody = body
if pattachment<>"" then
myarrayt = Split(pattachment, ",")
numberofattached = ubound(myarrayt)+1
i=0
for i=0 to numberofattached - 1
mail.AddAttachment (Server.Mappath("/public/newsletter/attachments/"&myarrayt(i)&""))
next
end if
on error resume next
mail.Send
Set Mail = Nothing
end if
---------fine parte che funziona----------


--------------inizio parte che non funziona-:incazz:

if pEmailComponent="cdohtml" then

Set mail = server.CreateObject("CDO.Message")
mail.From = from &"("&fromName&")"
mail.To = rcpt &"("&salute&")"
mail.Subject = subject
mail.htmlBody = body
mail.textBody = ptextbody
if pattachment<>"" then
myarrayt = Split(pattachment, ",")
numberofattached = ubound(myarrayt)+1
i=0
for i=0 to numberofattached - 1
mail.AddAttachment (Server.Mappath("/public/newsletter/attachments/"&myarrayt(i)&""))
next
end if
on error resume next
mail.Send
Set Mail = Nothing
end if--------------fine parte che non funziona

<%
end if
end Function
%>


Inoltre, devo precisare che, haimè, in questo caso il tutto è installato su Arubaruba .
Un aiutino?

 

[ArtCava]

on error resume next

Prova a toglierlo (quello all'inizio...) e postaci l'errore...

:byebye:

 

[Internos]

Ciao, e grazie per la risposta..:byebye:

Fortunatamente ho risolto

Il problema era qui

mail.textBody = ptextbody

Tolto quello, è filato tutto liscio.
E' una mailing list in cui, quando ci si iscrive, si può scegliere se ricevere mail in formato plan text o html;
solo che
mail.textBody = ptextbody richiamava una voce che non poteva esistere, se il caso era cdohtml

Ce l'avevo sotto il naso da due giorni e non riuscivo a vederlo, ormail mi ero convinto che ci fosse qualcosa con gli apici, perchè di solito sbaglio là.
devo stare più attento.

Comunque, grazie!! :fonzie:

 

[ArtCava]

Ciao Internos,

Felice che tu alla fine abbia risolto, ma se vuoi un consiglio valido sempre, quando sei in debug on error resume next non metterlo, così se ci sono errori madornali li becchi subito, e non dopo due giorni...

:byebye:

 

[Internos]

Ti ringrazio per il consiglio;
cmq, quella è stata la prima cosa che ho provato a fare
e non dava nessuno errore; si comportava esattamente come se avesse inviato le mail, con tanto di conteggio di mail inviate e notifica a me che le mail erano state inviate con successo!
Tra l'altro, su un altro server andava benissimo così.
Comunque è vero che in debug va sempre tolto, è una buona norma.