ASP Classic, Boucler la requête et envoyer des e-mails

Question

J'essaie de faire défiler une requête de base de données et d'envoyer des e-mails aux adresses e-mail que je reçois de la requête. Voici mon morceau de code.

do until rs.EOF 
    Set myMail = CreateObject("CDO.Message") 
    myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 
    myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="relay-hosting.secureserver.net" 
    myMail.Configuration.Fields.Update 
    myMail.Subject= subject 
    myMail.From="something@Something.Something" 
    myMail.To = rs("Email") 
    myMail.HTMLBody = strMessage & "Some Message" 
    myMail.Send 
    Set myMail = Nothing 
    rs.MoveNext 
loop 

J'ai cherché et essayé une solution différente sans aucune chance. Les lignes suivantes du code semble avoir un problème, mais je ne pouvais pas trouver ce que

myMail.To = rs("Email") 

Avant de donner une réponse ou suggestion s'il vous plaît garder à l'esprit,

• Ce code fonctionne très bien quand je l'utilise tout adresse électronique statique dans l'attribut "TO" de l'objet Message CDO
• La requête donne des résultats précis
• Je reçois 500 erreur interne du serveur lorsque j'utilise l'email dynamique (email de la requête) dans l'attribut "TO" du message CDO objet . Je n'ai pas l'accès à IIS pour activer les messages d'erreur détaillés.

Answer 1

Eh bien, comme d'autres l'ont observé dans les commentaires, sans le message d'erreur réel, il est difficile à dire. Il existe de nombreuses sources possibles:

• est fermé le jeu d'enregistrements à ce moment, pour une raison
• il n'y a pas de champ "Email" dans le recordset
• Adresse e-mail invalide
• ...

la bonne chose est, vous pouvez utiliser la gestion des erreurs ASP classique pour trouver l'erreur comme ceci:

on error resume next 

do until rs.EOF 
    Set myMail = CreateObject("CDO.Message") 
    myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 
    myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="relay-hosting.secureserver.net" 
    myMail.Configuration.Fields.Update 
    myMail.Subject= subject 
    myMail.From="something@Something.Something" 
    myMail.To = rs("Email") 
    myMail.HTMLBody = strMessage & "Some Message" 
    myMail.Send 

    if err then 
     Response.write "<code>" & err.Source & " - " & err.Description & "</code>" 
    end if 

    Set myMail = Nothing 
    rs.MoveNext 
loop 

on error goto 0 

Il existe bien sûr de meilleurs moyens de gérer ces erreurs, même en ASP classique (search SO ou this solution). C'est seulement pour vous aider à trouver l'erreur lorsque vous n'avez pas accès aux paramètres IIS.