<%
degisken = Request.QueryString
gelenlink_bol = split(degisken, "/")
uzanti_bol = split(gelenlink_bol(3), "-")
HABER = uzanti_bol(0)
%>
<%
set redkod4 = server.createobject("ADODB.Recordset")
SQL = "Select * from uretimler WHERE id = " & HABER
redkod4.open SQL,conn,1,3
baslik=redkod4("baslik")
redkod4.Close
Set redkod4=Nothing
%>
<%
Set redkod = Server.CreateObject("ADODB.Recordset")
SQL = "Select * from uretimler WHERE id=" & HABER
redkod.Open SQL,conn,1,3
%>
<%=redkod("baslik")%>
" rel="lightbox">
<%redkod.close%>
Diğer Ü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
%>
