Asp Sayfalama sorunu, acil yardım... - Sayfa 2

17-07-2009, 20:06:34

#10

hocam anlatmak istediğim ikisi de çalışmakta. uyarlamaya gerek yok ikisinde de su an :S

sadece siz uyarlarken veri tabanı ve tablo adını yanlış yazmıs olabilirsiniz demeye çalışıyorum kısaca.

Veri tabanı yolunu ve tablo adını duzenledikten sonra çalıştıgını göreceksiniz zaten. düzenlemenz gereken yerler

Alıntı

<%

Set ObjCon_ilet = Server.CreateObject("ADODB.Connection")
ObjCon_ilet.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../veri/veri.mdb")

%>

<%
Set ObjRs=Server.CreateObject("adodb.recordset")
strSQL="Select * From musteri id order by id desc"

Alıntı

kendinize göre düzenlemeniz gereken yerleri kalın puntolarla belirttim

17-07-2009, 20:36:08

#11

nitro

Hocam saten üste verdiğim yerde hepsi düzenli güzelde listeleniyor. Ancak 100 müşteri listelendikten sonra kötü oluyor 20 20 müşterileri sayfalasa daha güzel olacak benim istediğim bu.

Teşekür ederim.
sizin punto ile yazdıklarınız benım normal olarak düzenli. Sizin bi üsteki mesajdakilerini yapınca onlar sayfalanmıyorki sadece listeleniyor.
Ben sayfalanmasını istiyorum...

17-07-2009, 21:12:33

#12

Misafir

çok çok özür dilerim yanlış anladım sanırım buyurun sanırım istediğiniz sey bu her sayfada 2 veri olacak sekilde sıralattım

Alıntı

<%

Set ObjCon_ilet = Server.CreateObject("ADODB.Connection")
ObjCon_ilet.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("deneme.mdb")

%>

<%
Set ObjRs=Server.CreateObject("adodb.recordset")
strSQL="Select * From musteri id order by id desc"
ObjRs.Open StrSql, ObjCon_ilet, 1, 3
%>

<div align="center">
<center>

<table width="713" border="0">
<tr>
<td width="20"> </td>
<td width="201"><div align="center"><font color="#333333" size="2" face="Tahoma">Adı Soyadı </font></div></td>
<td width="223"><div align="center"><font color="#333333" size="2" face="Tahoma">Firma Bilgileri </font></div></td>
<td width="177"><div align="center"><font color="#333333" size="2" face="Tahoma">Email Adresi </font></div></td>
<td width="42"><div align="center"><font color="#333333" size="2" face="Tahoma">Detay</font></div></td>
<td width="24"><div align="center"><font color="#333333" size="2" face="Tahoma">Sil</font></div></td>
</tr>

<div align="center">
<tr>
<td>
<font face="Tahoma" size="2" color="#FFFFFF">
<br>
<%
If ObjRs.eof or ObjRs.bof then
Response.Write "<font face=verdana size=2 color=#ff3300><b><center><br>Kayıtlı musteri yok.</br></center></b></font>"
Response.end
end if
sayfa = Request.QueryString("sayfa" )
If sayfa="" Then sayfa=1
ObjRs.pagesize = 2
ObjRs.absolutepage = sayfa
sayfa_sayisi = ObjRs.pagecount
for i=1 to ObjRs.pagesize
if ObjRs.eof then
exit for
end if
%>
<tr>
<td width="20" style="border: 1px dotted #C0C0C0"><div align="center"><img src="img/uye.gif" /></div></td>
<td width="201" style="border: 1px dotted #C0C0C0"><div align="left"><font color="#0066CC" size="1.5" face="Tahoma"> <%=ObjRs("adi")%> <%=ObjR s("soyadi")%></font></div></td>
<td width="223" style="border: 1px dotted #C0C0C0"><div align="left"><font color="#0066CC" size="1.5" face="Tahoma"> <%=ObjRs("firma")%></font></div></td>
<td width="177" style="border: 1px dotted #C0C0C0"><div align="left"><font color="#0066CC" size="1.5" face="Tahoma"> <%=ObjRs("email")%></font></div></td>
<td width="42" style="border: 1px dotted #C0C0C0"><div align="center">
<p align="center"><font size="2" face="Tahoma"><a href="musteri_detay.asp?id=<%=ObjRs("id")%>"><img border="0" src="img/detay.gif" /></a></font></p>
</div></td>
<td width="24" style="border: 1px dotted #C0C0C0"><div align="center">
<p align="center"><font size="2" face="Tahoma"><a href="musteri_sil.asp?id=<%=ObjRs("id")%>"><img border="0" src="img/sil.gif" /></a></font></p>
</div></td>
</tr>
<%
ObjRs.movenext
next
response.Write "Sayfa: "
for g = 1 to sayfa_sayisi
if g = cint(sayfa ) then
response.write g& " " %><% else
response.Write "<a href=?sayfa=" & g & ">" & g & "</a> "
end if
next
ObjRs.Close:ObjCon_ilet.close
%>
</div>
<tr>
<td> </td>
<tr>
<td> </tr>

</table>

<br />
<a href="banka_ekle.asp"></a><br />
<div align="right"><br />
</div>
<div align="right"></div>
<div align="center"><br />
</div>

ObjRs.pagesize = 2 buradaki 2 her sayfada kaç veri gösterileceğini belirtmekte

yanlış anlama için üzgünüm umarım bu sefer doğru anlamısımdır :s

17-07-2009, 22:38:52

#13

nitro

Eyv. hocam saolun valla

ne özürü, olur böyle şeyler sıcak hava

Tmm oldu. Tek sorun sayfalama üste çıkıyor alıcam şimdi alta

Kolay gelsin.

Hocam :S ben bu sayfalama sayılarını en alta nasıl alabilirmm:S

18-07-2009, 17:04:45

#14

Misafir

nitro adlı üyeden alıntı: mesajı görüntüle

Eyv. hocam saolun valla

ne özürü, olur böyle şeyler sıcak hava

Tmm oldu. Tek sorun sayfalama üste çıkıyor alıcam şimdi alta

Kolay gelsin.
Hocam :S ben bu sayfalama sayılarını en alta nasıl alabilirmm:S

buyrun efendim ;

<% 

Set ObjCon_ilet = Server.CreateObject("ADODB.Connection") 
ObjCon_ilet.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("deneme.mdb") 

%> 

<% 
Set ObjRs=Server.CreateObject("adodb.recordset") 
strSQL="Select * From musteri id order by id desc" 
ObjRs.Open StrSql, ObjCon_ilet, 1, 3 
%>

 <div align="center"> 
   <center> 
    
<table width="713" border="0"> 
  <tr> 
    <td width="20">&nbsp;</td> 
    <td width="201"><div align="center"><font color="#333333" size="2" face="Tahoma">Adı Soyadı </font></div></td> 
    <td width="223"><div align="center"><font color="#333333" size="2" face="Tahoma">Firma Bilgileri </font></div></td> 
    <td width="177"><div align="center"><font color="#333333" size="2" face="Tahoma">Email Adresi </font></div></td> 
    <td width="42"><div align="center"><font color="#333333" size="2" face="Tahoma">Detay</font></div></td> 
    <td width="24"><div align="center"><font color="#333333" size="2" face="Tahoma">Sil</font></div></td> 
    </tr> 

  <div align="center"> 
<tr> 
  <td>   
  <font face="Tahoma" size="2" color="#FFFFFF"> 
<br>

<%
If ObjRs.eof or ObjRs.bof then 
Response.Write "<font face=verdana size=2 color=#ff3300><b><center><br>Kayıtlı musteri yok.</br></center></b></font>" 
Response.end 
end if 
sayfa = Request.QueryString("sayfa" ) 
If sayfa="" Then sayfa=1 
ObjRs.pagesize = 2 
ObjRs.absolutepage = sayfa 
sayfa_sayisi = ObjRs.pagecount 
for i=1 to ObjRs.pagesize 
if ObjRs.eof then 
exit for 
end if 
%> 
  <tr> 
    <td width="20" style="border: 1px dotted #C0C0C0"><div align="center"><img src="img/uye.gif" /></div></td> 
    <td width="201" style="border: 1px dotted #C0C0C0"><div align="left"><font color="#0066CC" size="1.5" face="Tahoma">&nbsp;<%=ObjRs("adi")%>&nbsp;<%=ObjRs("soyadi")%></font></div></td> 
    <td width="223" style="border: 1px dotted #C0C0C0"><div align="left"><font color="#0066CC" size="1.5" face="Tahoma">&nbsp;<%=ObjRs("firma")%></font></div></td> 
    <td width="177" style="border: 1px dotted #C0C0C0"><div align="left"><font color="#0066CC" size="1.5" face="Tahoma">&nbsp;<%=ObjRs("email")%></font></div></td> 
    <td width="42" style="border: 1px dotted #C0C0C0"><div align="center"> 
      <p align="center"><font size="2" face="Tahoma"><a href="musteri_detay.asp?id=<%=ObjRs("id")%>"><img border="0" src="img/detay.gif" /></a></font></p> 
    </div></td> 
    <td width="24" style="border: 1px dotted #C0C0C0"><div align="center"> 
      <p align="center"><font size="2" face="Tahoma"><a href="musteri_sil.asp?id=<%=ObjRs("id")%>"><img border="0" src="img/sil.gif" /></a></font></p> 
    </div>
    
    </td> 
    </tr> 
<%
ObjRs.movenext
next
%>
</div>                       
<tr> 
  <td>
 
  </td> 
<tr> 
  <td>  </tr> 

</table> 
<%
response.Write "Sayfa: " 
for g = 1 to sayfa_sayisi 
if g = cint(sayfa ) then 
response.write g& " " %><% else 
response.Write "<a href=?sayfa=" & g & ">" & g & "</a> " 
end if 
next
ObjRs.Close:ObjCon_ilet.close 
%> 


<br /> 
<a href="banka_ekle.asp"></a><br /> 
<div align="right"><br /> 
</div> 
<div align="right"></div> 
<div align="center"><br /> 
</div>

18-07-2009, 20:57:35

#15

nitro

Çok teşekür ederim hocam. Tam istediğim gibi.

Nasıl teşekür etsem azdır size.

2 haftadır bunu yapamıyordum. sAğolun.