2 frågor om kategorier i bildgalleri

Fråga 1:

När jag ska räkna bilderna som en viss användare har med denna kod så försvinner alla kategorier ur select-listan:

<%varUID=request.querystring("userID")
count=objConn.Execute("select Count(bildID) as Antal from tblUsers_Galleri where agare="& varUID)%>

<%
     Dim Selected
     Do Until viewRS1.Eof
          Selected = ""
          If cStr(viewRS1("katID")) = Request.Form("katID") Then Selected = "selected"
          Response.Write("<option value=""" & viewRS1("katID") & """ " & Selected & ">" &  viewRS1("kategori") & " [B]"& count("Antal") &"[/B]</option>")
          viewRS1.MoveNext
     Loop
%>

Fråga 2:

Om en medlem har inlagda bilder, i kategorier eller inte så funkar det perfekt, men om en medlem inte har lagt in bilder än så får jag detta fel
ADODB.Field error '80020009'

Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.

/Gallery/Default.asp, line 0

Det är denna kod som felar....(samma ställe som i Fråga 1) :-)

<%
     Dim Selected
     Do Until viewRS1.Eof
          Selected = ""
          If cStr(viewRS1("katID")) = Request.Form("katID") Then Selected = "selected"
          Response.Write("<option value=""" & viewRS1("katID") & """ " & Selected & ">" &  viewRS1("kategori") & "</option>")
          viewRS1.MoveNext
     Loop
%>