' lookup zip
'do str connect
Session.timeout = 5
If IsObject(Session("blueclawdb_conn")) Then
Set conn = Session("blueclawdb_conn")
Set conn = Server.CreateObject("ADODB.Connection")
Set Session("blueclawdb_conn") = conn
' get parameters from user
stroption = request.querystring("report_choice")
select case stroption
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
Total Sales by Region and Quarter
Total Sales by Sales Representative
<% ' 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 %>
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."
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."
<% Response.write "Copyright 2000-" & year(now) & " Blue Claw Database Design" %>