HOMEPAGE

Elenco dei prodotti disponibili a stock.
<% If Request("username") = "macpac" Then Session("username") = "macpac" End If If Session("username") <> "" Then Response.write "(Utente abilitato alla visione del listino prezzi)
" End If %>

<% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "norton" 'Set RS = Server.CreateObject("ADODB.Recordset") Set RS2 = Server.CreateObject("ADODB.Recordset") 'Sql = "SELECT prodotti.id_categoria, categorie.categoria FROM categorie INNER JOIN prodotti ON categorie.ID = prodotti.id_categoria GROUP BY prodotti.id_categoria, categorie.categoria;" 'RS.Open Sql, Conn, 1 'DO WHILE NOT RS.EOF 'Response.write "" & RS(1) & "
" Sql2 = "SELECT sottocategorie.sottocategoria, sottocategorie.id_categoria, categorie.categoria, sottocategorie.id FROM categorie INNER JOIN sottocategorie ON categorie.ID = sottocategorie.id_categoria ORDER BY sottocategorie.ordine;" RS2.Open Sql2, Conn, 1 Response.write "
    " DO WHILE NOT RS2.EOF If RS2("categoria") <> sottocategoria Then Response.write "

    " & RS2("categoria") & "

    " End If Response.write "

  • " & RS2("sottocategoria") & "" sottocategoria = RS2("categoria") RS2.MoveNext Loop RS2.Close Response.write "
" 'RS.MoveNext 'Loop 'RS.Close Conn.Close %>

Per poter accedere al listino prezzi è necessario inserire la password di accesso nel campo sottostante: