Resim Upload İşleminde Gerekli düzenlemeleri yaptım ama

[Bay_Y]

i leri I olarak değiştirdim tablo ismindeki ama yinede resim kategorileri görünmüyor.

PIC_CATEGORIES içinde datalar var



function GetCategories()
   strSQL = "SELECT CAT_NAME, CAT_ID FROM PIC_CATEGORIES ORDER BY CAT_NAME ASC"
   dim rsCategories
   set rsCategories = server.CreateObject("adodb.recordset")
   rsCategories.Open strSQL, my_Conn
   %>
    <td bgcolor=<%= strForumCellColor%>>
      <select name="cat">
   <%
   dim rsSubCat
   set rsSubCat = server.CreateObject("adodb.recordset")
   
   do while not rsCategories.EOF
      strCatName = rsCategories("CAT_NAME")
      intCatID = rsCategories("CAT_ID")
      
      strSQL = "SELECT SUBCAT_NAME, SUBCAT_ID FROM PIC_SUBCATEGORIES WHERE CAT_ID = " & intCatID & " ORDER BY SUBCAT_NAME ASC"
      rsSubCat.Open strSQL, my_Conn
      do while not rsSubCat.EOF
         %>
         <option value="<%=rsSubCat("SUBCAT_ID")%>"><%=strCatName%>/<%=rsSubCat("SUBCAT_NAME")%></option>
         <%
         rsSubCat.MoveNext
      loop
      rsSubCat.Close
      
      rsCategories.MoveNext
   loop
   set rsSubCat = nothing
   %>
      </select>
    </td>
   <%
   rsCategories.Close
   set rsCategories = nothing
end function
%>


ama buna rağmen  kategöri kısmı boş ne yapmalıyım.

[AdmiN]

Bu kodlarda hata olmayabilir.pic_functions.asp de bakmak gerek.O dosyanın içinde include edilmiş dosyalarda sorun olabilir.

[Bay_Y]

Bu kodlarda hata olmayabilir.pic_functions.asp de bakmak gerek.O dosyanın içinde include edilmiş dosyalarda sorun olabilir.

onuda kontrol ettim bir sorun gözükmüyor ama maalesef comboda kategorilerde görünmüyoor.Database de kayıt olduğu halde kayıt yokmuş gibi davranıyor.

Düzgün çalışacak hataları giderilmiş portalın son hali veya herhangi bir hali ama çalışan kod elinde olan varsa yardımcı olursa sevinirim. Teşekkürler.