<% Dim CalendarRows Dim Style_ASPRows, Style_StaticRows Dim nMonth, nMonthStr, MonthArray If Request.Form.Count Then AddTourDate End If CalendarRows = GetTourRowsHTML() If CalendarRows = "" Then Style_StaticRows = " style=""display:block""" Else Style_StaticRows = " style=""display:none""" End If MonthArray = Array("January", "February", "March", "April", "May", "June", "July", "August", _ "September", "October", "November", "December") nMonth = Month(Now) Mod 12 ' 0 based nMonthStr = MonthArray(nMonth) nMonth = nMonth + 1 Sub AddTourDate Dim dbConn, strSQL, lngRecs On Error Resume Next Set dbConn = GetConnection() ShowADOErrors dbConn strSQL = "INSERT INTO Tour VALUES (" strSQL = strSQL & "'" & Session.SessionID & "'," strSQL = strSQL & "'" & SQLEncode(Request.Form("Month")) & "'," strSQL = strSQL & "'" & SQLEncode(Request.Form("Day")) & "'," strSQL = strSQL & "'" & SQLEncode(Request.Form("StartTime")) & "'," strSQL = strSQL & "'" & SQLEncode(Request.Form("Venue")) & "'," strSQL = strSQL & "'" & SQLEncode(Request.Form("StreetAddress")) & "'," strSQL = strSQL & "'" & SQLEncode(Request.Form("City")) & "'," strSQL = strSQL & "'" & SQLEncode(Request.Form("State")) & "'," strSQL = strSQL & "'" & SQLEncode(Request.Form("VenueLink")) & "')" dbConn.Execute strSQL, lngRecs, adCmdText + adExecuteNoRecords ShowADOErrors dbConn dbConn.Close Set dbConn = Nothing End Sub Function GetTourRowsHTML Dim dbConn, rs, HTML, fArray, field, cellContents Dim temp, pos On Error Resume Next fArray = Array("Day", "Venue", "StreetAddress", "City", "StartTime") Set dbConn = GetConnection() ShowADOErrors dbConn Set rs = dbConn.Execute("SELECT * FROM Tour WHERE BandId = '" & Session.SessionID & "' ORDER BY Day, StartTime") ShowADOErrors dbConn If Not rs.EOF Then While Not rs.EOF HTML = HTML & "" & vbCrLf HTML = HTML & "" For Each field In fArray Select Case field Case "City" cellContents = rs.Fields.Item("City").Value & ", " & rs.Fields.Item("State").Value Case "StartTime" temp = rs.Fields.Item(field).Value pos = InStrRev(temp, ":") cellContents = Mid(temp, 1, pos-1) & Mid(temp, pos+3) Case Else venueLink = rs.Fields.Item("VenueLink") If field = "Venue" And venueLink <> "" Then cellContents = "" & rs.Fields.Item(field).Value & "" Else cellContents = rs.Fields.Item(field).Value End If End Select HTML = HTML & "" & cellContents & "" Next HTML = HTML & "" rs.MoveNext Wend HTML = HTML & " " & vbCrLf End If dbConn.Close Set dbConn = Nothing GetTourRowsHTML = HTML End Function %> Band Marketing Today: Tour Calendar


Add Some PIZAZZ To Your Band's Website!

> > > > > > > > > > > <% Response.Write CalendarRows %>

A database-driven, show calendar, modifiable right over the web!

Sound complicated? Well, it isn't.

All you need is a computer, an Internet connection, a browser, your own unique user name and password, and if you can type, you can update your show calendar!

All you'll have to do will be to go to www.yourdomain.com/control, enter your username and password, type in your new dates, venues, starting times, addresses, cities, states, and telephone numbers, hit submit, and your new entries will go directly to the database and automatically appear on your calendar page.

It's as simple as that!

Well, how much does it cost?

Absolutely nothing - if you move your hosting to our servers so we'll be able to
make the database work without a hitch.

So, how much does it cost to host our site with you?

Click here for our hosting payment plans:

So, how much does it cost if we don't host our site with you and what are the requirements for the Calendar to work on the server we have now?

The charge is only $125.00 to incorporate the Calendar into your existing site on the server you now have.

The only requirement is that the server is Windows based, namely, Windows NT, Windows 2000, or Microsoft.net. The calendar will not work on either Unix or Linux servers.

 

How it Works!

All you'll have to do is fill out a form like the following, hit submit, and your on-line Tour Calendar will simply build itself!
  
Month: 
  
Day: 
  
Starting Time: 
  
Venue: 
  
Street Address: 
  
City: 
  
State: 
  
Venue Link: http://www.
  
 
 
 
Now here's what it will look like:
The program will also allow you to choose your own colors.
 
<% =nMonthStr %> :
  
Date
Venue

Address
City, State
Time
  
2
Joes Bar
678 Bissonnet
Houston, TX
9:00 PM
 
5
Ricks Place
2840 Nasa Rd. 1
Seabrook, TX
10:00 PM
 
9
Sams Bar
674 Richmond
Houston, TX
8:00 PM
 
10
Music Shack
2607 Hwy 6
Sugar Land, TX
10:00 PM
 
13
Bills Music Hall
6207 Louisiana
Houston, TX
8:30 PM
 
306 Hawthorne Street, Suite 1
Houston, Texas 77006

Phone: (713) 526-6874
Toll Free: 1-800-800-6352
Fax: (713) 526-2221

E-mail: info@bandmarketingtoday.com
  
© 2002 All contents are the property of Around Houston / Artistic Video Productions Protected
by the copyright laws of the United States of America. All rights reserved