Home  Fees/Services  Access Examples  Tutorials  Access Download  Articles  Search  Contact  Privacy  Links
Access with ASP on the Internet

 Home > Articles <% response.write "> " & crumb %>

 

Disaster Recovery Plan
Access Forms Help
MS Access Versus
Replication of Database
Software Risk Assessment
Choose a Consultant
Faster Access Database
Access Web Database
ODBC Access Examples
Microsoft Access, Why?
Repair Corrupted Table
Access to QuickBooks

Image Gallery

 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 %> <% FOR I = 0 TO 4 if i = 0 then %> <% end if IF I = 0 THEN FOR J = 1 TO IREC %> <% NEXT END IF %> <% NEXT FOR J = 0 TO IREC %> <% NEXT 'set conn = nothing 'set rst = nothing %>

Sales

<%RESPONSE.WRITE ylabel(i)%>

">" border="0" width="52">

<%RESPONSE.WRITE ylabel(i+1) %>

<%Response.write xlabel(j)%>


Sales Representatives

View the ASP source code for this page

Our Access / Active Server Page Examples:
ASP Bar Chart with Access Database  (you are here)

Zip Code Lookup ASP Example

Sales Rollup by Region ASP Example

Back to Active Server Page Home 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 %>

<% randomize 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." end if If iphrase = 2 then response.write "We also offer Microsoft SQL Server / Azure / Cloud database development through our programmer partnership with IT Impact. " end if 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." end if 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." end if 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?" end if 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." end if 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." end if 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." end if 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." end if response.write "" %>




Contact Information

<% Response.write "Copyright 2000-" & year(now) & " Blue Claw Database Design" %>