Creare un area ripetuta dentro a un'altra area ripetuta

**Ciombe** · 23-07-2011, 14:30

Salve ho questo problema...

vorrei creare un menu che scorra in orizzontale le categorie di prodotti e in verticale le sotto categorie del prodotto selezionato

in pratica:

fumetti film libri riviste sarebbe il menu principale, associato a fumetti ci sono manga topolino Superman, associati a riviste c'è Focus, Focus Storia ecc...

io creo la prima area ripetuta del menu principale attingendo i dati da un recordset (idCategoria, nome_categoria) mentre per creare il secondo recordset (idProdotto, nome_prodotto) come devo compilare l'istruzione SQL nella where?

Poi nel ciclo, come faccio a concatenare l'area ripetuta dei prodotti a quella della categoria appartenente?

spero di essermi spiegato...

**Ciombe** · 24-07-2011, 14:48

ho cercato in rete ed ho trovato questo

codice:

<%@LANGUAGE="VBSCRIPT"%>

<%
Dim rsLivello1
Dim rsLivello1_cmd
Dim rsLivello1_numRows

Set rsLivello1_cmd = Server.CreateObject ("ADODB.Command")
rsLivello1_cmd.ActiveConnection = MM_connessione_STRING
rsLivello1_cmd.CommandText = "SELECT * FROM tabella ORDER BY idTipologia ASC" 
rsLivello1_cmd.Prepared = true

Set rsLivello1 = rsLivello1_cmd.Execute
rsLivello1_numRows = 0
%>
<%
Dim rsLivello2__MMColParam
rsLivello2__MMColParam = "1"
If (rsLivello1.Fields.Item("idTipologia").Value <> "") Then 
  rsLivello2__MMColParam = rsLivello1.Fields.Item("idTipologia").Value
End If
%>
<%
Dim rsLivello2
Dim rsLivello2_cmd
Dim rsLivello2_numRows

Set rsLivello2_cmd = Server.CreateObject ("ADODB.Command")
rsLivello2_cmd.ActiveConnection = MM_connessione_STRING
rsLivello2_cmd.CommandText = "SELECT * FROM tabella2 WHERE idTipologia = ? ORDER BY nome ASC" 
rsLivello2_cmd.Prepared = true
rsLivello2_cmd.Parameters.Append rsLivello2_cmd.CreateParameter("param1", 5, 1, -1, rsLivello2__MMColParam) ' adDouble

Set rsLivello2 = rsLivello2_cmd.Execute
rsLivello2_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = -1
Repeat1__index = 0
rsLivello1_numRows = rsLivello1_numRows + Repeat1__numRows
%>
<!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/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Documento senza titolo</title>
<style type="text/css">
#primo {
	width: 300px;
}
#personaggio {
	width: 280px;
	margin-right: 10px;
	margin-left: 10px;
}
</style>
</head>
<body>
<% 
While ((Repeat1__numRows <> 0) AND (NOT rsLivello1.EOF)) 
%>
  <div id="primo">
    

<%=(rsLivello1.Fields.Item("tipologia").Value)%></p>
    <%
FilterParam = rsLivello1.Fields.Item("idTipologia").Value
rsLivello2.Filter = "idTipologia = '" & FilterParam & "'"
While (NOT rsLivello2.EOF)
%>
    <div id="personaggio"><%=(rsLivello2.Fields.Item("nome").Value)%></div>
    <%
rsLivello2.MoveNext()
Wend
%>
    

</p>
  </div>
  <% 
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  rsLivello1.MoveNext()
Wend
%>
</body>
</html>
<%
rsLivello1.Close()
Set rsLivello1 = Nothing
%>
<%
rsLivello2.Close()
Set rsLivello2 = Nothing
%>

però mi restituisce questo:

Tipologia1

Nome1
Nome2
Nome3

Tipologia2

Microsoft OLE DB Provider for ODBC Drivers error '80040e18'

Impossibile ritornare alla posizione nel set di righe.

/sito/prova.asp, riga 69

dove la riga 69 corrisponde a
rsLivello2.Filter = "idTipologia = '" & FilterParam & "'"

chi mi aiuta a risolvere questo errore?

Discussione: Creare un area ripetuta dentro a un'altra area ripetuta

Strumenti discussione

Ricerca discussione

Visualizza

Creare un area ripetuta dentro a un'altra area ripetuta

Permessi di invio