cari55 Yeni Üye
Kayıt Tarihi: 15-Haziran-2012 Ülke: Turkiye Gönderilenler: 1
|
Gönderen: 15-Haziran-2012 Saat 20:07 | Kayıtlı IP
|
|
|
merhaba benim sorunum db den veriyi çekerken boşluktan
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
%>
|