Sales Volume by Representative
Move mouse over bars to see actual values.
Click on a bar to view and UPDATE sales details for a Sales Representative.
<% dim height(20) dim xlabel(20) dim maxdollars dim j dim ylabel(20) dim tlabel(20) dim dollars(20) dim irec dim param 'do str connect Session.timeout = 5 If IsObject(Session("blueclawdb_conn")) Then Set conn = Session("blueclawdb_conn") Else Set conn = Server.CreateObject("ADODB.Connection") conn.open "BLUECLAWDB","Admin","" Set Session("blueclawdb_conn") = conn End If sql = "select max_dollars from max_dollars" Set rst = Server.CreateObject("ADODB.Recordset") rst.Open sql, conn, 3, 3 Set Session("ZIP_SHORT_rst") = rst maxdollars=rst("max_dollars") sql = "select sales_rep, dollars from sales_by_rep_chart" Set rst = Server.CreateObject("ADODB.Recordset") rst.Open sql, conn, 3, 3 Set Session("ZIP_SHORT_rst") = rst 'load values i=0 do until rst.eof i=i+1 xlabel(i)=rst("sales_rep") dollars(i)=rst("dollars") rst.movenext loop irec=i ' ' make y labels first load value ' for i = 0 to 5 tlabel(i)=ROUND((MAXDOLLARS * ((100-((I*2)*10))/100))) next ' ' now format the labels ' for i = 0 to 5 if len(tlabel(i))>3 then ylabel(i)="$" & mid(tlabel(i),1,len(tlabel(i))-3) & "," & mid(tlabel(i),len(tlabel(i))-2,len(tlabel(i))) else ylabel(i)="$" & tlabel(i) end if next ' rst.close sql = "select bar_height from sales_by_rep_bar_height" Set rst = Server.CreateObject("ADODB.Recordset") rst.Open sql, conn, 3, 3 Set Session("ZIP_SHORT_rst") = rst ' ' do bar heights ' i=0 do until rst.eof i=i+1 height(i)=rst("bar_height") rst.movenext loop ' rst.close 'conn.close %>
View the ASP source code for this page
Note: This chart is dynamically built based upon queries of the database. This Active Server Page is retrieving information from a Microsoft Access database located on our NT Domain Server. The database could reside on any SQL compliant source such as Oracle, Ingres...etc.<% Randomize rnum = Int(Rnd * 3) + 1 iphrase=rnum rnum=1 if rnum= 1 then response.write "
" end if if rnum=2 then response.write "
" end if if rnum=3 then response.write "
" end if %>
<% randomize iphrase = Int(Rnd * 7) + 1 response.write "" if iphrase=1 then response.write "We have dozens of downloadable Access databases for you to learn and examine." end if if iphrase =2 then response.write "Blue Claw Database Design is your premier source of Microsoft Access Programming and database support." end if if iphrase =3 then response.write "Our Access Programmers work with clients all over the world through the Internet. Let us help you today: contact page" end if if iphrase = 4 then response.write "Since 2000 we have developed 100's of databases for clients throughout the world. See a sample of them at our recent clients page." end if if iphrase = 5 then response.write "Our programming team has 15 members containing a wide variety of technical database knowledge and programming experience. We are kind of like Allstate Insurance - 'we have seen it before'." end if if iphrase =6 then response.write "Microsoft Access is a fully capable database and it's primary limitations is the number of concurrent users it will support. The number of users supported depends on the transaction load and the amount of data but generally we recommend a limit of 10 to 15 users." end if if iphrase =7 then response.write "Are you just starting out on your quest for a database? Need some advice or someone to bounce ideas off of? We are here and will be happy to chat with you on the phone and discuss options to your situation. Visit our contact page and give us a call." end if %>
iphrase = Int(Rnd * 9) + 1
if iphrase = 1 then
response.write "We also have 100's of programming examples from simple to complex. You can jump to our Access tutorials here. Visit our contact page if you have comments or questions."
If iphrase = 2 then
response.write "We also offer Microsoft SQL Server / Azure / Cloud database development through our programmer partnership with IT Impact. "
if iphrase =3 then
response.write "Do you and your clients need access to data on the Internet? We can create a secure system to match your requirements perfectly."
if iphrase = 4 then
response.write "Did you know you don't need to move to SQL/Server to run and manage you Access database on the net. There are many alternative solutions. Among them are Amazon's AWS cloud services and various hosting services in nearly every state."
if iphrase =5 then
response.write "We create databases large and small. Some of our databases help run entire small businesses including travel agencies and airline reservation systems. We also handle unique businesses such as fly rod manufacturing. Did you know there are 11 steps in the making of a fly rod?"
if iphrase =6 then
response.write "Are you looking for an MS Access template database? We have many for sale in our Access Template and Examples Software section."
if iphrase =7 then
response.write "Did you know that most template databases do not do exactly what you need done? We can create a custom template that fits your needs exactly for a small to medium Access database at a reduced cost. See our contact page and call Joseph Dean for more info."
if iphrase =8 then
response.write "We have expert enterprise-level database development capabilities for cloud/web-based databases through our partnership with IT Impact."
if iphrase =9 then
response.write "15 years ago we were putting Access database on the web using Active Server Page programming language for the user interface. See a few examples of old-style Access on the Internet."
<% Response.write "Copyright 2000-" & year(now) & " Blue Claw Database Design" %>