| cari55 Yeni Üye
 
  
 
 Kayıt Tarihi: 15-Haziran-2012
 Ülke: Turkiye
 Gönderilenler: 1
 
   | 
          merhaba benim sorunum db den veriyi çekerken boşluktan
           | Gönderen: 15-Haziran-2012 Saat 20:07 | Kayıtlı IP |   |  
           | 
 |  sonrasının gelmemesi yani ibrahim cari kayıtlı db de ama
 çektiğimde sayfaya sadece ibrahim i alıyor arada boşluk
 vermeden yaptığımda sorun yok.db den veriyi yazdıklarımın
 arasında boşluk bıraksam da normal bir şekilde nasıl
 çekebilirim kodlar aşağıda
 
 <% fldID = Request.QueryString("fldID")
 KatAdi = Request.QueryString("fldAdi") %>
 <title><%=KatAdi%></title>
 <table border="2" width="100%" id="table1"
 cellspacing="0" cellpadding="0">
 <tr>
 <td>
 <p align="center"><font
 class="tbaslikorta"><%=KatAdi%></font></td >
 </tr>
 <tr>
 <td>
 <p> </td>
 </tr>
 </table>
 <table border="0"  width="100%" align="center"
 cellspacing="0" cellpadding="0">
 <tr>
 
 </tr>
 <tr>
 <td  colspan="2">       &nb sp;
 <table align="center" cellpadding="4" cellspacing="0"
 width="85%">
 <tr>
 <% Set Rs = CreateObject("Adodb.RecordSet")
 Rs.Open "Select
 fldID,fldAdi,fldResim,fldHit,fldKatID,fldTarih From
 tblResimler Where fldKatID Like '"&fldId&"' Order By
 fldID DESC",Vt,1,3
 
 SayfaSayisi = Resimsayi
 Toplam = Rs.RecordCount
 
 If Toplam = 0 Then
 intSayfaSayisi = 0
 Response.Write "<tr><td colspan=5 align=center width=500>
 <br><font class=tfont>Bu kategoride resim yok.</font><br>
 <br></td></tr></table></td>< ;/tr></table>"
 Else
 
 intGecerliSayfa = Request.QueryString("Sayfa")
 If intGecerliSayfa = "" Or IsNumeric(intGecerliSayfa) =
 False Then intGecerliSayfa = 1
 Rs.PageSize = SayfaSayisi
 intSayfaSayisi = Rs.PageCount
 Rs.AbsolutePage = intGecerliSayfa
 
 m=1
 For r = 1 To SayfaSayisi
 If Rs.EOF Then Exit For
 Resim=Rs("fldResim")
 Set Kat = Vt.Execute("tblKategori Where fldID Like
 '"&Rs("fldKatID")&"'")
 KatAdi = Kat("fldAdi")
 Kat.Close : Set Kat = NoThing
 
 ResimAdi = ResimYol & "/" & KatAdi & "/Kucuk/" & Resim
 
 Path = (Request.ServerVariables( "APPL_PHYSICAL_PATH" ) &
 ResimYol & "/" & KatAdi & "/Buyuk/" & Resim)
 
 Set Jpeg = Server.CreateObject("Persits.Jpeg" )
 Jpeg.Open Path
 Height=Jpeg.Height
 Width=Jpeg.Width
 Set Jpeg = NoThing
 
 Set Fso =
 Server.CreateObject("Scripting.Filesystemobject")   ;
 Set Dosya = Fso.GetFile(Path)
 Boyut = Dosya.Size/1024
 Set Dosya = NoThing
 Set Fso = NoThing
 
 %>
 
 |