Per non impazzire a scrivere bene gli spazi, le virgolette...
qualcuna sa darmi una alternativa per scrivere questo:


codice:
DIM iMsg, Flds, iConf

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields

Flds(cdoSendUsingMethod) = cdoSendUsingPort
Flds(cdoSMTPServer) = "smtp.aruba.it" 
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
Flds.Update

With iMsg
   Set .Configuration = iConf
   .To = invioA
   .From = Request.Form("email")
   .Sender = invioDa
   .Subject = "Oggetto della email - " & "Prova"
   .TextBody = "" & vbCrLf & "Ultimate Rolex Daytona - Paypal" & ":"& "" & vbCrLf & "" & vbCrLf & "First Name: " & firstname & vbCrLf & "" & "Last Name: " & lastname & vbCrLf & "" & "Company: " & company2 & vbCrLf & "" & "Email: " & email2 & vbCrLf & "" & "Address: " & indirizzo & vbCrLf & "" & "City: " & citta & vbCrLf & "" & "State: " & stato & vbCrLf & "" & "Cap: " & cap & vbCrLf & "" &  vbCrLf & "" 
   .Send
End With