<%@LANGUAGE="VBSCRIPT" CODEPAGE="1254"%> <% id=suz(request.querystring ("id")) set rst = bag.execute("select * from altkategori where id=" & suz((id)) & " ") altkatid= rst("id" ) katid= rst("katid" ) kategoriid= rst("id" ) kategori= rst("altkategori") aciklama= rst("aciklama") aciklama_en= rst("aciklama_en") url= rst("url") sayfa= rst("sayfa") rst.close set rst=nothing %> <%=kategori%> - <%=anatitle%> <%=googleanaliz%> <%Fox_feed()%> <%Fox_topmenu()%> <%Fox_nav()%>
<%=kategori%>

<%=aciklama%>
<%Fox_sol()%>
    <% id = suz(request.querystring("id")) set extra = bag.execute("select * from altkategori where katid=" & suz(katid) & " order by id desc") IF extra.EOF THEN else Do while not extra.eof if extra("id")=request.querystring ("id") then %>
  • "> <%=extra("altkategori")%>
    • <% else %>
  • "> <%=extra("altkategori")%>
    • <% end if extra.movenext:loop end if extra.close set extra=nothing %>
<% if url="1" then %>

<%=aciklama_en%>


<% else end if %>
<% id = request.querystring("id") galeriSirala = 4 Set Rs=Server.CreateObject("Adodb.Recordset") Sorgu = "select * from urunler where altkatid=" & suz((id)) & " order by id desc" rs.pagesize = 60 Rs.Open Sorgu, bag, 1, 1 IF rs.EOF THEN else response.Write("
") if request.QueryString("s")="" or request.querystring("s")=0 then s=1 else s=request.QueryString("s") end if rs.AbsolutePage = s %> <% for k=1 to rs.pagesize if rs.eof or rs.bof then exit for if yan=galeriSirala then response.write ("") yan=0 End if %> <% yan=yan+1 if yan = (galeriSirala+1) then response.write ("") end if rs.movenext : next %>
">" alt="<%=rs("baslik")%>" />
"> <%=rs("baslik")%>
<%=rs("urunkod")%>
'">

<% for x=1 to rs.pagecount %> <% next end if rs.close set rs=nothing %>
<%Fox_altfooter()%>
<%Fox_footer()%>