<%@ Import Namespace="System.Data.Oledb" %> <% Dim baglanti As OleDbConnection Dim komut As OleDbCommand Dim okuma As OleDbDataReader Dim sql As String Dim sira1 As Integer baglanti = New OleDbConnection("Provider=Microsoft.Jet.Oledb.4.0;Data Source=" & Server.MapPath("veritabanı.mdb")) baglanti.Open() sql = "select * from urunler" komut = (New OleDbCommand(sql, baglanti)) okuma = komut.ExecuteReader Response.Write("") While okuma.Read sira1 += 1 If sira1 Mod 3 = 1 Or sira1 = 1 Then Response.Write("") End If Response.Write("") If sira1 = 3 Then Response.Write("") End If End While baglanti.Close() Response.Write("

") Response.Write("") Response.Write(" ") Response.Write(okuma8.Item("kategori_ad")) Response.Write("

") %>