<% tot=0 if not rs.eof then while not rs.eof tot = tot + 1 rs.movenext wend rs.movefirst end if TotalRec = tot %>