APD Toronto
asked on
Classic ASP Graphs
Hello Experts,
Can any one recomend a simple tool that I can use to generate graphs using Classic ASP. I'm on a dedicated server (Win2003), so I'm able to' install anything
Can any one recomend a simple tool that I can use to generate graphs using Classic ASP. I'm on a dedicated server (Win2003), so I'm able to' install anything
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
This is a code I found in my archive. You can modify to suit your needs.
<%
Function RndBGColor()
Randomize Timer
TheRed = Hex(Int(Rnd * 8) * 16)
If Len(TheRed) = 1 Then
TheRed = CStr("0" & TheRed)
End If
TheGreen = Hex(Int(Rnd * 8) * 16)
If Len(TheGreen) = 1 Then
TheGreen = CStr("0" & TheGreen)
End If
TheBlue = Hex(Int(Rnd * 8) * 16)
If Len(TheBlue) = 1 Then
TheBlue = CStr("0" & TheBlue)
End If
RndBGColor = TheRed & TheGreen & TheBlue
End Function
Function BdrColor(BGColor)
TheRed = Left(BGColor,2)
TheGreen = Mid(BGColor,3,2)
TheBlue = Right(BGColor,2)
TheRed = CInt("&H" & TheRed)
TheGreen = CInt("&H" & TheGreen)
TheBlue = CInt("&H" & TheBlue)
TheRed = Hex(TheRed + 127)
TheGreen = Hex(TheGreen + 127)
TheBlue = Hex(TheBlue + 127)
BdrColor = TheRed & TheGreen & TheBlue
End Function
BaseNum = 0
TotalNum = 0
x = 0
TheColor = "000000"
Response.Write "<table style=" & chr(34) & "width:100%;border-style:none;" & chr(34) & ">" & chr(10)
set Conn = server.CreateObject("ADODB.Connection")
set objRS =server.CreateObject("ADODB.Recordset")
Conn.ConnectionString= "Provider=microsoft.jet.oledb.4.0;Data source=" & server.mappath("Calendar.mdb")
objRs.CursorLocation = 3
Conn.Open
SqlStr = "SELECT WhenVisit AS WkDayNum, " & _
"Count(WhenVisit) AS NumVisits " & _
"FROM PageVisits " & _
"GROUP BY WhenVisit " & _
"ORDER BY WhenVisit"
objRs.Open SqlStr,Conn,3,2
While Not Objrs.EOF
TotalNum = TotalNum + objrs("NumVisits")
If objrs("NumVisits") > BaseNum Then
BaseNum = objrs("NumVisits")
End If
Objrs.MoveNext
Wend
objrs.Close
objrs.Open SqlStr, Conn, 3,2
While Not Objrs.EOF
BGColor = RndBGColor()
ThePerc = FormatNumber((objrs("NumVisits")/TotalNum)*100,2)
TheWidth = FormatNumber((objrs("NumVisits")/BaseNum)*100,0)
Response.Write "<tr>" & chr(10) & _
"<td style=" & chr(34) & "text-align:left;font-size:10pt;padding:3px;" & chr(34) & ">" & chr(10) & _
"<div style=" & chr(34) & "width:" & TheWidth & "%;background-color:#" & BGColor & ";color:#ffffff;font-size:10pt;font-weight:bold;border-style:outset;border-width:2px;border-color:#" & BdrColor(BGColor) & ";padding:3px;" & chr(34) & ">" & chr(10) & _
objrs("WkDayNum") & "<br>" & ThePerc & "%" & chr(10) & _
"</div>" & chr(10) & _
"</td>" & _
"</tr>"
x = x + 1
objrs.MoveNext
Wend
objrs.Close
Set objRS = Nothing
Response.Write "</table>"
%>
sorry, I posted before I saw your post.
I suppose one of those links worked for you.
I suppose one of those links worked for you.
ASKER
Google is EASY. Thanks!
ASKER
I have a date range, say April 11 to April 29, so I need to show sales for each of those 18 days.