Programalama > ASP


Ort. 0
Puan ver:
<%  
dk_g = 4 
db = Server.MapPath("forums.mdb" )  
Set objCon = Server.CreateObject("ADODB.Connection" )  
objCon.Open ("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & db)  

Session.LCID = 1033  
tarih = DateAdd("n" , -1 * dk_g, Now())  
Set objList = Server.CreateObject("ADODB.RecordSet" )  
objList.Open "SELECT * FROM member WHERE son_giris >= #" &tarih&"# ORDER BY son_giris DESC" , objCon, 3, 3  
Session.LCID = 2048  

If objList.Eof Then ' kayit yoksa 0 degerini veriyos   
uNumber = "0"   
Else ' kayit varsa kaç tane oldugunu aliyoruz 
uNumber = objList.RecordCount  
End If  

For I = 1 To uNumber  ' döngüyü baslatiyos 

Response.Write "<b>" & objList("kulad" ) &"</b>, "   

objList.Movenext  

Next  
Response.Write " (" & uNumber &") "   
%> 



Yorumlar                 Yorum Yaz
Bu hazır kod'a ilk yorumu siz yapın!
KATEGORİLER
ASP - 240
ASP.NET - 24
C# - 75
C++ - 174
CGI - 8
DELPHI - 247
FLASH - 49
HTML - 536
PASCAL - 246
PERL - 11
PHP - 160
WML - 9
XML - 2
Copyright © 2002 - 2024 Hazır Kod - Tüm Hakları Saklıdır.
Siteden yararlanırken gizlilik ilkelerini okumanızı tavsiye ederiz.
hazirkod.com bir İSOBİL projesidir.