Cambia queste 2 righe:
codice:
objEMail.TextBody = Request("nome")   
objEMail.TextBody = Request("messagio")
Con questa:
codice:
objEMail.TextBody = Request("nome") & vbCrlf & Request("messagio") & vbCrlf
Cosi nome a capo messaggio se vuoi tutto su una riga togli & vbCrlf & e aggiungi questo &" "& l'operazione la puoi ripetere per tutti i campi.