come posso fare per stampare solo 1 record

[wallrider]

set rs = cn.Execute("SELECT DISTINCT data,categoria FROM gallery order by data asc")

eccetera