<% Dim N_Lista N_Lista = request.cookies("Lista") %> <% 'Stringa per la connessione cString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/mdb-database/E-commerce.mdb") 'creazione connessione Set objConn=Server.CreateObject("ADODB.Connection") 'apertura connessione objConn.Open cString 'creazione recordset Set rs = Server.CreateObject("ADODB.Recordset") nometabella="Prodotti" ' inserisci qui il nome della tabella da vedere 'query sql sql = "select * from "&nometabella&" WHERE Marca = '"&N_Lista&"'" 'apertura recordset rs.Open sql, objConn, 3, 3 if rs.eof then 'se il recordset è vuoto..... %>

Niente dati

<% else 'se invece il recordset contiene dei dati..... %>

Questa è la lista di nascita di : <%=n_lista%>

<% For Each campo in rs.Fields ' per ogni campo presente nel database ... %> <% Next %> <% do until rs.eof ' per tutti i records ... For Each campo in rs.Fields '... scrivo di ogni campo ... %> <% next %> <% rs.movenext loop %>

<% IF campo.name <> "ID" OR campo.name <> "foto" OR campo.name <> "marca" OR campo.name <> "classe" OR campo.name <> "dispo" THEN %> <%=campo.name%> <% END IF %>

<% IF campo.name <> "ID" OR campo.name <> "foto" OR campo.name <> "marca" OR campo.name <> "classe" OR campo.name <> "dispo" Then %> <%=campo.value%> <% END IF %>

<% end if 'chiusura e distruzione recordset rs.close set rs=nothing 'chiusura e distruzione connessione objConn.close set objconn=nothing %>