Kosifler Teknik Yapy Otomasyon Sistemleri

<% dim modeli(100) dim resimi(100) dim idsim(100) sf=request.querystring("sf") if sf="" then sf=1 end if %> <% prj=request.QueryString("prj") sql="select *from galeri where kat='1'" if prj="1" then sql="select *from galeri where kat='1'" end if if prj="2" then sql="select *from galeri where kat='2'" end if if prj="3" then sql="select *from galeri where kat='3'" end if if prj="4" then sql="select *from galeri where kat='4'" end if if prj="5" then sql="select *from galeri where kat='5'" end if if prj="6" then sql="select *from galeri where kat='6'" end if if prj="7" then sql="select *from galeri where kat='7'" end if if prj="8" then sql="select *from galeri where kat='8'" end if if prj="9" then sql="select *from galeri where kat='9'" end if set veri=server.createobject("adodb.recordset") veri.open sql,conn,1,3 %> <% If Not veri.EOF Then veri.pagesize=8 veri.absolutepage=sf sayfalama=veri.pagecount %> <% for i=1 to veri.pagesize if veri.eof then exit for art=art+1 modeli(art)=veri(2) resimi(art)=veri(3) idsim(art)=veri(4) veri.movenext next end if %>