> Ich habe vor einer ziemlchen Weile den Sourcode von einem
> Diagramm, das ich mit ASPImage erstelle und mit Daten aus
> einem Recordset bef�lle und damit ein h�bsches Balkendiagramm baue?
>
> Ich habe den Code n�mlich dummerweise verschmissen oder so....
Meinst Du zuf�llig den?
=== CUT ===
<!--#include file="inc/div_func.asp"-->
<% hmax=1
%>
<html>
<head>
<title>Statistik</title>
</head>
<body bgcolor=white>
<center>
<%
Set Image = Server.CreateObject("AspImage.Image")
Image.AntiAliasText = True
Image.MaxX = 650
Image.MaxY = 200
Image.GradientTwoWay 16771754, 16771754, 0, 1
Image.BackgroundColor = vbblack
Image.FrameRect 5, 5, Image.MaxX - 5, Image.MaxY -18
Image.FontColor = vbBlack
Image.Italic = False
Image.Bold = False
Image.FontName = "Arial"
Image.FontSize = 7
Image.PadSize = 10
for i=1 to 24
strSQL = "SELECT COUNT(*) AS C FROM dbo.log_Session WHERE (Start >
CONVERT(DATETIME, '2001-08-30 " strSQL = strSQL &
right("00"&i-1,2)&":00:00', 102)) AND (Start < CONVERT(DATETIME, '2001-08-30
" strSQL = strSQL & right("00"&i-1,2)&":59:59', 102))"
Set rs1 = Server.CreateObject("ADODB.Recordset")
rs1.open replace(strSQL,"2001-08-30",dt),strConn
h = clng("0"&RS1("C"))
if hmax < h then hmax = h
rs1.close
next
for i=1 to 24
Image.BackgroundColor = vbGreen
strSQL = "SELECT COUNT(*) AS C FROM dbo.log_Session WHERE (Start >
CONVERT(DATETIME, '2001-08-30 " strSQL = strSQL &
right("00"&i-1,2)&":00:00', 102)) AND (Start < CONVERT(DATETIME, '2001-08-30
" strSQL = strSQL & right("00"&i-1,2)&":59:59', 102))"
Set rs1 = Server.CreateObject("ADODB.Recordset")
rem response.write strSQL
rs1.open replace(strSQL,"2001-08-30",dt),strConn
h = clng("0"&RS1("C"))
rs1.close
wert = h/hmax*140
h2 = 170 - wert
Image.Rectangle (i*25) , 170, i*25+22, h2
out = i-1 & "-"&i
Image.TextOut out, i*25-10, 160, false
if h > 0 then
Image.TextOut h, i*25-2, h2-20, false
end if
next
Image.Italic = False
Image.FontColor = vbRed
Image.PadSize = 0
Image.FontSize = 10
Image.Bold = True
strLabel = "Besucher heute - Stand "&now
Image.TextOut strLabel, (Image.MaxX / 2) - (Image.TextWidth(strLabel) /
2), Image.MaxY - 18, false
Image.FileName = "C:\inetpub\wwwroot\datotal neu\datotal\Dias\txtz2.JPG"
Image.SaveImage
Response.Write "<img src=""/datotal-neu/dias/txtz2.jpg""><br><br><br>"
Set Image = nothing
%>
</center>
</body>
</html>
=== CUT ===
Kostet einen Kasten Bier ;-)
Ciao
Buchi
~~~~~~~~~~~~~~~~~~~~~~~~~~~sponsored by United Planet~~~~~~~~~~~~~~~~~
Kaffeepause im United Planet Communityserver ...
http://www.intrexx.com/communityserver
_______________________________________________
Coffeehouse mailing list
[EMAIL PROTECTED]
http://www.glengamoi.com/mailman/listinfo/coffeehouse
