stampare query in base alla selezione di select

**84morena** · 29-10-2010, 12:15

Salve ragazzi volevo chiedervi un informazione....devo passare il valore della select in una query
e stampare il risultato nella stessa pagina è possibile

codice:

<HTML><BODY>

<select name="Citta">
          <option value="Roma" selected>Roma</option>
		  <option value="Milano" selected>Milano</option>
        </select>
<TABLE border="1">
<TR>
<td>Nome</td>
<td>Cognome</td>
<td>Ente</td>
</TR>
<%
         sConnect= session("STRCONNECT")		 
		 dim conn
		 dim cmd
		 set conn = Server.CreateObject ("ADODB.Connection")
		 call conn.Open (sConnect,"admin","")
		 set cmd2 = Server.CreateObject ("ADODB.Command")
		 cmd2.ActiveConnection = conn 
         dim TClienti
 		 set TClienti	= Server.CreateObject ("ADODB.Recordset") 

	        cmd2.CommandText = "SELECT * FROM IscrittiEvento WHERE Citta='.&Citta&.';"
			TClienti.Open cmd2,,1,3     
%>		
<%			
Do While Not TClienti.EOF 
%>
<TR> 
	<TD>
     <%=TClienti("Nome")%>
	 
	 </TD>
	 <TD>
     <%=TClienti("Cognome")%>
	 
	 </TD>
	 <TD>
     <%=TClienti("Societa")%>
	 </TD
</TR>	 
<%
    TClienti.Movenext
  Loop 
		 if TClienti.State<>0 then
		      TClienti.close
		 end if   	

%>
</TABLE>

**84morena** · 29-10-2010, 12:59

come passare una variabile in una query

codice:

<%
         sConnect= session("STRCONNECT")		 
		 dim conn
		 dim cmd
		 set conn = Server.CreateObject ("ADODB.Connection")
		 call conn.Open (sConnect,"admin","")
		 set cmd2 = Server.CreateObject ("ADODB.Command")
		 cmd2.ActiveConnection = conn 
         dim TClienti
 		 set TClienti	= Server.CreateObject ("ADODB.Recordset") 
			dim citta 
			set citta = request.form("Citta")
			response.write(citta)
                       'mi stampa la variabile passata ma non mi stampa i risultati della query 
	        cmd2.CommandText = "SELECT * FROM IscrittiEvento WHERE Citta='&citta&';"
			
			TClienti.Open cmd2,,1,3     
%>

**84morena** · 29-10-2010, 14:36

ragazzi sinceramente nn lo so ma continua a darmi il seguente errore

Microsoft JET Database Engine error '80040e10'

No value given for one or more required parameters.

/listaRegistrati.asp, line 27

codice:

         sConnect= session("STRCONNECT")         
         dim conn
         dim cmd
         set conn = Server.CreateObject ("ADODB.Connection")
         call conn.Open (sConnect,"admin","")
         set cmd2 = Server.CreateObject ("ADODB.Command")
         cmd2.ActiveConnection = conn 
         dim TClienti
          set TClienti    = Server.CreateObject ("ADODB.Recordset") 
            dim citta 
            set citta = request.form("Citta")
            response.write(citta)

            cmd2.CommandText = "SELECT * FROM IscrittiEvento WHERE Citta="&citta
            TClienti.Open cmd2,,1,3

Discussione: stampare query in base alla selezione di select

Strumenti discussione

Ricerca discussione

Visualizza

stampare query in base alla selezione di select

Permessi di invio