<% if Request.QueryString("sil")="eminim" and Request.QueryString("id")<>"" then rs.open "delete * from urun where id="&Request.QueryString("id") , baglantim ,1,3 end if %> <% rs.movenext next %>
<% if skodu<>"" then sorgum="Select * from Urun where skodu="&skodu&" order by id desc" else sorgum="Select * from Urun order by id desc" end if if askodu<>"" then sorgum="Select * from Urun where skodu like '%"&skodu&"%'" end if rs.Open Sorgum, Baglantim, 1, 3 if rs.eof or rs.bof then Response.Write("
Resim
Ürün Kısa Özeti
Göster
İşlemler
Kayit Bulunmadi
") else shf = Request.QueryString("shf") if shf="" then shf=1 end if %> <% rs.pagesize = 10 rs.absolutepage = shf cellcolor="#FFFFFF" sayfa = rs.pagecount for i=1 to 5 if rs.eof then exit for If i mod 2 Then Response.Write("") End If %>

<%= Rs("adi") %>

<%= Rs("aciklama") %>

<%firmabul(rs("fkodu")) %>

<%if rs("goster")=true then%> <%else%> <%end if%>
-<%=cevir(rs("adi"))%>.html',700,400)" style="cursor:hand;" />

" onclick="return confirm('Dikkat! Ürün Tamamen Silinecektir.')">

<%for y=1 to sayfa if cint(shf)=cint(y) then %> [<%= y %>] <% else %> <%= y %> <% end if next %>

<% end if %>