
 |
|
 |
|
 |
|
 |
|
 |
 |
<%
Dim Bag, Rs, i, s, Sayfa, SQL
Set Bag = Server.CreateObject("ADODB.Connection")
Set Rs = Server.CreateObject("ADODB.Recordset")
Bag.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("hspntl/haberler_tr.mdb")
SQL = "SELECT * FROM tbl_gurme order by id DESC"
Rs.Open SQL, Bag, 1, 3
If Not Rs.EOF Then
Rs.PageSize = 13
If Request.QueryString("s") <> "" Then
Sayfa = CInt(Request.QueryString("s"))
Else
Sayfa = 1
End If
Rs.AbsolutePage = Sayfa
%>
<%
i=0
Do While Not Rs.EOF And i
<%
if i mod 2 = 0 then
maviBeyaz = "#FFFFFf"
else
maviBeyaz = "#EBF0F5"
end if
%>
| |
">
" border="0" width="60" height="42"> |
|
|
|
<%
i=i+1
Rs.MoveNext
Loop
%>
| |
|
|
<%
If Rs.PageCount > 0 Then
For s=1 To Rs.PageCount
Response.Write "" & s & " "
Next
End If
%>
|
|
<%
End If
%>
|
 |
|
|
 |
|
 |
|
 |
|
 |

|