problema con campo text in un form

[Lino80]

ciao, se non compilo tutti i campi di questo form, quando clicco sul pulsante per inviare...non funziona...come mai?è come se tutti i campi devono essere compilati per forza...vorrei fare il contrario..

<form method="post" action="inserisci_acquisto.asp">
					<table border="1" width="400" cellspacing="0" cellpadding="3" align="center">
						<tr>                
							
        <td bgcolor="<%=Tabella_Colore_Titolo%>" width="400"> 
          <div align="center">PRODOTTO</div></td>
						</tr>
						<tr>
							<td bgcolor="<%=Tabella_Colore_Cella%>" width="400" valign="top">
                    			
                    			<%If Session("Collegato") = True Then%>

<input type="hidden" name="ID" value="<%=QSID%>">


<%=Titolo_Mail_Autore%>:

<input type="text" name="email" value="<%=RSPrenota("Mail")%>" size="30">
								

								

								* Quantità da acquistare:

								<input type="text" name="quantita" value="1" size="20">


								 Inserire eventuali note:

<textarea rows="4" cols="40" name="prenotazione"></textarea>

<%=IpLogged%>: <%=Request.ServerVariables("REMOTE_ADDR")%>
<p align="right">
<input type="submit" name="Go" value="Acquista" >  


<%Else%>

<input type="hidden" name="ID" value="<%=QSID%>">

<%=Titolo_Mail_Autore%>:

<input type="text" name="email" value="" size="20">





* Quantità da acquistare:


<input type="text" name="quantita" size="20">

Per acquistare il prodotto bisogna fare il Log in, o prima registrarsi gratuitamente: Clicca qui!


<textarea rows="4" cols="40" name="prenotazione"></textarea>

<%=IpLogged%>: <%=Request.ServerVariables("REMOTE_ADDR")%>
<p align="right">
<input type="submit" name="Go" value="Acquista" disabled>  
</p>

<%End If%>
								</p>
							</td>
						</tr>
		  </form>

[Mems]

Il problema sta nella pagina inserisci_acquisto.asp
Vediamo?

[Lino80]

<%
	'VERSIONE FILE 1.4.0

	Option Explicit
%>






<%
'---Dichiarazione variabili
	Dim QSPrenotazione, QSID, QSEMail, IP, Data, SQL, RS, QSQuantita

'---Recupero i dati
	QSPrenotazione = Replace(Request.Form("Prenotazione"), "'", "''")
	QSID = Replace(Request.Form("ID"), "'", "''")
	QSQuantita = Replace(Request.Form("Quantita"), "'", "''")
	QSEmail = Replace(Request.Form("Email"), "'", "''")
	If QSEmail = "" Then
		QSEmail = "?"
	End If
	IP = Request.ServerVariables("REMOTE_ADDR")
	Data = DataToStr(Date)

'---Inserisco i dati nel database
	If QSPrenotazione <> "" Then
		SQL = " INSERT INTO Prenotazioni (IDProdotto, Quantita, Prenotazione, IP, Data, Autore, Ora) VALUES ('"&QSID&"', '"&QSQuantita&"', '"&QSPrenotazione&"', '"&IP&"', '"&data&"', '"&QSEmail&"', #"&Time&"#) "
		Set RS = Conn.execute(SQL)
	Else
		Response.Redirect Request.ServerVariables("HTTP_REFERER")
	End If

'---Dichiarazione variabili
	Response.Redirect "acquisto_confermato.asp" 
%>

[Mems]

Ok. Che errore ti da?

[Lino80]

non da errore..quando premo sul pulsante per inviare i dati è come se mi facesse un refresh della pagina..come se ricaricasse la pagina..

[Mems]

E' perchè viene eseguito il codice nell'else in questo blocco:

If QSPrenotazione <> "" Then
		SQL = " INSERT INTO Prenotazioni (IDProdotto, Quantita, Prenotazione, IP, Data, Autore, Ora) VALUES ('"&QSID&"', '"&QSQuantita&"', '"&QSPrenotazione&"', '"&IP&"', '"&data&"', '"&QSEmail&"', #"&Time&"#) "
		Set RS = Conn.execute(SQL)
	Else
		Response.Redirect Request.ServerVariables("HTTP_REFERER")
	End If

[Lino80]

e come si può risolvere?

[Mems]

QSPrenotazione è vuoto.
Questo è il problema.
Invece del redirect metti un response.write dove dici che quel campo è obbligatorio.

[Lino80]

ho fatto così:

Else
		Response.write "Campo obbligatorio!"
	End If

con IE funziona... con Firefox no!

[Mems]

Originariamente inviato da Lino80
ho fatto così:

Else
		Response.write "Campo obbligatorio!"
	End If

con IE funziona... con Firefox no!

E mo il browser che centra?