Problema invio form con controllo javascript

[Futurdesign]

Buonasera vi espongo il mio piccolo irrisolvibile problema.
Ho un form con 6 campi. L'actiona del form punta una pagina asp chiamata formcdosys.asp.
Se non effettuo il controllo sui campi con javascript, ricevo tranquillamente il form con i campi, se invece inserisco il codice js per il controllo dei campi, quando ricevo l'email, l'ultimo campo manca e arrivano soltanto le informazione di 5 campi. Sono quindi costretto ad inserire un campo di testo di tipo HIDDEN per riceverli tutti.

Questo è il codice js per controllo:
<script language="JavaScript" type="text/javascript">

function newuser()
{

var pronto;
pronto=true;

if (document.modulo.nome.value=='')
{
pronto=false;
}

if (document.modulo.cognome.value=='')
{
pronto=false;
}

if (document.modulo.email.value.indexOf('@', 0) == -1 ||
document.modulo.email.value.indexOf('.', 0) == -1) {
alert("L'indirizzo e-mail inserito non è corretto. Inserire un indirizzo e-mail valido");
document.modulo.email.focus();
return;
}

if (document.modulo.tel.value=='')
{
pronto=false;
}

if (document.modulo.citta.value=='')
{
pronto=false;
}

if (document.modulo.richiesta.value=='')
{
pronto=false;
}

if (pronto==false) alert('Attenzione, il modulo non è stato compilato correttamente. Ricontrollare ed inserire tutti i dati richiesti')

if (pronto==true) document.modulo.submit()
}

</script>

MI AFFIDO NELLE VS MANI
UN RINGRAZIAMENTO A TUTTI GLI UTENTI DI QUESTO FORUM DA PAURA!!

[Futurdesign]

Scusate, questo è il codice della pagina asp a cui punta l'action del form.(formcdosys.asp)

DIM corpoMessaggio, numeroCampi, invioA, invioDa, nomeDominio, indirizzoIp, modulo, browserSistemaOperativo

invioA = "fr@libero.it"

invioDa = "fr@libero.it"



nomeDominio = Request.ServerVariables("HTTP_HOST")
indirizzoIp = Request.ServerVariables("REMOTE_ADDR")
modulo = Request.ServerVariables("HTTP_REFERER")


'*rilevo i campi del form

FOR numeroCampi = 1 TO (Request.Form.Count() - 1)
IF NOT Request.Form(numeroCampi) = "" THEN
corpoMessaggio = corpoMessaggio & vbCrLf & Request.Form.Key(numeroCampi) & " = " & Trim(Request.Form(numeroCampi))
END IF
NEXT

'* creo gli oggetti cdosys sul server e li gestisco

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 = "Contatto dal dominio " & nomeDominio
.TextBody = "Questi i dati inseriti nel modulo presente alla pagina " & modulo & " da utente con indirizzo IP " & indirizzoIp & "" & vbCrLf & corpoMessaggio & ""
.Send
End With
%>
<script>
document.location.replace('grazie.asp');
</script>