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">   ;
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
%>
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">   ;
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
%>