Altrochè!! Grazie Mille!
Il tuo script mi è servito alla grande, graie ancora. Avevo bisogno di ciclare i prodotti ordinati e inviare la mail all'amministratore, quindi con una piccola modifica ecco il codice che funziona:


codice:
Set Mail = Server.CreateObject("CDONTS.NewMail")

da = "admin@admin.it"
titolo = "Richiesta ordine"
mex = ciao

	Set MAIL = CreateObject("CDONTS.NewMail")
	MAIL.From = da
	MAIL.Subject = titolo
	
	MyBody = "<html><body><font face=Verdana size=2> Egr. "
	while not rs_ordine.eof
	MyBody = MyBody + rs_ordine("Codice_prodotto") & " " & rs_ordine("Quantita") & ",
" & mex
	rs_ordine.movenext
wend
	MyBody = MyBody + "</font></body></html>"

	MAIL.Body = MyBody
	MAIL.To = "pippo@libero.it"
	MAIL.BodyFormat = 0
	MAIL.MailFormat = 0
'	response.write rs("nome") & " " & rs("email") & "
"
	MAIL.Send
	set MAIL = nothing