Ciao, ho una domanda da porvi.
Ho 3 pagine ASP dove faccio una selezione nella prima, compilo dati nella seconda, invio al DB (SQL 2000) i dati ed una mail di avviso nella terza.

Devo controllare che nella prima sia fatta una selezione e quindi:

nella 2nda pagina metto....
<% if Request.Form("miavariabile")="" then
Response.Redirect("miapagina1.asp?error=1")
End if %>
Dove ad error=1 imposto una frase di avviso ed annullo l'operazione.

Poi devo controllare che nella 2nda pagina sia compilati tutti i dati e che siano numerici tranne 2, quindi:

nella 3za pagina metto....
<% if Request.Form("campo1")="" or Request.Form("campo2")="" or..... then
Response.Redirect("miapagina2.asp?error=2")
End if %>
Controllo valori numerici
<% If not IsNumeric(campo1) or not IsNumeric (campo2) or ....... then
End if%>

Problemi.
L'istruzione sopra mi dà errore "Previsto Then" alla fine della riga.....non lo vede?
Se nella 2nda non compilo i dati mi reindirizza alla prima con l'errore della 2nda, ma io non voglio che vada all'inizio, deve fermarsi alla 2nda pagina.
Come posso fare?
Grazie.

Ciao,
a cosa servono quei puntini prima del then? Forse per dire che ci sono altri campi?

Invece di scrivere un IF lunghissima potresti fare così:

dim Campo

'controlla tutti i campi del form, uno alla volta
for each Campo in Request.Form
if Len(Campo) = 0 OR Campo = "" then
Response.Redirect("miapagina2.asp?error=2")
end if

if Not IsNumeric(Campo) then 'OKKIO perchè controlla TUTTI i campi
'Quali azioni intraprendere nel caso i campi nn siano numerici
end if
next

Non ho capito però in quale riga ti da l'errore "Previsto Then".

Potresti verificare che i campi che controlli non siano quelli email.

Riscrivo il codice con le parti nuove in MAIUSCOLO (se lo usi ricordati di mettere in minuscolo quello che va minuscolo). Ho supposto che i 2 campi email si chiamino "email_1" e "email_2".

dim Campo

'controlla tutti i campi del form, uno alla volta
for each Campo in Request.Form
if Len(REQUEST.FORM(Campo)) = 0 OR REQUEST.FORM(Campo) = "" then
Response.Redirect("miapagina2.asp?error=2")
end if

IF INSTR(CAMPO, "EMAIL_1") = 0 OR INSTR(CAMPO, "EMAIL_2") = 0 THEN 'Con questo escludi i due campi email dal controllo IsNumeric

if Not IsNumeric(REQUEST.FORM(Campo) then 'ORA CONTROLLA TUTTI I CAMPI TRANNE I DUE EMAIL
'Quali azioni intraprendere nel caso i campi nn siano numerici
end if

ELSE

'Azioni da intraprendere sui campi EMAIL

END IF
next

Ora mi dà un errore nella function del controllo sintassi email....

errore di sintassi?????
alla riga iniziale:

function (indirizzo)

ma che cavolo di errore è????? Ma se prima funzionava!!!!