İyinet'e Hoşgeldiniz!

Türkiye'nin En Eski Webmaster Forum'una Hemen Kayıt Olun!

Kayıt Ol!

2 tarih arası verileri listeleme kodları denendi oluyor bakın yapın

ela1196

0
İyinet Üyesi
Katılım
6 Ocak 2011
Mesajlar
52
Reaction score
0
OLDU ARKADASLAR YARDIMCI OLMAK İÇİN BULDUGUM KODU YAZIYORUM BENİM GİBİ ARANIP DURMAYIN :((
BEN COOK ARADIM AMA OLDU YANLIZ VERİ TABANIM ACESS VE TARİH KISMI TARİH SAAT FORMATINDA KISA TARİH OLARAK AYARLI HATIRLATAYIM :)
kırmızıyla yazdım gereken ana kod satırını iyi gunlerde kullanın...
BİDE İLAVE KOD BENDEN SİZE EGER MESELA İKİ TARİH ARASINDA EN YUKSEK MAAŞ ALAN YADA EN YUKSEK PARA ALAN UYELERİ BUYUKTEN KUCUGE SIRALAMANIZ GEREKTİ OZAMAN RENKLİ YAZDIGIMM KOD KISMINI SİLİN BU KODU YAZIN :))
---------------------------------------------------------------------------------------
tarih = request.form("tarih")
SQL="SELECT * FROM puan WHERE tarih>=#12/01/2011# AND tarih<=#31/12/2011# ORDER BY puan DESC"
set mahir = Server.CreateObject("ADODB.Recordset")
mahir.open sql,baglanti,1,3

if not mahir.eof then
İŞTE BUDUR :)
----------------------------------------------------------------------------------------------------------------



<meta http-equiv="Content-Language" **********tr">
<%
Set Baglanti = Server.CreateObject("ADODB.Connection")
Baglanti.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("denemem.mdb")

%>
<div align="center">
<center>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#000000" width="511" height="1" id="AutoNumber1" bgcolor="#FFFFFF">
<tr>
<td width="183" height="1" valign="top" align="center">
<p align="left"><b><font face="Verdana">     &nbsp ;   
Ad-Soyad</font></b></td>
<td width="78" height="1" valign="top" align="center">
<p align="center"><b><font face="Verdana">  </font>
<font face="Verdana" color="#FF0000">konu</font></b></td>
<td width="81" height="1" valign="top">
<p align="center"><b>yazı</b></td>
<td width="169" height="1" valign="top">
<p align="center"><b>giriş tarihi</b></td>
</tr>
</table>
</center>
</div>
<%

tarih1=request.form("tarih1")
tarih2=request.form("tarih2")
%>

<%
tarih = request.form("tarih")

SQL="SELECT * FROM puan WHERE tarih>#12/01/2011# AND tarih<#31/12/2011#"
set mahir = Server.CreateObject("ADODB.Recordset")
mahir.open sql,baglanti,1,3


if not mahir.eof then

syf = Request.QueryString("syf")
if syf="" then
syf=1
end if
%>
<%
If pisi.eof then
Response.Write "<center></center>"
Response.End
End If
%>
<%
pisi.pagesize = 25
pisi.absolutepage = syf
sayfa = pisi.pagecount
for i=1 to pisi.pagesize
if pisi.eof then exit for
%>

<div align="center">
<center>
<table cellpadding="0" cellspacing="0" style="border-left:3px double #C0C0C0; border-bottom:1px double #C0C0C0; border-collapse: collapse; font-family: Verdana; font-size: 8; font-weight: bold; border-right-style:double; border-right-color:#C0C0C0" width="513" height="16" id="AutoNumber2" bgcolor="#FFFFFF">
<tr>
<td width="211" height="16" align="left">
<p><font size="1"><%=pisi("kadi")%></font></td>
<td width="90" height="16" align="left">
<p align="center"><font size="1"><%=pisi("konu")%></font></td>
<td width="97" height="16" align="left">
<p align="center"><font size="1"><%=pisi("yazı")%></font></td>
<td width="107" height="16" align="left">
<p align="center"><font size="1"><%=pisi("tarih")%></font></td>

</td>
</tr>
</table>
</center>
</div>
<%
pisi.movenext
next
%>
<p align="center"><font face="Verdana" size="1">Sayfa:<%
for y=1 to sayfa
if syf=y then
response.write y
else
response.write "<b> <a href=""?syf="&y&""">"&y&"</a></b>"
end if
next
%></font></p>
<%
else
response.redirect "default.asp"
end if
%>
 

Türkiye’nin ilk webmaster forum sitesi iyinet.com'da forum üyeleri tarafından yapılan tüm paylaşımlardan; Türk Ceza Kanunu’nun 20. Maddesinin, 5651 Sayılı Kanununun 4. maddesinin 2. fıkrasına göre, paylaşım yapan üyeler sorumludur.

Backlink ve Tanıtım Yazısı için iletişime geçmek için Skype Adresimiz: .cid.1580508955483fe5

Üst