Pagina 1 di 3 1 2 3 ultimoultimo
Visualizzazione dei risultati da 1 a 10 su 25
  1. #1
    Utente di HTML.it L'avatar di Lino80
    Registrato dal
    Oct 2005
    Messaggi
    1,560

    inviare form anche se i campi text ecc sono vuoti..

    vorrei che l invio dei dati vada a buon fine anche se si compila un solo campo del form..come si fa?devo modificare qualche valore nelle proprietà del db access?

    grazie

    codice:
    <form method="post" action="inserisci_generale.asp">
    					<table  border="1" width="500" cellspacing="0" cellpadding="3" align="center">
    						<tr>                
    							
            <td bgcolor="<%=Tabella_Colore_Titolo%>" width="400"> 
              <div align="center">FORM</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">
    								
    
    								
    
    								* Inserire la quantità da richiedere:
    								<input type="text" name="quantita" size="20">
    
    
    								* Possiede già un dominio: <input name="Dominio" type="radio" value="<%=TestoImgSi%>">Si <input name="Dominio" type="radio" value="<%=TestoImgNo%>">No
    								
    
    
    								* Indirizzo sito web: <input name="Www" type="text" value="<%=QSWww%>" size="38" maxlength="300" />
    								
    
    
    								* Vuole fare commercio elettronico? <input name="Ecommerce" type="radio" value="<%=EcommerceSi%>">Si <input name="Ecommerce" type="radio" value="<%=EcommerceNo%>">No 
    * Di quali prodotti?: <input name="Tipo" type="text" value="<%=QSTipo%>" size="38" maxlength="301" />
    								
    
    
    								* Ha bisogno di quante email? <input name="Nemail" type="text" value="<%=QSNemail%>" size="38" maxlength="100" /> (Specifica se Illimitate)
    								
    
    
    								* Che tipo di grafica desidera per il suo sito web? <input name="Grafica" type="radio" value="<%=Statica%>">Statica <input name="Grafica" type="radio" value="<%=Flash%>">Animata flash <input name="Grafica" type="radio" value="<%=Mista%>">Mista
    								
    
    
    								Indichi il budget “massimo” che potrebbe spendere, Iva Compresa: <input name="Budget" type="text" value="<%=QSBudget%>" size="38" maxlength="100" />€
    								
    
    
    								<span class="Stile8">* note:</span>
    
    <textarea rows="4" cols="40" name="prenotazione"></textarea>
    
    <%=IpLogged%>: <%=Request.ServerVariables("REMOTE_ADDR")%>
    <p align="right">
    <input type="submit" name="Go" value="Invia" >  
    
    				</form>

  2. #2
    Dipende dal codice ASP della pagina che riceve i dati dalla form e li processa.

  3. #3
    Moderatore di ASP e MS Server L'avatar di Roby_72
    Registrato dal
    Aug 2001
    Messaggi
    19,559
    Se non ci dici cosa lo impedisce è un po' difficile.

    Roby

  4. #4
    Utente di HTML.it L'avatar di Lino80
    Registrato dal
    Oct 2005
    Messaggi
    1,560
    scusate... la pagina che inserisce i dati è questa:

    codice:
    <%
    '---Dichiarazione variabili
    	Dim QSPrenotazione, QSID, QSEMail, IP, Data, SQL, RS, QSQuantita, QSDominio, QSWww, QSGrafica, QSBudget, QSNemail, QSEcommerce, QSTipo
    
    '---Recupero i dati
    	QSPrenotazione = Replace(Request.Form("Prenotazione"), "'", "''")
    	QSID = Replace(Request.Form("ID"), "'", "''")
    	QSQuantita = Replace(Request.Form("Quantita"), "'", "''")
    	QSEmail = Replace(Request.Form("Email"), "'", "''")
    	QSDominio = Replace(Request.Form("Dominio"), "'", "''")
    	QSWww = Replace(Request.Form("Www"), "'", "''")
    	QSGrafica = Replace(Request.Form("Grafica"), "'", "''")
    	QSBudget = Replace(Request.Form("Budget"), "'", "''")
    	QSNemail = Replace(Request.Form("Nemail"), "'", "''")
    	QSEcommerce = Replace(Request.Form("Ecommerce"), "'", "''")
    	QSTipo = Replace(Request.Form("Tipo"), "'", "''")
    	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, Dominio, Www, Grafica, Budget, Nemail, Ecommerce, Tipo) VALUES ('"&QSID&"', '"&QSQuantita&"', '"&QSPrenotazione&"', '"&IP&"', '"&data&"', '"&QSEmail&"', #"&Time&"#, '"&QSDominio&"', '"&QSWww&"', '"&QSGrafica&"', '"&QSBudget&"', '"&QSNemail&"', '"&QSEcommerce&"', '"&QSTipo&"') "
    		Set RS = Conn.execute(SQL)
    	Else
    		Response.Redirect Request.ServerVariables("HTTP_REFERER")
    	End If
    
    '---Dichiarazione variabili
    	Response.Redirect "prenotazione_confermata.asp" 
    %>

  5. #5
    Moderatore di ASP e MS Server L'avatar di Roby_72
    Registrato dal
    Aug 2001
    Messaggi
    19,559
    Quindi?
    Perché non vengono inserite variabili vuote? Il db non lo consente?
    Se si tratta di Access imposta per i campi che ti interessano accettino stringhe di lunghezza zero.

    Roby

  6. #6
    Ancora sta storia Lino? Ma non avevi risolto l'altra volta?
    Certo che sei "de coccio"...

  7. #7
    Utente di HTML.it L'avatar di Lino80
    Registrato dal
    Oct 2005
    Messaggi
    1,560
    ho fatto così.. però ora se lascio gli altri campi vuoti e premo INVIA mi fa un refresh della pagina...se compilo solo il campo "Prenotazione" mi da questo errore:

    Microsoft OLE DB Provider for ODBC Drivers error '80040e07'

    [Microsoft][ODBC Microsoft Access Driver] Data type mismatch in criteria expression.

    /inserisci_generale.asp, line 37

    righe sopra : '---Inserisco i dati nel database
    If QSPrenotazione <> "" Then
    SQL = " INSERT INTO Prenotazioni (IDProdotto, Quantita, Prenotazione, IP, Data, Autore, Ora, Dominio, Www, Grafica, Budget, Nemail, Ecommerce, Tipo) VALUES ('"&QSID&"', '"&QSQuantita&"', '"&QSPrenotazione&"', '"&IP&"', '"&data&"', '"&QSEmail&"', #"&Time&"#, '"&QSDominio&"', '"&QSWww&"', '"&QSGrafica&"', '"&QSBudget&"', '"&QSNemail&"', '"&QSEcommerce&"', '"&QSTipo&"') "
    Set RS = Conn.execute(SQL)

    riga 37: Set RS = Conn.execute(SQL)

  8. #8
    Utente di HTML.it L'avatar di Lino80
    Registrato dal
    Oct 2005
    Messaggi
    1,560
    no l altra volta ci avevo messo un Response.Write("ERRORE - Devi compilare tutti i campi!")...

  9. #9
    Moderatore di ASP e MS Server L'avatar di Roby_72
    Registrato dal
    Aug 2001
    Messaggi
    19,559
    Stampa la query prima di eseguirla! Così te ne accorgi.

    Roby

  10. #10
    Originariamente inviato da Roby_72
    Stampa la query prima di eseguirla! Così te ne accorgi.

    Roby
    Io non ci giurerei...

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.