<%
IP = Request.ServerVariables("REMOTE_ADDR")
sene = cint(Request.Querystring("sene"))
ay = Request.Querystring("ay")
If cint(ay) > 12 or len(ay) =0 Then
ay = month(date)
End If
ay = cint(ay)
If len(Request.Querystring("sene")) =0 Then
sene = year(date)
End If
aay = ay
%>
<%
Set Bag = Server.CreateObject("ADODB.Connection")
Bag.Open bag_dize
%>
<% call deger(bugun_kac, bugun_kacall, buay_kac, buay_kacall, busene_kac, busene_kacall, toplam_kac, toplam_kacall, ort_kac, ort_kacall, baslama_tarihi) %>
|
|
Tekil |
Çoğul |
| Bugün |
: |
<%= sifir(bugun_kac) %> |
<%= sifir(bugun_kacall) %> |
| Toplam |
: |
<%= toplam_kac %> |
<%= toplam_kacall %> |
<%
sub deger(bugun_kac, bugun_kacall, buay_kac, buay_kacall, busene_kac, busene_kacall, toplam_kac, toplam_kacall, ort_kac, ort_kacall, baslama_tarihi)
'*** İSTENİLDİĞİNDE DIŞARI YANSITILABİLİR DEĞERLERİN ÜRETİMİ
Set gun_q = Server.CreateObject("ADODB.Recordset")
Set darbeall_q = Server.CreateObject("ADODB.Recordset")
Set ay_q = Server.CreateObject("ADODB.Recordset")
Set ayall_q = Server.CreateObject("ADODB.Recordset")
Set sene_q = Server.CreateObject("ADODB.Recordset")
Set seneall_q = Server.CreateObject("ADODB.Recordset")
Set top_q = Server.CreateObject("ADODB.Recordset")
Set topall_q = Server.CreateObject("ADODB.Recordset")
Set ort_q = Server.CreateObject("ADODB.Recordset")
Set ortall_q = Server.CreateObject("ADODB.Recordset")
set baslama = bag.execute ("select * from darbeler order by gun_id")
gun_sql = "select sum(darbe) as qdarbe from darbeler where gun = " & bugun & " and ay=" & buay& " and sene=" & busene
ay_sql = "select sum(darbe) as qdarbe from darbeler where ay = " & buay & " and sene=" & busene
ayall_sql = "select sum(darbeall) as qdarbeall from darbeler where ay = " & buay & " and sene=" & busene
sene_sql = "select sum(darbe) as qdarbe from darbeler where sene = " & busene
seneall_sql = "select sum(darbeall) as qdarbeall from darbeler where sene = " & busene
darbeall_sql = "select sum(darbeall) as qdarbeall from darbeler where gun = " & bugun & " and ay=" & buay& " and sene=" & busene
top_sql = "select sum(darbe) as qdarbe from darbeler "
topall_sql = "select sum(darbeall) as qdarbeall from darbeler "
ort_sql = "select avg(darbe) as qdarbe from darbeler "
ortall_sql = "select avg(darbeall) as qdarbeall from darbeler "
If not baslama.eof Then
gun_q.open gun_sql, bag, 1, 3
darbeall_q.open darbeall_sql, bag, 1, 3
ay_q.open ay_sql, bag, 1, 3
ayall_q.open ayall_sql, bag, 1, 3
sene_q.open sene_sql, bag, 1, 3
seneall_q.open seneall_sql, bag, 1, 3
top_q.open top_sql, bag, 1, 3
topall_q.open topall_sql, bag, 1, 3
ort_q.open ort_sql, bag, 1, 3
ortall_q.open ortall_sql, bag, 1, 3
' burada sayfada kullanılabilecek değişkenlere değerler atanıyor
bugun_kac = gun_q("qdarbe")
bugun_kacall = darbeall_q("qdarbeall")
buay_kac = ay_q("qdarbe")
buay_kacall = ayall_q("qdarbeall")
busene_kac = sene_q("qdarbe")
busene_kacall = seneall_q("qdarbeall")
toplam_kac = top_q("qdarbe")
toplam_kacall = topall_q("qdarbeall")
ort_kac = round(ort_q("qdarbe"))
ort_kacall = round(ortall_q("qdarbeall"))
baslama_tarihi = baslama("gun") & " "& aytespit(baslama("ay")) &" " & baslama("sene")
gun_q.Close
darbeall_q.Close
ay_q.Close
ayall_q.Close
sene_q.Close
seneall_q.Close
top_q.Close
topall_q.Close
ort_q.Close
ortall_q.Close
baslama.Close
End If
Set ort_q = Nothing
Set ortall_q = Nothing
Set top_q = Nothing
Set topall_q = Nothing
Set sene_q = Nothing
Set seneall_q = Nothing
Set ayall_q = Nothing
Set ay_q = Nothing
Set gun_q = Nothing
Set darbeall_q = Nothing
Set baslama = Nothing
end sub
%><% function sifir(unsur) %><%
If isnull(unsur) Then
unsur="0"
End If
sifir=unsur
%><% end function %><%
Bag.Close
Set Bag = Nothing
%>