Solved

Classic ASP Graphs

Posted on 2012-04-11
5
263 Views
Last Modified: 2012-04-11
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
0
Comment
Question by:APD_Toronto
  • 3
  • 2
5 Comments
 
LVL 28

Accepted Solution

by:
sammySeltzer earned 500 total points
ID: 37834787
You can try the following:

Google Charts
https://developers.google.com/chart/

OR this:

http://community.spiceworks.com/scripts/show/1058-two-series-bar-chart-in-classic-asp-vbscript


You can also look into generating graphs using SVG


What kind of graph are you looking for anyway?

I did one years ago.

I can dig through my archives and see if I can find them.
0
 

Author Comment

by:APD_Toronto
ID: 37834822
Nothing to complex,.  

I have a date range, say April 11 to April 29, so I need to show sales for each of those 18 days.
0
 
LVL 28

Expert Comment

by:sammySeltzer
ID: 37835648
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>"



           %>

Open in new window

0
 
LVL 28

Expert Comment

by:sammySeltzer
ID: 37835651
sorry, I posted before I saw your post.

I suppose one of those links worked for you.
0
 

Author Comment

by:APD_Toronto
ID: 37835655
Google is EASY.  Thanks!
0

Featured Post

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Title # Comments Views Activity
C# page opens in new window 3 55
syntax error on ASP ? 6 43
replace quotes with UTF-8 character 38 86
Field that has HTML displays the code instead of the text in html 16 64
I have helped a lot of people on EE with their coding sources and have enjoyed near about every minute of it. Sometimes it can get a little tedious but it is always a challenge and the one thing that I always say is:  The Exchange of information …
I was asked about the differences between classic ASP and ASP.NET, so let me put them down here, for reference: Let's make the introductions... Classic ASP was launched by Microsoft in 1998 and dynamically generate web pages upon user interact…
Video by: Mark
This lesson goes over how to construct ordered and unordered lists and how to create hyperlinks.
Both in life and business – not all partnerships are created equal. As the demand for cloud services increases, so do the number of self-proclaimed cloud partners. Asking the right questions up front in the partnership, will enable both parties …

863 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

19 Experts available now in Live!

Get 1:1 Help Now