merhabalar ben aşağıdaki kodu (şu anda tek sutunlu alt alta verileri veriyor) iki sutunlu veya üç sutunlu hale gelmesini istiyorum. Yani veritabanından çektiği verileri iki veya üç sutunlu olarak dökmesini istiyorum.

Yardımcı olan herkese şimdiden teşekkürler...

------------------------------------------------------------------------------
<%
'// Değişkenler Tanımlanıyor
Dim adoCon
Dim kdGenel
Dim kdMenu
Dim kdYardimci
Dim kdYorum
Dim kdFonksiyon
Dim strVeri
Dim strTarih
Dim blnSaat
Dim Gunler
Dim Aylar
Dim Saniye
Dim Dakika
Dim Saat
Dim Gun
Dim Gun_Adi
Dim Ay
Dim Yil
Dim intHexLengş
Dim intLoopCounter
Dim strSiteAdi
Dim strSiteAdresi
Dim strCopyright
Dim blnOnayKodu
Dim intHaberSayisi
Dim intYorumSayisi
Dim strVersiyon
Dim blnAdminOnay
Dim strSiteAciklamasi
Dim intArananKategori
Dim strArananKategori
Dim strArananKelime
Dim blnMenuAc

'// Veritabanı Bağlantısı Yapılıyor
Set adoCon = Server.CreateObject("Adodb.Connection")
adoCon.open = "Provider=Microsoft.Jet.Oledb.4.0;Data Source="& Server.MapPaş("veritabani/mydesing.mdb") &";"

'// Kayıtsetleri Açılıyor
Set kdGenel = Server.CreateObject("Adodb.Recordset")
Set kdYardimci = Server.CreateObject("Adodb.Recordset")
Set kdMenu = Server.CreateObject("Adodb.Recordset")
Set kdYorum = Server.CreateObject("Adodb.Recordset")
Set kdFonksiyon = Server.CreateObject("Adodb.Recordset")

'// Site Ayarları Alınıyor
kdGenel.Open "SELECT TOP 1 * FROM tblAyarlar", adoCon, 1, 3
strSiteAdi = kdGenel("site_adi")
strSiteAdresi = kdGenel("site_adresi")
strSiteAciklamasi = kdGenel("aciklama")
strCopyright = kdGenel("copyright")
blnOnayKodu = kdGenel("onay_kodu")
blnAdminOnay = kdGenel("admin_onay")
intHaberSayisi = kdGenel("haber_sayisi")
intYorumSayisi = kdGenel("yorum_sayisi")
strVersiyon = "0.4.3"
kdGenel.Close
%>
<font color="#000000" size="2" face="Arial">

          <!--Son Haberler Başlangıcı-->
          <div class="kutu">
          <%
          kdMenu.Open "SELECT TOP 15 tarih, baslik, durum, onay, haberID FROM tblHaberler WHERE durum = True AND onay=True ORDER BY tarih DESC, haberID ASC",adoCon, 1, 3
          If Not kdMenu.EOF Then
               Do While Not kdMenu.EOF
                    Response.Write("<li> <a target=""_parent"" href=""oku.asp?syf="& kdMenu("haberID") &""" title="""& kdMenu("baslik") &""">"& Trim(kdMenu("baslik")) &"</a></li>")
               kdMenu.MoveNext
               Loop
          End If
          kdMenu.Close %>
          </div></font>


          <!--En Çok Okunanlar Bitişi-->
-------------------------------------------------------------------------------

Lütfen açtığımız başlıklara dikkat edelim. Konunun script hataları ile bir alakası yoktur. Başlık uygun foruma taşınarak onaylanmıştır ancak tekrarı durumunda mesajınız silinecektir.. (mYavuz)mYavuz2008-05-17 23:15:13