Problema cdonts

[-oOo-VinS-oOo-]

Ciao a tutti
Ho già letto parecchi interventi a riguardo, tuttavia non riesco a capire perchè questo form non vuol eassoltuamente funzionare, il server è aruba e usa windows 2000, quindi devo usare ancora CDONTS e questo è il codice:

Dim xMail
Dim xBody
Set xmail = Server.CreateObject("CDONTS.NewMail")
'mittente
mittente = "info@vins75.it"
'destinatario
email=request.form("email")

'contenuto
		xBody = "Ciao" & vbcrlf & "Ti comunichiamo l'avvenuta iscirzione presso il sito"
		xBody = xBody &  vbcrlf & "Questo è il riepilogo dei dati da te inseriti al momento dell'iscrizione"
FOR x = 1 TO (Request.Form.Count() - 1)
  IF NOT Request.Form(x) = "" THEN
      xBody = xBody & vbCrLf & Request.Form.Key(x) & " = " & Trim(Request.Form(x))
   END IF
   NEXT
		xBody = xBoDy & vbCrLf & "PASSWORD per accedere al sito da utente = " & GeneraPwd
		xBody = xBoDy & vbCrLf & vbCrLf & "Cordiali Saluti" & vbCrLf &  "L'amministratore"


   xmail.From = mittente
   xmail.To = email
   xmail.Subject = "Iscrizione al sito"
   xmail.BodyFormat = 1
   xmail.MailFormat = 0
   xmail.Importance = 2
   xmail.Body = xbody
   xmail.Send
   
   set xmail=nothing



'reindirizzamento ok
response.redirect("forum_reg_ok.asp")

Ci sarebbe qualche anima pia disposta a darmi un amano? perchè proprio non riesco a capire.

[weppos]

Quale errore genera?

[-oOo-VinS-oOo-]

Ciao...
problema risolto grazie ad un tuo script...
pensavo che cdosys nonsi potesse usare con windows 2000 e invece funziona perfettamente
ciao e grazie