cdosys estramamente lento

[maxcondor]

Salve ragazzi, utilizzo questo semplice codice per l'invio di email in asp.
Premetto che l'email arriva regolarmente, il problema è che la pagina impiega molti secondi nell'elaborazione Devo aggiungere/modificare qualche parametro?
[code]
Set Config = Server.CreateObject("CDO.Configuration")
Set Fields = Config.Fields
Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")=1
Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername")="info@miosito.com"
Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword")="passwors"
Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
' server
Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.miosito.com"
Fields.Update
Set objMail = Server.CreateObject("CDO.Message")
Set objMail.Configuration = Config
' invio dell'e-mail
objMail.From = email
objMail.To = "info@miosito.com"
objMail.Subject = "Richiesta d'ordine - www.miosito.com - "
objMail.HtmlBody = "testo email"
objMail.Send()
set objMail = Nothing
Set Fields = Nothing
Set Config = Nothing
[code]

[maxcondor]

quello che mi premeva sapere è che se prima di tutto esiste un'alternativa al codice postato, e se la lentezza nell'esecuzione è dovuta al codice stesso oppure al server smtp del mio sito

[Roby_72]

Il codice è quello.

Roby