Asp e menu a tendina dinamici da database

RoRiccardo

Nuovo Utente
14 Mar 2008
4
0
0
Salve a tutti!!!
La solita premessa che mi riguarda è quella di essere un "ASP amatore".
Sto sviluppando e sono veramente a buon punto un sistema di gestione o line di un almanacco di Calcio che comprende ben 8 tabelle che si relazionano fra loro.
Tutto il sistema funziona perfettamente e viene gestito on line un lavoro per me Ciclopico ma divertente.
Orbene!!! il mio problema adesso inizia ad essere quello di dover gestire una enorme quantità di dati risultanti dalle varie query.
La mia idea era quella di inserire delle caselle di selezione a modi select combo box a tendina con l'utile sistema di alimentazione automatica delle voci presenti nei menu.
Sono riuscito a creare una combo box che si alimenta ad una tabella richiamando determinati dati del record ma non riesco a integrare il link!
Stupido lo so! Ma è per questo che faccio un'altro lavoro!!!
Vi illustro la select box completa aggiungendo che giungo a voi perchè in rete non sono riuscito a trovare nessun tutorial specifico sull'argomento.
Grazzzzzzzie in anticipo!!!!

<!-- #include file="../../common/includes/i_header.asp" -->
<!--#include file="includes/adovbs.inc"-->
<select name="giocatore">
<%

dim objConn, strCon, objRS, strSQL
Set objConn = Server.CreateObject("ADODB.Connection")

strCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../../mdb-database/campionato.mdb")
objConn.connectionstring = strCon
objConn.Open
Set objRS = Server.CreateObject("ADODB.Recordset")

%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">

<html>
<head>
<title>Miosito</title>
</head>
<body topmargin="0" leftmargin="0" link="#333333" vlink="#666666" alink="#333333">
<%

strSQL="SELECT giocatore_nome, giocatore_cognome FROM tGiocatori ORDER BY giocatore_cognome"
objRS.Open strSQL, objConn, adOpenKeyset, adLockPessimistic, adCmdText
objRS.movefirst
do while not(objRS.eof)
%>


%>
<option value="<%=obJRS(0)%></a>"><%=obJRS(1)%></option>
%>
<%
ObjRS.movenext
loop
ObjRS.Close
set ObjRS = Nothing
conn.Close
set conn = Nothing
%>
</select>

</body>
</html>

--Fin qui tutto bene ----ma ora come inserisco il link sulle voci di menu'??? (cercando di evitare il pulsante)


GRAZZIE A TUTTI ANTICIPATAMENTE
 
Ultima modifica:

PoLe

MRW Moderator
6 Giu 2005
2.210
3
0
38
.: Venezia :.
www.bzconsulting.it
Ciao e benvenuto tra noi :)

Prova così:
Codice:
...
<body topmargin="0" leftmargin="0" link="#333333" vlink="#666666" alink="#333333">
<%

strSQL="SELECT giocatore_nome, giocatore_cognome FROM tGiocatori ORDER BY giocatore_cognome"
objRS.Open strSQL, objConn, adOpenKeyset, adLockPessimistic, adCmdText
[COLOR="Blue"]if not objRS.EOF then
%>
<select name='menu01' onchange='javascript:window.location.href="pagina.asp?parametro=" + this.value;'>
<%[/COLOR]
do while not objRS.EOF
%> 
<option value="<%=obJRS(0)%>"><%=obJRS(1)%></option> 
<% 
ObjRS.movenext 
loop[COLOR="blue"]
%>
</select>
<%
end if[/COLOR]
ObjRS.Close 
set ObjRS = Nothing 
conn.Close 
set conn = Nothing 
%> 
</body>
...

Te l'ho fatto ora al volo senza provarlo, facci sapere ;)
 

RoRiccardo

Nuovo Utente
14 Mar 2008
4
0
0
Dunque.
L'eerore è questo:
Microsoft VBScript runtime error '800a01a8'

Object required: ''

/content/campionato/lettura_test.asp, line 43

in pratica mi da la combo vuota
i nomi (risultati della query) sono scritti fuori dalla combo.
segue la dicitura dell'errore.

Un risultato erroneo a cui credo di essere già incappato nei miei lunghi tentativi.

Che ne pensi?

Allora!!!
Se devo inserire l'istruzione di visualizzazione dettagli mi basta inserire un link a questo modo!!!

<td><a href="calciatori_dati.asp?view=Display&ID=<%=objRS("calciatore_ID")%>" title="Visualizza i Dettagli" onmouseover="window.status='Visualizza i Dettagli'; return true" onmouseout="window.status=''; return true">
<font color="#666666"><%=objRS("giocatore_cognome")%></font></a></td>


Ma su i risultati all'interno di un campo select box come quello che ho proposto come si fa???!!! AIUTO!

:dipser::dipser:
 

RoRiccardo

Nuovo Utente
14 Mar 2008
4
0
0
Problema Risolto!

Intanto ringrazio chi mi ha dato almeno una risposta nonostante la domanda potesse essere ai tanti esperti una sciocchezza!

Il suggerimento datomi sopra funziona ma cè un ma.
Lo script inserisce un link sulle voci del menu' alimentato automaticamente ma non invia l'informazione ID per visualizzare la scheda.

Credo che sia piu' semplice postare lo script funzionante perchè cosi' qualche "disperato" come me potràù risolvere il problema o un problema analogo.

Lo riporto integralmente perchè per quelli come me ogni virgola puo' essere importante senza dare nulla per scontato

Ciao RAGA!!!

<!-- #include file="../../common/includes/i_header.asp" -->
<!--#include file="includes/adovbs.inc"-->
<%

dim objConn, strCon, objRS, strSQL
Set objConn = Server.CreateObject("ADODB.Connection")

strCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../../mdb-database/campionato.mdb")
objConn.connectionstring = strCon
objConn.Open
Set objRS = Server.CreateObject("ADODB.Recordset")

%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">

<html>
<head>
<title>Miosito</title>
</head>
<body topmargin="0" leftmargin="0" link="#333333" vlink="#666666" alink="#333333">
<p>

&nbsp; &nbsp; &nbsp;
<%
strSQL="SELECT * FROM tGiocatori ORDER BY giocatore_cognome"
objRS.Open strSQL, objConn, adOpenKeyset, adLockPessimistic, adCmdText
%>
<table cellpadding="2" cellspacing="0" border="0" width="97%" align="center">
<tr valign="bottom">
<td><table cellpadding="0" cellspacing="0" border="0">
<form action="calciatori_dati.asp?view=Display&ID=<%=objRS("giocatore_id")%>" method="get"><tr><td>
<span class="little">
<input type="hidden" name="s" value="">
<input type="hidden" name="daysprune" value="30">
<b>Vai al Calciatore:</b><br>
<select name="calciatore"
onchange="window.location=('calciatori_dati.asp?view=Display&ID='+this.options[this.selectedIndex].value+'&daysprune=30')">
<%do while not objRS.eof%>
<option value="<%=objRS("giocatore_id")%>"><%=objRS("giocatore_cognome")%></option>
<%
objRS.movenext
loop
%>
</select><!-- go button -->
<input type="image" src="/images/go.gif" border="0"
align="absbottom">

<%
ObjRS.Close
set ObjRS = Nothing
objConn.Close
set conn = Nothing
%>

</body>
</html>
 
Ultima modifica:
Discussioni simili
Autore Titolo Forum Risposte Data
K [ASP.Net] Realizzazione menu a tendina dipendenti ASP.NET 1
L asp e menu a tendina Classic ASP 1
A asp Menu ASP.NET 0
L Modifica file upload in ASP Classic ASP 2
felino ASP.net MVC: Exception e chiamata AJAX ASP.NET 1
W Rinominare Documenti Con Form Asp Classic ASP 9
G Registrazione utente su pagina asp Classic ASP 13
R Sviluppatore ASP.NET Offerte e Richieste di Lavoro e/o Collaborazione 0
seranto [ASP] Controllare il testo inserito in Textarea Classic ASP 6
F classic asp popolare combo box javascript Presentati al Forum 1
P Passagio dati complessi tra una ASP.NET webapi e Angular ASP.NET 2
A [ASP.Net] Gestire il profilo ADMIN in un progetto ASP NET e pattern MVC ASP.NET 0
P [ASP.Net] Problema ERR_INCOMPLETE_CHUNKED_ENCODING 206 (Partial Content) con Font ASP.NET 4
A [ASP] Confronto tra dati Form e DB Classic ASP 2
A Mantenere la validazione reindirizzandoci su un secondo sito WEb. (ASP.NET) ASP.NET 0
StephenSoftware [ASP.Net] Pagina Master ed eventi... ASP.NET 0
K [ASP] Visualizzare nome del file selezionato Classic ASP 3
S [ASP] rubrica telefonica Classic ASP 2
M MySQL e classic ASP Classic ASP 5
D [ASP] Eliminare gli zeri che nn servono Classic ASP 1
G [ASP] Ciclare i valori di 2 array Classic ASP 2
S [RISOLTO] aggiorna tabella da select option asp classic Classic ASP 7
S elimina record sql asp classic Classic ASP 5
D [ASP] Autocomplete cerca su 2 campi del db Classic ASP 1
D [ASP] Leggere Campo decimal MYSQL Classic ASP 1
S [ASP] SALVARE VALORE SELECT OPTION SU CAMPO TABELLA ACCESS Classic ASP 9
NuviaSoftware [Retribuito] [Cerco] Programmatore ambienti ASP.NET,. Net Azure web apps, Javascript Offerte e Richieste di Lavoro e/o Collaborazione 0
D [ASP] scaricare articoli Classic ASP 8
D [ASP] Mysql insert e update Classic ASP 2
V [ASP.Net] avento keydown crh13 enter ASP.NET 0
A [ASP.Net] Dropdownlist ASP.NET 0
S [ASP.Net] [ASP] Upload Image ASP.NET 6
V Ricevere messaggi email certificata con CDO o altro oggetto in ASP Classic ASP 0
A [ASP] query wish list Classic ASP 3
riminese77 [ASP.Net] Popup Bootstrap in datagrid ASP.NET 0
D [ASP] si può fare? Classic ASP 29
D [ASP] ordinamento query Classic ASP 2
M [ASP] Upload file da form controllo Classic ASP 5
S SQL, ACCESS & ASP CLASSIC - QUERY Classic ASP 3
G [ASP] Incrementare un valore on the fly su selezione select Classic ASP 3
Tommy03 Aprire un file .asp nel browser Classic ASP 5
E [ASP.Net] Access 2016 ? Non si usa Microsoft Jet 4.0 ma Engine 2016 o 2010. Non va ! ASP.NET 2
D csrf : Cross Site Request Forgery in classic asp Classic ASP 0
D [ASP] Motore di ricerca interno su 2 tabelle Classic ASP 3
M [ASP.Net] [ASP] geoblocking e web.config ASP.NET 3
N Cerco sviluppatore ASP per aggiornamento sito e-commerce esistente Offerte e Richieste di Lavoro e/o Collaborazione 0
D prima prova con ASP... dove sbaglio? Classic ASP 13
L [ASP.Net] Realizzare modulo contatti PopUp ! ASP.NET 1
P Da ASP a PHP... movenext? do while not? PHP 5
A Retribuito: Sviluppatore Asp classico esperto in sicurezza webserver IIS e SQL Offerte e Richieste di Lavoro e/o Collaborazione 0

Discussioni simili