Molte persone utilizzano il servizio SMTP di IIS.
Capita abbastanza spesso, specie se viene condiviso da più siti, che la coda del servizio si riempa e così le e-mail spedite dalle vostre pagine ASP non vengano recapitate in maniera rapida.
Lo script di oggi si limita a contare quanti files sono presenti nelle directory. Ogni file corrisponde ad un messaggio in attessa di essere spedito, dunque è un calcolo molto preciso.

<%

dir="C:\inetpub\mailroot\queue\"
 response.Write("Messaggi in coda:<p>")

 Set fs = Server.CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(dir)
 set fc = f.Files

 for Each f1 in fc
  conta_file=conta_file + 1
 next

Response.write FormatNumber(conta_file, 0) & "</b>"

set fc = Nothing
set f  = Nothing
Set fs = Nothing

%>

Per inviare e-mail con CDONTS si veda
https://www.aspitalia.com/articoli/cdomail.asp

mentre per configurare al meglio il servizio SMTP
https://www.aspitalia.com/articoli/win2000/smtp.asp