• Home
• Chi siamo
• Contatti
• Prodotti
• Occasioni
• Pagamento

<% set rec=server.CreateObject("ADODB.recordset") rec.Open "SELECT * " & _ "FROM PRODOTTO AS A " & _ "WHERE UCASE(A.OCCASIONE)='SI' " & _ "ORDER BY ORDINE;" ,db_conn,3,2 ' SUDDIVISIONE DEI RECORD TROVATI IN PAGINE if not rec.eof then rec.PageSize = schedepagina rec.AbsolutePage = pag totalPages = rec.pageCount end if if not rec.eof then response.write "" response.write "" i=0 while not rec.eof AND i < schedepagina set rec1=server.CreateObject("ADODB.recordset") strSQL = "SELECT A.TITOLO AS TITOLOCAT, B.TITOLO AS TITOLOSUBCAT " & _ "FROM CATEGORIA AS A LEFT JOIN SUBCATEGORIA AS B ON A.CODICE=B.CATEGORIA " & _ "WHERE A.CODICE=" & rec("categoria") & " AND B.CODICE=" & rec("subcategoria") & ";" rec1.Open strSQL,db_conn,3,2 if not rec1.eof then titolocat = rec1("titolocat") titolosottocat = rec1("titolosubcat") end if rec1.close Set rec1 = Nothing response.write "" response.write "" response.write "" response.write "" response.write "

---

" rec.movenext i = i+1 wend if totalPages > 1 then ' SE LE PAGINE SONO PIU' DI UNA, VISUALIZZO I PULSANTI PRECEDENTE,SUCESSIVO %> <% end if else response.write "" end if rec.close Set rec = Nothing %>

Home | Pagamento | Iscrizione