Bugün kaç kişi girdi sayfana öğren

3 dosyadan yapalım sunu..

ornek olarak kod veriorum kendıne gore degistir..

gunluk.asp
<!--#include file="hesap.asp"-->

<h4 align="left">Günlük Veriler</h4>

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

Set Kayit = Baglanti.Execute("Select * from sayac order by id desc")

sayi = 0
Do while not sayi = 1
if Kayit.eof then
exit do
else
%>
<table width="300" border="0" align="center" cellpadding="1" cellspacing="0">
<tr>
<td width="50"><%=Kayit("tarih")%></td>
<td width="50" align="right"><font color="#6194F8"><%=Kayit("tekil")%></font></td>
<td width="182"><img src="mavi.gif" height="10" width="<%=Kayit("tekil_yuzde")%>%"></td>
</tr>
<tr>
<td><!--#include file="gun_adi.asp"--></td>
<td align="right"><font color="#FFBA00"><%=Kayit("cogul")%></font></td>
<td><img src="turuncu.gif" height="10" width="<%=Kayit("cogul_yuzde")%>%"></td>
</tr>
</table><br>
<%
sayi=sayi+1
Kayit.MoveNext
end if
loop
%>




---------------------------------------------------------------




hesap.asp
<%
Set Baglanti = Server.CreateObject("ADODB.Connection")
Baglanti.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("veri.mdb")

Set Kayit = Baglanti.Execute("Select * from sayac")

maksimum=Kayit("tekil")

Do while not Kayit.eof

if maksimum<Kayit("tekil") then
maksimum=Kayit("tekil")
end if

if maksimum<Kayit("cogul") then
maksimum=Kayit("cogul")
end if

Kayit.MoveNext
loop
%>


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

Set Kayit = Server.CreateObject ("ADODB.RecordSet")
Sql_Komutu = "select * from sayac"
Kayit.Open Sql_Komutu, Baglanti, 1, 3

Do while not Kayit.eof

Kayit("tekil_yuzde")=((100/maksimum)*Kayit("tekil")) mod 101
Kayit("cogul_yuzde")=((100/maksimum)*Kayit("cogul")) mod 101

Kayit.Update
Kayit.MoveNext
loop
%>


-----------------------------------------------------------------




gun_adi.asp
<%
Gun = DatePart("w", Kayit("tarih"))

SELECT CASE Gun
Case "1" Gun_adi = "Pazar"
Case "2" Gun_adi = "Pazartesi"
Case "3" Gun_adi = "Sali"
Case "4" Gun_adi = "Çarsamba"
Case "5" Gun_adi = "Persembe"
Case "6" Gun_adi = "Cuma"
Case "7" Gun_adi = "Cumartesi"
END SELECT

Response.Write Gun_adi
%>
:emo1::emo1::emo1::emo1:

EMEĞE SAYGI