<% if Len(Session("id"))= 0 then Response.redirect "default.asp" end if %>
  RESİM EKLE - (Kategori Seçiniz)
<% Dim kRS Set kRS = Bag.Execute("SELECT adi,katid FROM AlbumKat WHERE adi <> '' ORDER BY adi ASC") While Not kRS.EOF %> <% If Not kRS.EOF Then kRS.MoveNext End If Wend kRS.Close Set kRS = Nothing %>
<% If Not kRS.EOF Then kRS.MoveNext End If If Not kRS.EOF then %>
<%End If %> 		<% If Not kRS.EOF Then kRS.MoveNext End If If Not kRS.EOF Then %>
<%End If%>