SQL = "SELECT COUNT(*) AS NumRec FROM foto WHERE visualizza = "& 1
Set objRS = objConn.Execute(SQL)
tot_record = objRS.Fields("NumRec").Value
set objRS = nothing
SQL = "SELECT COUNT(*) AS NumRec FROM foto WHERE visualizza = "& 1
Set objRS = objConn.Execute(SQL)
tot_record = objRS.Fields("NumRec").Value
set objRS = nothing