form con più pulsanti

[lnc67]

Salve,
ho provato a dare uno sguardo in giro ma non ho trovato (o non ho capito) la soluzione al mio problema, in pratica ho un menù a tendina con quattro pulsanti che portano a quattro pagine diverse in base alla selezione effettuata, il problema che non mi funziona nessun pulsante, posto il codice della pagina

<%
	Dim QSOrdinaPer, SQL, RS, SCategoria, ID, RSScat, Index, Collect, QSID, RSID, QSSCategoria, Scelta, name

%>

			<td width="1000" height="0" bgcolor="#FFFFEC" valign="top" align="center">

</td>




<table align="center" border="0" width="400">
	<tr>


				<p align="Center">
					Modifica Super Categorie, Categorie e Prodotti
				</p>

<table align="center" border="0" width="200">
	<tr>

				
<p align="right"><form method="get" action="modifica_scategorie.asp">
<p align="center"><input type="submit" value="Aggiungi SCategoria" name="Go" ></p>
</form>



<%
SQL = " SELECT id, scategoria FROM scategorie ORDER BY scategoria "
Set RS = Conn.Execute(SQL)
%>





<table align="center" border="0" width="200">
						<td bgcolor="#FFFFEC" colspan=2>
		<form method="post">

	  <select name="id">
<%
				Do While Not RS.EOF
%>		
						<option value="<%=RS("id")%>"><%=RS("scategoria")%></option>
<%
				  RS.MoveNext
				Loop
%>		
		</select>
</td>
<table align="center" border="0" width="800">
						<td bgcolor="#FFFFEC" colspan=2>
		<input type="submit" name="Modifica" value="Modifica Scategoria" > 
		<input type="submit" name="Prodotti" value="Prodotti Scategoria" > 
		<input type="submit" name="Elenco" value="Elenco Categorie" >
		<input type="submit" name="Elimina" value="Elimina Scategoria" > 

</form>
<%
scelta = Request.Form("scelta") 
		Select Case "scelta"
				Case "Modifica"
						Response.Redirect("modifica_scategorie.asp?id="& Request.Form("ID")) 
				Case "Prodotti" 
						Response.Redirect("prodotti_scategorie.asp?id="& Request.Form("ID"))
				Case "Elenco" 
						Response.Redirect("elenco_scategorie.asp?id="& Request.Form("ID"))
				Case "Elimina" 
						Response.Redirect("conferma_elimina.asp?id="& Request.Form("ID")) 
		End Select 
%>

</tr>

		</td>
	</tr>
<%
	RS.Close
%>


<%
	Set RS = Nothing
	Conn.Close
	Set Conn = Nothing
%>

GRAZIE IN ANTICIPO

http://www.netstreet.it/shop/admin/ USER E PWD = "ADMIN"

E POI SU PRODOTTI

[Roby_72]

Si fa con js. Cerca in scripting.

Roby