Merhaba,
http://www.findikkurdu.com/Article.aspx?ID=48 adresindeki makaleyi okuyarak sayfalama yaptım. Ama hata verdi.
Hata Tipi:
Microsoft VBScript derleme hatası (0x800A040E )
'do' olmadan 'loop'
/fa/fotograflar.asp, line 174
Loop
<!-- #include file="baglanti.asp" -->
<TABLE cellSpacing=1 cellPadding=1 width="100%" border=0>
<TBODY>
<TR>
</TD>
<TD vAlign=top align=middle width=425>
<CENTER>
<TABLE cellPadding=2 width="132%" border=0>
<TBODY>
<%
kategori_id = guvenlik(Request.QueryString("kategori_id" ) )
%>
<%
set fotograflar = server.createobject("ADODB.Recordset" )
SQL = "Select * from fotograflar where kategori_id='"&kategori_id&"' order by fotograf_adi asc"
fotograflar.open SQL,baglanti,1,3
If Not fotograflar.EOF Then
'Bir sayfada gösterilecek kayıt sayısını belirliyoruz
fotograflar.PageSize = 2
'Eğer QueryString´de sayfa değişkeni tanımlanmışsa
If Request.QueryString("s" ) <> "" Then
'Bulunduğumuz sayfayı bu değişkenin değeri olarak atayalım
Sayfa = CInt(Request.QueryString("s" ) )
Else
'Değilse başlangıç sayfa numaramızı 1 olarak atayalım
Sayfa = 1
End If
' ve Kayıtsetimize hangi sayfada bulunduğumuzu söyleyelim.
fotograflar.AbsolutePage = Sayfa
kactane = 3
oran = CInt(100/kactane )
i=0
'Kayıtsetimizi bir sayfada gösterilecek kayıt sayısı adedince döndürelim.
Do While Not fotograflar.EOF And i<fotograf.PageSize
For i2 = 1 To fotograflar.recordcount
If not i2 mod kactane = 0 Then
%>
<TD vAlign=top align=middle width="<%=oran %>%">
<TABLE class=grube id=Autonumber1
style="BORDER-COLLAPSE: collapse"
borderColor=#ff0000 height=20 cellSpacing=0
cellPadding=0 width="<%=oran %>%" border=0>
<TBODY>
<TR>
<TD style="color: #d5d5d5">
<DIV align=center><A class=ThmMavi11-16>
<TABLE cellSpacing=0 cellPadding=0 width=100
border=0>
<TBODY>
<TR>
<TD colSpan=3 style="color: #d5d5d5">
<IMG height=9 alt=""
src="images/albumcerceve_ust.gif"
width=135></TD></TR>
<TR>
<TD style="color: #d5d5d5">
<IMG height=90 alt=""
src="images/albumcerceve_left.gif"
width=11></TD>
<TD style="color: #d5d5d5">
<p align="center">
<a class="ThmMavi11-16" href="javascript:openWindow('fotograf.asp?fotograf_id=<%=fotograflar("id" )%>' )"><IMG
height=90
src="<%=fotograflar("fotograf" )%>"
width=122 align=absMiddle border=0></a> </TD>
<TD style="color: #d5d5d5">
<IMG height=90 alt=""
src="images/albumcerceve_right.gif"
width=2></TD></TR>
<TR>
<TD colSpan=3 style="color: #d5d5d5">
<IMG height=11 alt=""
src="images/albumcerceve_alt.gif"
width=135></TD></TR></TBODY></TABLE></DIV></TD></TR>
<TR>
<TD height=29 style="color: #d5d5d5">
<DIV align=center><A class=ThmMavi11-16
href="javascript:openWindow('fotograf.asp?fotograf_id=<%=fotograflar("id" )%>' )"><%=fotograflar("fotograf_adi" )%></A>
</DIV></TD></TR></TBODY></TABLE></TD>
<TD vAlign=top align=middle width=28> </TD>
<%
ElseIf i2 mod kactane = 0 Then
%>
<TD vAlign=top align=middle width="235">
<TABLE class=grube id=Autonumber2
style="BORDER-COLLAPSE: collapse"
borderColor=#ff0000 height=20 cellSpacing=0
cellPadding=0 width="<%=oran %>%" border=0>
<TBODY>
<TR>
<TD style="color: #d5d5d5">
<DIV align=center><A class=ThmMavi11-16>
<TABLE cellSpacing=0 cellPadding=0 width=100
border=0>
<TBODY>
<TR>
<TD colSpan=3 style="color: #d5d5d5">
<IMG height=9 alt=""
src="images/albumcerceve_ust.gif"
width=135></TD></TR>
<TR>
<TD style="color: #d5d5d5">
<IMG height=90 alt=""
src="images/albumcerceve_left.gif"
width=11></TD>
<TD style="color: #d5d5d5">
<p align="center">
<a class="ThmMavi11-16" href="javascript:openWindow('fotograf.asp?fotograf_id=<%=fotograflar("id" )%>' )"><IMG
height=90
src="<%=fotograflar("fotograf" )%>"
width=122 align=absMiddle border=0></a> </TD>
<TD style="color: #d5d5d5">
<IMG height=90 alt=""
src="images/albumcerceve_right.gif"
width=2></TD></TR>
<TR>
<TD colSpan=3 style="color: #d5d5d5">
<IMG height=11 alt=""
src="images/albumcerceve_alt.gif"
width=135></TD></TR></TBODY></TABLE></DIV></TD></TR>
<TR>
<TD height=29 style="color: #d5d5d5">
<DIV align=center><A class=ThmMavi11-16
href="javascript:openWindow('fotograf.asp?fotograf_id=<%=fotograflar("id" )%>' )"><%=fotograflar("fotograf_adi" )%></A>
</DIV></TD></TR></TBODY></TABLE></TD>
<TD vAlign=top align=middle width=6> </TD>
</td>
</tr>
<tr>
<%
i=i+1
fotograflar.MoveNext
Loop
%>
<%
fotograflar.Close
Set fotograflar=Nothing
%>
<tr>
<td colspan="3" align="right">
<%
' ve son olarak ta sayfaların linklerini sayfamıza bastıralım.
If fotograflar.PageCount > 0 Then
For s=1 To fotograflar.PageCount
Response.Write "<a href=""?s=" & s & """>" & s & "</a> "
Next
End If
%>
</td>
</tr>
</table>
<%
' Bitti, hayırlı olsun...
End If
%>
</TR></TBODY></TABLE>
</TD>
|
