<%@LANGUAGE="VBSCRIPT" CODEPAGE="1254"%> <% function tech(data) data = Replace (data ,"`","",1,-1,1) data = Replace (data ,"=","",1,-1,1) data = Replace (data ,"&","",1,-1,1) data = Replace (data ,"%","",1,-1,1) data = Replace (data ,"!","",1,-1,1) data = Replace (data ,"#","",1,-1,1) data = Replace (data ,"<","",1,-1,1) data = Replace (data ,">","",1,-1,1) data = Replace (data ,"*","",1,-1,1) data = Replace (data ,"/","",1,-1,1) data = Replace (data ,"","",1,-1,1) data = Replace (data ,"And","",1,-1,1) data = Replace (data ,"'","",1,-1,1) data = Replace (data ,"Chr(34)","",1,-1,1) data = Replace (data ,"Chr(39)","",1,-1,1) tech=data end function sf = Request.querystring("sf") if sf="" then sf=1 end if kategori = tech(request.querystring("kategori")) set cat = baglanti.execute("select * from tech_kategori Order by kategori asc") set rs = Server.createobject("Adodb.Recordset") sql = "select * from tech_download where kategori = "& kategori &" order by id desc" rs.open sql,baglanti,1,3 %>

<% do while not cat.eof set say = baglanti.execute("select count(*) from tech_download where kategori = "& cat("id") &"") %> <% cat.movenext loop%>  - Anasayfa  - Admin Paneli  - "><%=cat("kategori")%> (<%=say(0)%>)  <%if rs.eof then%>   Bu Kategoride Program Bulunamadı. Anasayfa'ya Dön <%else%> <% rs.pagesize = 5 rs.absolutepage = sf sayfa = rs.pagecount for i=1 to rs.pagesize if rs.eof then exit for %>      "><%=rs("ad")%> <% if rs("indir") <> "" then response.write " -  Indir" end if if rs("test") <> "" then response.write " -  Test Et" end if%>   <%=rs("aciklama")%>  Boyut : <%=rs("boyut")%> |  Eklenme Tarihi : <%=rs("tarih")%> |  Hit : <%=rs("hit")%> | Ekleyen : Admin Of TurkDownload <% rs.movenext next %> <% for y=1 to sayfa if CINT(TRIM(sf))=CINT(TRIM(y)) then%> <%response.write y %><% else response.write " " & y & "" end if %><%next end if%>