non capisco perchè mi da errore:

codice:
	Dim mail 'As CDO.Message
	Dim conf 'As CDO.Configuration
	Const NAMESPACE = "http://schemas.microsoft.com/cdo/configuration/"
	Const cdoSendUsingPort = 2
	Set mail = CreateObject("CDO.Message")
	Set conf = CreateObject("CDO.Configuration")
	conf.Fields(NAMESPACE & "sendusing") = cdoSendUsingPort
	conf.Fields(NAMESPACE & "smtpserver") = "localhost"
	conf.Fields(NAMESPACE & "smtpserverport") = 25
	conf.Fields.Update
	mail.Configuration = conf
	mail.CreateMHTMLBody "email.asp?nome="& nome
	mail.From = nominativo & " <"& email &">"
	mail.Subject = "Prenotazione"
	mail.To = "Prova <mrcdesign@gmail.com>"
	mail.Send
mi da errore sulla riga:
codice:
mail.CreateMHTMLBody "email.asp?nome="& nome
l'errore è questo:

codice:
CDO.Message.1 error '800c000d' 

The specified protocol is unknown. 

/prenota.asp, line 198