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

Widgets, Incorporated - Sales Analysis

Select a Report Summary from the drop down list below, then Click the Submit Button



<% ' lookup zip dim rst dim stroption dim SQL dim d '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 ' get parameters from user stroption = request.querystring("report_choice") select case stroption case "0" case "2" sql="select sales_region, dollars from sales_by_region" Set rst = Server.CreateObject("ADODB.Recordset") rst.Open sql, conn, 3, 3 Set Session("ZIP_SHORT_rst") = rst %>

Total Sales By Region

<% do while not rst.eof if len(rst("dollars"))>3 then d="$" & mid(rst("dollars"),1,len(rst("dollars"))-3) & "," & mid(rst("dollars"),len(rst("dollars"))-2,len(rst("dollars"))) else d="$" & rst("dollars") end if response.write "" rst.movenext loop %>
Region Sales
"%><% response.write rst("sales_region") & ""%><% response.write d & "
<% case "3" sql="select sales_region, quarter, dollars from sales_by_region_quarter" Set rst = Server.CreateObject("ADODB.Recordset") rst.Open sql, conn, 3, 3 Set Session("ZIP_SHORT_rst") = rst %>

Total Sales by Region and Quarter

<% do while not rst.eof if len(rst("dollars"))>3 then d="$" & mid(rst("dollars"),1,len(rst("dollars"))-3) & "," & mid(rst("dollars"),len(rst("dollars"))-2,len(rst("dollars"))) else d="$" & rst("dollars") end if response.write "" rst.movenext loop %>
Region Quarter Sales
"%><% response.write rst("sales_region") & ""%><% response.write rst("quarter") & ""%><% response.write d & "
<% case "4" sql="select sales_rep, quarter, dollars from sales_by_rep" Set rst = Server.CreateObject("ADODB.Recordset") rst.Open sql, conn, 3, 3 Set Session("ZIP_SHORT_rst") = rst %>

Total Sales by Sales Representative

<% do while not rst.eof if len(rst("dollars"))>3 then d="$" & mid(rst("dollars"),1,len(rst("dollars"))-3) & "," & mid(rst("dollars"),len(rst("dollars"))-2,len(rst("dollars"))) else d="$" & rst("dollars") end if response.write "" rst.movenext loop %>
Rep Quarter Sales
"%><% response.write rst("sales_rep") & ""%><% response.write rst("quarter") & ""%><% response.write d & "
<% end select %>

Our Access / Active Server Page Examples:
ASP Bar Chart with Access Database
Zip Code Lookup ASP Example
Sales Rollup by Region ASP Example  (you are here)

Back to Active Server Page Home Page

Note: 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.



<% ' next is for adsense ads and dynamic code 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 * 8) + 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 response.write "" %>



Contact Information

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