<%
kat=Request.QueryString("kat")
id=Request.QueryString("id")
if kat="" or isnumeric(kat)=false then
response.write "Hata 1"
else
set rgk = Server.CreateObject("ADODB.RecordSet")
SQL = "select * from res_kategori where id="&kat&""
rgk.open SQL,conn,1,3
if rgk.eof then
response.write "Hata 2"
else
set rg = Server.CreateObject("ADODB.RecordSet")
if id="" or isnumeric(id)=false then
SQL = "select * from resimler where kid="&rgk("id")&" order by id desc"
else
SQL = "select * from resimler where kid="&rgk("id")&" and id="&id&""
end if
rg.open SQL,conn,1,3
if rg.eof then
response.write "Hata 3"
else
set kat = Server.CreateObject("ADODB.RecordSet")
SQL = "select count(id) as kat_say from resimler where kid="&rgk("id")&""
kat.open SQL,conn,1,3
tumresim=kat("kat_say")
kat.close : set kat=nothing
set kat2 = Server.CreateObject("ADODB.RecordSet")
SQL = "select count(id) as kat_say from resimler where id >= "&rg("id")&" and kid="&rgk("id")&""
kat2.open SQL,conn,1,3
if kat2("kat_say")="0" then
kalanresim="1"
else
kalanresim=kat2("kat_say")
end if
kat2.close : set kat2=nothing
%>
|
 " width="719" height="502" border="0"> |
| Fotoğraf adı: <%=rg("aciklama")%> |
|
<%
Set Objonce = Server.CreateObject("adodb.RecordSet")
sql="SELECT id,kid From resimler WHERE id > "&rg("id")&" and kid="&rgk("id")&" order by id asc"
Objonce.open sql, conn, 1, 3
if not Objonce.eof then
%>
&id=<%=objonce("id")%>">
 <%
end if
objonce.close : set objonce = nothing
%> |
<%=rg("baslik")%> <%=kalanresim%>/<%=tumresim%> |
<%
Set Objsonra = Server.CreateObject("adodb.RecordSet")
sql="SELECT id,kid From resimler WHERE id < "&rg("id")&" and kid="&rgk("id")&" order by id desc"
Objsonra.open sql, conn, 1, 3
if not Objsonra.eof then
%>
&id=<%=objsonra("id")%>">
 <%
end if
Objsonra.close : set Objsonra = nothing
%> |
|
<%
End if
rg.close : set rg=nothing
rgk.close : set rgk=nothing
End if
End if
%>