con questo codice dovrebbe ordinarmi i risultati uno per categoria e in ordine di id dall'ultimo al primo...ma non funziona!invece me li mette in ordine alfabetico di categoria!!
potete aiutarmi?
grazie!
Dim Conn, titolo
Set Conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("../../dati/store.mdb")
set rs = server.CreateObject("ADODB.Recordset")
rs.open "SELECT DISTINCT offercat FROM mercatino ",conn
response.Write"<table border='0' cellspacing='0' cellpadding='0'><tr>"
max=2
do while not rs.EOF
sql = "SELECT TOP 1 * FROM mercatino WHERE offercat = '"& rs("offercat") &"' ORDER BY id DESC"
set rsCat = conn.execute(sql)
if rsCat("immagine")<>"" then
x=x+1

Rispondi quotando
