Elenchi menù dinamici

Di: antonio632 | 26/09/2020 17:46:58
Salve a tutti, sono un nuovo iscritto, spero di trovare risposta in questo forum ad un mio dilemma....
Ho creato una pagina asp vbscript con una connessione ad un database, ho messo un form con un elenco menù dinamico che attinge ad una database. Questo menù attraverso la procedura POST dovrebbe collegare gli elementi presenti nel menù ad un'altra pagina che raccoglie i dati attraverso un filtro ID parametro modulo (ma ho anche provato con variabile modulo).
Il mio problema è che cliccando su un qualsiasi link che popola l'elenco menù dinamico vado sempre a finire, nella pagina che visualizza i dati allo stesso record, il primo nella fattispecie.
Qualcuno può darmi una mano?
Grazie anticipate!
Antonio

Risposte



posta del codice, cosi si può vedere qualche cosa....

Di: alemux | 26/09/2020 17:47:58


Ok, posto il codice delle due pagine, la prima contiene l'elenco menù dinamico che preleva i dati da un database, la seconda è una pagina di dettaglio col recordset filtrato dall'ID (contatore) contenente un campo di testo dinamico prelevato sempre da un recordset.
Cliccando su un qualsiasi punto dell'elenco menù dovrei ricavare il relativo record nella pagina di dettaglio!
A me però appare sempre il primo record, non funziona il filtraggio ID a quanto pare.
La prima pagina passa i dati alla seconda attraverso un form, metodo post, verso la pagina di dettaglio.
Ripeto, ho provato a settare nella pagina di dettaglio sia parametro URL sia variabilemodulo. Ma senza risultato.
<!-- Commento aggiunto per non interferire con il codice della pagina del forum di 001design.it.
PAGINA CONTENENTE L'ELENCO MENU':
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include virtual="/Connections/news.asp" -->
<%
Dim Recordset1
Dim Recordset1_cmd
Dim Recordset1_numRows
Set Recordset1_cmd = Server.CreateObject ("ADODB.Command")
Recordset1_cmd.ActiveConnection = MM_news_STRING
Recordset1_cmd.CommandText = "SELECT * FROM archivio"
Recordset1_cmd.Prepared = true
Set Recordset1 = Recordset1_cmd.Execute
Recordset1_numRows = 0
%><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtm">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Documento senza titolo</title>
</head>
<body>
<form id="form1" name="form1" method="post" action="/paginadettaglio.asp">
<label>
<select name="select" title="<%=(Recordset1.Fields.Item("id").Value)%>">
<%
While (NOT Recordset1.EOF)
%>
<option value="<%=(Recordset1.Fields.Item("id").Value)%>"><%=(Recordset1.Fields.Item("titolo").Value)%></option>
<%
Recordset1.MoveNext()
Wend
If (Recordset1.CursorType > 0) Then
Recordset1.MoveFirst
Else
Recordset1.Requery
End If
%>
</select>
</label>
<label>
<input type="submit" name="Submit" />
</label>
</form>
</body>
</html>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>
CODICE DELLA PAGINA DI DETTAGLIO:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include virtual="/Connections/news.asp" -->
<%
Dim Recordset1__MMColParam
Recordset1__MMColParam = "1"
If (Request.QueryString("id") <> "") Then
Recordset1__MMColParam = Request.QueryString("id")
End If
%>
<%
Dim Recordset1
Dim Recordset1_cmd
Dim Recordset1_numRows
Set Recordset1_cmd = Server.CreateObject ("ADODB.Command")
Recordset1_cmd.ActiveConnection = MM_news_STRING
Recordset1_cmd.CommandText = "SELECT * FROM archivio WHERE id = ?"
Recordset1_cmd.Prepared = true
Recordset1_cmd.Parameters.Append Recordset1_cmd.CreateParameter("param1", 5, 1, -1, Recordset1__MMColParam) ' adDouble
Set Recordset1 = Recordset1_cmd.Execute
Recordset1_numRows = 0
%><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtm">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Documento senza titolo</title>
</head>
<body>
<%=(Recordset1.Fields.Item("messaggio").Value)%>
</body>
</html>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>
Fine commento aggiunto per non interferire con il codice della pagina del forum di 001design.it. -->
Spero possiate aiutarmi!
Grazie!

Di: antonio632 | 26/09/2020 17:47:58