<div id="orta">

<div class="ortaust">Resim Galerisi</div>
<div class="ortaorta">
<div class="videog2">
<%
set ft= server.createobject("adodb.recordset")
%>
                          <%
g_katSirala = 2
tablo1 = "Select * from galeri WHERE kat_id = " & kat_id & " "
ft.pagesize = 10
ft.open tablo1,Baglanti,1,1
if request.QueryString("s")="" or request.querystring("s")=0 then
 s=1
else
 s=request.QueryString("s")
end if
ft.AbsolutePage = s
%> 
                            <% for k=1 to ft.pagesize %>
                            <% if ft.eof or ft.bof then exit for %>
                            <% if yan=g_katSirala then
      response.write ("<tr>")
      yan=0
      End if
     %>
     <% yan=yan+1
     if yan = (g_katSirala+1) then 
     response.write ("</tr>")
     end if
    %>
<div class="video2">
<a href="<%= ft("resim_url") %>" onclick="return hs.expand(this)">
<img src="<%= ft("resim_url") %>" alt="<%= ft("resim_baslik") %>" title="Resmi Büyütmek İçin Tıklakyınız." /></a>
<div class="highslide-caption"><%= ft("resim_baslik") %></div>
<%= ft("resim_baslik") %>

</div>

                            <%
    ft.movenext : next
     %>
                      <font face="Tahoma"><strong><font color="#429DE1"><span class="byazi style37">Sayfa</span></font></strong></font>   :<span class="byazi"><font size="2"><font face="Tahoma"> &nbsp;
                          <% for x=1 to ft.pagecount %>
                       <a href="resimler.asp?s=<%=x%>" class=ler> <span style="text-decoration: none"><%=x%></span></a>&nbsp;
                      <% next %>
</div>
</div>
<div class="ortaalt"></div>
<!-- Resim Gal. Biter -->

Arkadaşlar yukarıdaki kodda sürekli hata alıyorum yardımcı olabilecek var mı?

hatnın ne olduğunu da yazarsanız yardım edecek arkadaş daha kolay yardımcı olabilir...

hatayı yazarsan sorunu hallederiz.

ADODB.Recordset (0x800A0E7D)
Bağlantı, bu işlemi gerçekleştirmek için kullanılamıyor. Kapalı veya bu koşullarda geçersiz.
/dernek1/resimler.asp, line 66

<%
Vt_Pth=Server.Mappath("asdasdasdasd.mdb")
Cumle= "DBQ="& Vt_Pth &";Driver={Microsoft Access Driver (*.mdb)}"
Set Baglanti=Server.CreateObject("Adodb.Connection")
Baglanti.open cumle
Set Rs=Server.CreateObject("Adodb.Recordset")
%>

...
..

tablo1 = "Select * from galeri WHERE kat_id = " & kat_id & " "
ft.pagesize = 10
ft.open tablo1,Baglanti,1,1................................................................................66. satır
if request.QueryString("s")="" or request.querystring("s")=0 then
 s=1

....
..

<%rs.movenext
loop
rs.close%>

up

tablo1 = "Select * from galeri WHERE kat_id = " & kat_id & " "
ft.pagesize = 10
ft.open tablo1,Baglanti,1,1................................................................................66. satır
if request.QueryString("s")="" or request.querystring("s")=0 then
 s=1

ft.pagesize = 10

ft bağlantısını açmadan pagesize değeri girilebilrimi hocam önce bağlantıyı aç snra pagesizeye değer ata

66. satır hangisi hacı :D sanki cevap almamak için konu açıyomuş gibi açmışın konuyu.

bi yaz açık seçik ona göre bakalım ?

,

edit: ayrıcada dbq kalmadı hacı jet oledb kullan belkid ondandır:)

Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" &Server.MapPath("deneme.mdb" )&""   

ahanda bu kendine uyarla

manglerman bunu yazdı:
-----------------------------

66. satır hangisi hacı :D sanki cevap almamak için konu açıyomuş gibi açmışın konuyu.

-----------------------------

hocam işte 66.satır =

tablo1 = "Select * from galeri WHERE kat_id = " & kat_id & " "
ft.pagesize = 10
ft.open tablo1,Baglanti,1,1................................................................................66. satır
if request.QueryString("s")="" or request.querystring("s")=0 then
 s=1

 -------------------------------

ft.pagesize = 10 değerini ft bağlantısını açmadan önce atamış  bnce ondan

dediğiniz gibi de olmadı beyler. denedik lepus'la

manglerman bunu yazdı:
-----------------------------

66. satır hangisi hacı :D sanki cevap almamak için konu açıyomuş gibi açmışın konuyu.

Üstteki sorumu tekrarlıyorum....