<%Set redkod1 = conn.execute("Select * From haberler order by id desc")%>
<%if redkod1.eof Then%>Kayıtlı veri bulunamadı.!<%Else%>
<%=redkod1("baslik")%>
 " width="136" height="89"> |
<%=Left(redkod1("detay"),450)%>
<%End if%>
Ürünler
<%
set redkod = server.createobject("adodb.recordset")
galeriSirala = 6
tablo = "Select * from uretimler "
redkod.pagesize = 8
redkod.open tablo,conn,1,3
if redkod.eof Then
Response.Write " Kayıtlı Veri bulunamadı"
Else
if request.QueryString("s")="" or request.querystring("s")=0 then
s=1
else
s=request.QueryString("s")
end if
redkod.AbsolutePage = s
%>
<% for k=1 to redkod.pagesize %>
<% if redkod.eof or redkod.bof then exit for %>
<% if yan=galeriSirala then
response.write ("
")
yan=0
End if
%>
<% yan=yan+1
if yan = (uretimlerSirala+1) then
response.write ("
")
end if
%>
<%
redkod.movenext : next
redkod.close
set redkod=Nothing
End if
%>
-
Multimedya
<%
set redkod = server.createobject("adodb.recordset")
galeriSirala = 1
tablo = "Select * from res_kategori "
redkod.pagesize = 5
redkod.open tablo,conn,1,3
if redkod.eof Then
Response.Write " Kayıtlı Veri bulunamadı"
Else
if request.QueryString("s")="" or request.querystring("s")=0 then
s=1
else
s=request.QueryString("s")
end if
redkod.AbsolutePage = s
%>
<% for k=1 to redkod.pagesize %>
<% if redkod.eof or redkod.bof then exit for %>
<% if yan=galeriSirala then
response.write (" ")
yan=0
End if
%>
|
 " border="0" width="113" height="87"> |
|
|
|
<% yan=yan+1
if yan = (galeriSirala+1) then
response.write (" ")
end if
%>
<%
redkod.movenext : next
redkod.close
set redkod=Nothing
End if
%>
|
| |
