Asp e menu a tendina dinamici da database

RoRiccardo · 14 Mar 2008

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!!!!

<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

PoLe · 14 Mar 2008

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 · 14 Mar 2008

Provo immediatamente

Grazie per il benvenuto.
Provo subito!:book:

RoRiccardo · 14 Mar 2008

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 · 14 Mar 2008

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!!!

<%

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>

     
<%
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>
<input type="image" src="/images/go.gif" border="0"
align="absbottom">

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

</body>
</html>

Cerca

Cerca

Asp e menu a tendina dinamici da database

RoRiccardo

Nuovo Utente

PoLe

MRW Moderator

RoRiccardo

Nuovo Utente

RoRiccardo

Nuovo Utente

RoRiccardo

Nuovo Utente

Discussioni simili