<% if Len(Session("id"))= 0 then Response.redirect "default.asp" end if %>
  Mevcut Kategoriler
<% Dim kRS Set kRS = Bag.Execute("SELECT adi,katid FROM UrunKategorileri 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 %>
" class="error">(Sil)
<% 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%>

  Kategori Ekle
Kategori Resmi : " size="50" /> ( Resim Seç )

Kategori Adı: