Ja, das war die Basis! *super*
-----Urspr�ngliche Nachricht----- Von: Buchner Gerhard [mailto:[EMAIL PROTECTED]] Gesendet: Donnerstag, 23. J�nner 2003 12:09 An: '[EMAIL PROTECTED]' Betreff: [Coffeehouse] AW: [Coffeehouse] Meine h�bsches Diagramm - hat das noch wer? > 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 ~~~~~~~~~~~~~~~~~~~~~~~~~~~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
