Prova così:

codice:
<%
Dim iMsg, iConf, Flds

'Crea l'oggetto email 
Set iMsg = CreateObject("CDO.Message")
'Crea l'oggetto configurazione 
Set iConf = CreateObject("CDO.Configuration")
'Impostazione delle configurazioni per l'invio remoto
Set Flds = iConf.Fields
Flds("http://schemas.microsoft.com/cdo/configuration/urlgetlatestversion") = True

'Spedizione: mittente, destinatario, oggetto, messaggio
mittente = "Robot-no_reply@ipasvi.av.it"
destinatario =  email
oggetto = "Conferma iscrizione al collegio IPASVI di Avellino"
messaggio =  "Salve " & nome & " " & cognome & "!" & "
" & "Abbiamo ricevuto la tua richiesta di iscrizione al nostro collegio e, " & _
" per vericarne l'autenticità, ti chiediamo di cliccare sul link sottostante per completare la procedura, grazie." & "
" & _
"<a href=http://www.miosito.it/ValidationRegistration.asp?Un=" & username & "&" & "cd=" & codice & "&" & "mt=" & matricola & ">http://www.miosito.it/ValidationRegistration.asp?Un=" & username & "&" & "cd=" & codice & "&" & "mt=" & matricola & "</a>"


With iMsg

'Assegnazione delle configurazioni
Set .Configuration = iConf

.From = mittente
.To = destinatario
.Subject = oggetto

'Formato HTML
.HTMLBody = messaggio
'Formato testo (scegliere)
'.TextBody = messaggio


'Invia l'email 
.Send() 

end with

set Flds = Nothing
set iConf = Nothing
set iMsg = Nothing
%>