questo il codice

codice:

<% 

' Controlla invio 
if Request.QueryString("invia") = "true" AND Request.Form("submit") = "invia" then 

Dim objMail, objConfig , sBody

' Crea l'oggetto email 
Set objMail = Server.createObject("CDO.Message") 

' Dimensiona l'oggetto configurazione 
Set objConfig = Server.createObject ("CDO.Configuration") 

' Imposta le configurazioni 
With objConfig 

' Server SMTP di uscita 
' ATTENZIONE! Usare il proprio indirizzo di server email! 
' E' FONDAMENTALE per l'invio della email 
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.aruba.it" 

' Porta SMTP 
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 

' Porta CDO 
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 

' Timeout 
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 
.Fields.update 

End With 

' Assegna le configurazioni 
Set objMail.Configuration = objConfig 

' Assegna all'oggetto le proprietā necessarie 
objMail.From = Request.Form("email") ' Mittente 
objMail.To =  "info@elquartiere.com" ' Destinatario 
objMail.Subject = Request.Form("oggetto") ' Oggetto 
sBody = "NOME: " & Request.Form("nome") & VBCrLf
sBody = sBody & "COGNOME: " & Request.Form("cognome") & VBCrLf
sBody = sBody & "RICHIESTA: " & Request.Form("richiesta") & VBCrLf

' Invia l'email 
objMail.Send() 
objMail.HTMLBody = sBody


Set objMail = Nothing 

Response.Write("Email inviata correttamente ") 

else %>

Nessun messaggio di errore ma mi arriva l'email senza testo quando ho inserito i parametri regolarmente

cosa c'č ke nn va ?????