Si sei stata molto chiara ti ringrazio.

Ho provato a inserire il tuo script e la situazione è migliorata notevolmente.
C'è solo una cosa che nn è corretta

Quando arriva la mail sui campi selezionati anzichè comparire "si" mi compare ON.

E' come se non leggesse il risultato della variabile.

codice:
<%
If request.form("AmericanExpress") = "on" Then
   MiaAmericanExpress = "si" 'se hai impostato il campo come testo di 2 caratteri
Else
  MiaAmericanExpress = "no" 'se hai impostato il campo come testo di 2 caratteri
End If
%>
<%
If request.form("Diners") = "on" Then
   MiaDiners = "si" 'se hai impostato il campo come testo di 2 caratteri
Else
  MiaDiners = "no" 'se hai impostato il campo come testo di 2 caratteri
End If
%>
<%
If request.form("Visa") = "on" Then
   MiaVisa = "si" 'se hai impostato il campo come testo di 2 caratteri
Else
  MiaVisa = "no" 'se hai impostato il campo come testo di 2 caratteri
End If
%>
<%
If request.form("Eurocard") = "on" Then
   MiaEurocard = "si" 'se hai impostato il campo come testo di 2 caratteri
Else
  MiaEurocard = "no" 'se hai impostato il campo come testo di 2 caratteri
End If
%>
<% If Request.Form("MM_insert") <> "" Then %>
<% 
Set MiaMail = Server.CreateObject("CDO.Message")
MiaMail.From = "info@robertodidonato.it"
MiaMail.To = "info@robertodidonato.it"

MiaMail.Subject = "Un nuovo cliente ha richiesto delle informazioni"
MiaFromName = request.form("Nome")
MiaFromAddress =  request.form("mail")

MiaFamilyName = request.form("familyName")
MiaName = request("name")
MiaAddress = request("address")
MiaZipCode = request("ZipCode")
MiaCity = request("City")
MiaCountry =request("Country")
MiaPhone =request("Phone")
MiaFax =request("Fax")
MiaEMail =request("EMail")
MiaFamilyName2 =request("FamilyName2")
MiaFamilyName3 =request("FamilyName3")
MiaName2 =request("Name2")
MiaName3 =request("Name3")
MiaGiornoArrivo =request("giornoArrivo")
MiaGiornoPartenza =request("giornoPartenza")
MiaSingola =request("singola")
MiaDoppia =request("doppia")
MiaCostoTotale =request("costoTotale")
MiaAmericanExpress =request("AmericanExpress")
MiaDiners =request("Diners")
MiaVisa =request("Visa")
MiaEurocard =request("Eurocard")
MiaNameCard =request("NameCard")
MiaNumberCard =request("NumberCard")
MiaDataScadenza =request("dataScadenza")
MiaCodiceSicurezza =request("CodiceSicurezza")

MiaMail.TextBody = "Family Name:" & Trim(Request.Form("familyName")) & vbcrlf &  "Name: " & Trim(Request.Form("name")) & vbcrlf & "Address: " & Trim(Request.Form("address")) & vbcrlf & "Zip Code: " & Trim(Request.Form("ZipCode")) & vbcrlf & "City: " & Trim(Request.Form("city")) & vbcrlf & "Country: " & Trim(Request.Form("Country")) & vbcrlf & "Phone: " & Trim(Request.Form("Phone")) & vbcrlf & "Fax: " & Trim(Request.Form("Fax")) & vbcrlf & "E-Mail: " & Trim(Request.Form("EMail")) & vbcrlf & "Family Name: " & Trim(Request.Form("FamilyName2")) & vbcrlf & "Name: " & Trim(Request.Form("Name2")) & vbcrlf & "FamilyName3: " & Trim(Request.Form("FamilyName3")) & vbcrlf & "Name: " & Trim(Request.Form("Name3")) & vbcrlf & "Check In: " & Trim(Request.Form("giornoArrivo")) & vbcrlf & "Check Out: " & Trim(Request.Form("giornoPartenza")) & vbcrlf & "Singola: " & Trim(Request.Form("Singola")) & vbcrlf & "Doppia: " & Trim(Request.Form("doppia")) & vbcrlf & "Price: " & Trim(Request.Form("costoTotale")) & vbcrlf & "American Express: " & Trim(Request.Form("AmericanExpress")) & vbcrlf & "Diners: " & Trim(Request.Form("Diners")) & vbcrlf & "Visa: " & Trim(Request.Form("Visa")) & vbcrlf & "Eurocard: " & Trim(Request.Form("Eurocard")) & vbcrlf & "Name Card: " & Trim(Request.Form("NameCard")) & vbcrlf & "Card Number: " & Trim(Request.Form("numberCard")) & vbcrlf & "Exipiration Date: " & Trim(Request.Form("dataScadenza")) & vbcrlf & "Security Code: " & Trim(Request.Form("CodiceSicurezza"))


MiaMail.Send ()
Set MiaMail = Nothing
Set Fields = Nothing 
Set Config = Nothing 
%>
<% End If %>