<% db_veriyolu ="" & vtyolu & "/"& vtadi &"" set Baglantim = server.createobject("adodb.connection") Baglantim.open "provider=microsoft.jet.oledb.4.0;data source=" & Server.mappath(db_veriyolu & ".mdb") Set Rs=Server.CreateObject("Adodb.Recordset") Set Ra=Server.CreateObject("Adodb.Recordset") Set Rf=Server.CreateObject("Adodb.Recordset") Set Ru=Server.CreateObject("Adodb.Recordset") Set Rk=Server.CreateObject("Adodb.Recordset") Set Rl=Server.CreateObject("Adodb.Recordset") Set Rt=Server.CreateObject("Adodb.Recordset") Set Rv=Server.CreateObject("Adodb.Recordset") Set Ry=Server.CreateObject("Adodb.Recordset") Set Rz=Server.CreateObject("Adodb.Recordset") Set Rx=Server.CreateObject("Adodb.Recordset") sayfa=Request.QueryString("sayfa") islem=Request.QueryString("islem") kanal=Request.QueryString("kanal") sektor=Request.QueryString("sektor") skodu=Request.QueryString("skodu") askodu=Request.QueryString("askodu") fkodu=Request.QueryString("fkodu") hkodu=Request.QueryString("hkodu") urun_id=Request.QueryString("urun_id") kodu=Request.QueryString("kodu") id=Request.QueryString("id") sorgum="select *from ayarlar" rl.open sorgum,Baglantim,3,3 siteadi = rl("site_adi") copyright = rl("copyright") siteslogan = rl("site_slogan") siteurl = rl("site_url") sitemail = rl("site_mail") mailsunucu = rl("mail_sunucu") mailbilesen = rl("mail_bilesen") siteyetkili = rl("site_yetkili") siteili = rl("site_ili") if Session("sitetema")="" then sitetema = rl("site_tema") else sitetema = Session("sitetema") end if siteduyuru = rl("site_duyuru") sitekonum = rl("konum") sitegenislik = rl("site_genislik") rl.close ip=Request.ServerVariables("REMOTE_ADDR") sorgum="select * from saldiran where engel=true and ip like '%"&ip&"%'" Rs.Open Sorgum, Baglantim, 1, 3 i = rs.recordcount rs.close if i<>0 then Response.Redirect("../engelli.asp") end if %> <% db_veriyolu ="" & vtyolu & "/"& vtadi &"" Set data=Server.CreateObject("ADODB.Connection") data.Open"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.mappath(db_veriyolu & ".mdb") %> %> <% 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 galeri_kat where id="&kat&"" rgk.open SQL,data,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 galeri where kat_id="&rgk("id")&" and onay=1 order by id desc" else SQL = "select * from galeri where kat_id="&rgk("id")&" and onay=1 and id="&id&"" end if rg.open SQL,data,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 galeri where kat_id="&rgk("id")&" and onay=1" kat.open SQL,data,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 galeri where id >= "&rg("id")&" and kat_id="&rgk("id")&" and onay=1" kat2.open SQL,data,1,3 if kat2("kat_say")="0" then kalanresim="1" else kalanresim=kat2("kat_say") end if kat2.close : set kat2=nothing %>

<%=FormatDateTime(rg("tarih"),1)%> <%=FormatDateTime(rg("tarih"), 4)%>

" width="578" height="400" border="0">

<%=rg("aciklama")%>

<% Set Objonce = Server.CreateObject("adodb.RecordSet") sql="SELECT id,kat_id From galeri WHERE id > "&rg("id")&" and kat_id="&rgk("id")&" and onay=1 order by id asc" Objonce.open sql, data, 1, 3 if not Objonce.eof then %> &id=<%=objonce("id")%>"><% end if objonce.close : set objonce = nothing %> <%=rg("isim")%>  <%=kalanresim%>/<%=tumresim%> <% Set Objsonra = Server.CreateObject("adodb.RecordSet") sql="SELECT id,kat_id From galeri WHERE id < "&rg("id")&" and kat_id="&rgk("id")&" and onay=1 order by id desc" Objsonra.open sql, data, 1, 3 if not Objsonra.eof then %> &id=<%=objsonra("id")%>"><% end if Objsonra.close : set Objsonra = nothing %>

" target="_blank">

<% End if rg.close : set rg=nothing rgk.close : set rgk=nothing End if End if %>