<!-- #include file="db_inc.asp" -->
<%
	Dim CalendarHeader, CalendarRows
	Dim Style_ClickForEdit, Style_HowToEdit, Style_HowToEditTop		
	Dim Style_AddDate, Style_EditDate		
	Dim nMonth, nMonthStr, MonthArray, bLoggedIn
	
	bLoggedIn = IsLoggedIn()
	
	If bLoggedIn Then
		Style_ClickForEdit = " style=""display:none"""
		Style_HowToEdit = " style=""display:block"""
		Style_HowToEditTop = " style=""display:block"""
	Else
		Style_ClickForEdit = " style=""display:block"""
		Style_HowToEdit = " style=""display:none"""
	End If

	Style_AddDate = " style=""display:block"""
	Style_EditDate = " style=""display:none"""

	Select Case Request.Form("action")
		Case "Add"		AddTourDate
		Case "Edit"     If Request.Form("Go") Then
							EditTourDate
						Else
							SelectTourDate
							Style_AddDate = " style=""display:none"""
							Style_EditDate = " style=""display:block"""
							Style_HowToEditTop = " style=""display:none"""
						End If
		Case "Delete"	DeleteTourDate
	End Select

	CalendarHeader = GetTableHeader()
	CalendarRows = GetTourRowsHTML()			
	
	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

' --------------------------------------------- Check Login Status ---------------------------------------------
Function IsLoggedIn
	' makes logging in unnecessary
	IsLoggedIn = True

''''''''''''''''''''''''''''''''''''''''''	
'	If Session("UserName") = "demo" Then
'		IsLoggedIn = True
'	Else
'		IsLoggedIn = False
'	End If
''''''''''''''''''''''''''''''''''''''''''
End Function
		
' ------------------------------- Insert a new tour date into the calendar -------------------------------------
Function GetStartTime
	GetStartTime = Request.Form("StartHour") & ":" & Request.Form("StartMin") & " " & Request.Form("AMPM")
End Function 

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("MonthField")) & "',"
	strSQL = strSQL & "'" & SQLEncode(Request.Form("DayField")) & "',"
	strSQL = strSQL & "'" & SQLEncode(GetStartTime()) & "',"
	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

' ------------------------------------ Get the info for a tour date in the database -----------------------------------
Sub SelectTourDate
	Dim strSQL, rs, field
	Dim tempArray1, tempArray2
	
	strSQL = "SELECT * From Tour WHERE BandId = '" & Request.Form("BandId") & "' AND " & _
									  "MonthField= " & Request.Form("MonthField") & " AND " & _
									  "DayField = " & Request.Form("DayField") & " AND " & _
									  "StartTime = CDate('" & Request.Form("StartTime") & "')"

	' Query the database
	Set dbConn = GetConnection()
	ShowADOErrors dbConn
	Set rs = dbConn.Execute(strSQL)
	ShowADOErrors dbConn

	' Save the row in the session variable
	If Not rs.EOF Then
		For Each field In rs.Fields
			Session("fld_" & field.Name) = field.Value
			If field.Name = "StartTime" Then
				tempArray1 = Split(field.Value, " ")
				Session("fld_AMPM") = tempArray1(1)

				tempArray2 = Split(tempArray1(0), ":")
				Session("fld_StartHour") = tempArray2(0)
				Session("fld_StartMin") = tempArray2(1)
			End If
		Next
	End If
	
	Set rs = Nothing
	dbConn.Close
	Set dbConn = Nothing
End Sub

' ------------------------------------ Edit a tour date in the database -----------------------------------
Sub EditTourDate
	Dim strSQL, field, strTime
	
	strSQL = "UPDATE Tour SET "
	strSQL = strSQL & "MonthField='" & SQLEncode(Request.Form("MonthField"))  & "', "
	strSQL = strSQL & "DayField='" & SQLEncode(Request.Form("DayField"))  & "', "
	strSQL = strSQL & "StartTime='" & SQLEncode(GetStartTime()) & "', "
	strSQL = strSQL & "Venue='" & SQLEncode(Request.Form("Venue"))  & "', "
	strSQL = strSQL & "StreetAddress='" & SQLEncode(Request.Form("StreetAddress"))  & "', "
	strSQL = strSQL & "City='" & SQLEncode(Request.Form("City"))  & "', "
	strSQL = strSQL & "State='" & SQLEncode(Request.Form("State"))  & "', "
	strSQL = strSQL & "VenueLink='" & SQLEncode(Request.Form("VenueLink"))  & "'"
	strSQL = strSQL & " WHERE BandId='" & Request.Form("old_BandId") & "' AND " & _
							  "MonthField = " & Request.Form("old_MonthField") & " AND " & _
							  "DayField = " & Request.Form("old_DayField") & " AND " & _
							  "StartTime = CDate('" & Request.Form("old_StartTime") & "')"

	' Query the database
	Set dbConn = GetConnection()
	ShowADOErrors dbConn
	
	dbConn.Execute(strSQL)
	ShowADOErrors dbConn

	dbConn.Close
	Set dbConn = Nothing
End Sub

' ----------------------------------------- Delete a tour date from the database ---------------------------------
Sub DeleteTourDate
	Dim strSQL
	strSQL = "DELETE From Tour WHERE BandId = '" & Request.Form("BandId") & "' AND " & _
									  "MonthField= " & Request.Form("MonthField") & " AND " & _
									  "DayField = " & Request.Form("DayField") & " AND " & _
									  "StartTime = CDate('" & Request.Form("StartTime") & "')"

	' Send the delete query to the database
	Set dbConn = GetConnection()
	ShowADOErrors dbConn
	Set rs = dbConn.Execute(strSQL)
	ShowADOErrors dbConn

	dbConn.Close
	Set dbConn = Nothing
End Sub

' ------------------------------------------------ Lookup state name ---------------------------------------------
Function LookupState(code)
	Select Case code
	   Case "AL"     LookupState = "Alabama"
	   Case "AK"     LookupState = "Alaska"
	   Case "AZ"     LookupState = "Arizona"
	   Case "AR"     LookupState = "Arkansas"
	   Case "CA"     LookupState = "California"
	   Case "CO"     LookupState = "Colorado"
	   Case "CT"     LookupState = "Connecticut"
	   Case "DE"     LookupState = "Delaware"
	   Case "DC"     LookupState = "District of Columbia"
	   Case "FL"     LookupState = "Florida"
	   Case "GA"     LookupState = "Georgia"
	   Case "GU"     LookupState = "Guam"
	   Case "HI"     LookupState = "Hawaii"
	   Case "ID"     LookupState = "Idaho"
	   Case "IL"     LookupState = "Illinois"
	   Case "IN"     LookupState = "Indiana"
	   Case "IA"     LookupState = "Iowa"
	   Case "KS"     LookupState = "Kansas"
	   Case "KY"     LookupState = "Kentucky"
	   Case "LA"     LookupState = "Louisiana"
	   Case "ME"     LookupState = "Maine"
	   Case "MD"     LookupState = "Maryland"
	   Case "MA"     LookupState = "Massachusetts"
	   Case "MI"     LookupState = "Michigan"
	   Case "MN"     LookupState = "Minnesota"
	   Case "MS"     LookupState = "Mississippi"
	   Case "MO"     LookupState = "Missouri"
	   Case "MT"     LookupState = "Montana"
	   Case "NE"     LookupState = "Nebraska"
	   Case "NV"     LookupState = "Nevada"
	   Case "NH"     LookupState = "New Hampshire"
	   Case "NJ"     LookupState = "New Jersey"
	   Case "NM"     LookupState = "New Mexico"
	   Case "NY"     LookupState = "New York"
	   Case "NC"     LookupState = "North Carolina"
	   Case "ND"     LookupState = "North Dakota"
	   Case "OH"     LookupState = "Ohio"
	   Case "OK"     LookupState = "Oklahoma"
	   Case "OR"     LookupState = "Oregon"
	   Case "PA"     LookupState = "Pennsylvania"
	   Case "RI"     LookupState = "Rhode Island"
	   Case "SC"     LookupState = "South Carolina"
	   Case "SD"     LookupState = "South Dakota"
	   Case "TN"     LookupState = "Tennessee"
	   Case "TX"     LookupState = "Texas"
	   Case "UT"     LookupState = "Utah"
	   Case "VT"     LookupState = "Vermont"
	   Case "VA"     LookupState = "Virginia"
	   Case "WA"     LookupState = "Washington"
	   Case "WV"     LookupState = "West Virginia"
	   Case "WI"     LookupState = "Wisconsin"
	   Case "WY"     LookupState = "Wyoming"
	   Case Else     LookupState = ""
	End Select
End Function

' --------------------------------------------- HTML table header rows -------------------------------------------
Function GetTableHeader
GetTableHeader = "<!-- Begin table header -->" & _
				"<tr valign=""top"" bgcolor=""#AB02FD"">" & _
                "<td width=""6%"" class=""pageon"" height=""12"">" & _
				"<div align=""center"">Date</div>" & _
				"</td>" & _
				"<td width=""19%"" class=""pageon"" height=""12"">" & _ 
				"<div align=""center"">Venue</div>" & _
				"</td>" & _
				"<td width=""21%"" height=""12"">" & _ 
				"<div align=""center"">" & _ 
				"<p class=""pageon"">Address</p>" & _
				"</div>" & _
				"</td>" & _
				"<td width=""18%"" height=""12"" class=""pageon"">" & _ 
				"<div align=""center"">City, State</div>" & _
				"</td>" & _
				"<td width=""13%"" height=""12"" class=""pageon"">" & _ 
				"<div align=""center"">Time</div>" & _
				"</td>"
If bLoggedIn Then
	GetTableHeader = GetTableHeader & "<td width=""13%"" height=""12"" class=""pageon"" align=""center"">Action</td>"
End If

GetTableHeader = GetTableHeader & "</tr>" & "<!-- End table header -->"			
End Function

' ------------------------------------ Write the static row Edit/Delete buttons -----------------------------------
Sub WriteRowButtons
	If bLoggedIn Then
		Response.Write "<td width=""13%"" class=""text12"" height=""14"" align=center>" & _
						"<input type=button value=""Edit"">" & _
						"<input type=button value=""Delete"">" & _
						"</td>"
	End If
End Sub

' ------------------------------- Query the db for the tour dates and display -------------------------------------
Function GetTourRowsHTML
	Dim dbConn, rs, HTML, fArray, field, cellContents
	Dim temp, pos, bLoggedIn, strJS1, strJS2
	
'''	On Error Resume Next

	fArray = Array("DayField", "Venue", "StreetAddress", "City", "StartTime")
	bLoggedIn = IsLoggedIn()
	
	Set dbConn = GetConnection()
	ShowADOErrors dbConn

	Set rs = dbConn.Execute("SELECT * FROM Tour WHERE BandId = '" & Session.SessionID & "' ORDER BY DayField, StartTime")
	ShowADOErrors dbConn

	If rs.EOF Then		
		HTML = "<tr class=blankrow><td colspan=6 height=200 align=center class=text12>Your tour calendar is empty.  Please enter a tour date <a href=""#form1"">above.</a></td></tr>"
	Else
		HTML = HTML & "<form name=""form2"" method=""post"" action=""tour.asp"">"
		HTML = HTML & "<input type=hidden name='BandId' value='" & rs.Fields.Item("BandId") & "'>"
		HTML = HTML & "<input type=hidden name='MonthField' value='" & rs.Fields.Item("MonthField") & "'>"
		HTML = HTML & "<input type=hidden name='DayField' value='" & rs.Fields.Item("DayField") & "'>"
		HTML = HTML & "<input type=hidden name='StartTime' value='" & rs.Fields.Item("StartTime") & "'>"
		HTML = HTML & "<input type=hidden name='action'>"

		While Not rs.EOF
			HTML = HTML & "<tr class=blankrow><td colspan=6 height=14></td></tr>" & vbCrLf
			HTML = HTML & "<tr class=row height=14>"
			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 = "<a href='http://www." & venueLink & "'>" & rs.Fields.Item(field).Value & "</a>"
									Elseif field = "DayField" then
										cellContents = rs("MonthField") & "/" & rs("DayField")
									elseif Not field = "MonthField" And Not field = "DayField" then
										cellContents = rs.Fields.Item(field).Value
									End If
				End Select
				HTML = HTML & "<td align=center>" & cellContents & "</td>"
			Next

			If bLoggedIn Then
				HTML = HTML & "<td align=center>"
				strJS1 = "submitForm2('" & rs.Fields.Item("BandId") & "','" & rs.Fields.Item("MonthField") & "','" &_
						 rs.Fields.Item("DayField") & "','" & rs.Fields.Item("StartTime") & "');"
				strJS2 = "checkDelete('" & rs.Fields.Item("BandId") & "','" & rs.Fields.Item("MonthField") & "','" &_
						 rs.Fields.Item("DayField") & "','" & rs.Fields.Item("StartTime") & "');"
				HTML = HTML & "<input type=button value=""Edit"" onclick=""document.form2.action.value='Edit';" & strJS1 & """>"
				HTML = HTML & "<input type=button value=""Delete"" onclick=""" & strJS2 & """>"
				HTML = HTML & "</td>"
			End If
			HTML = HTML & "</tr>"
			rs.MoveNext
		Wend
		HTML = HTML & "<tr class=blankrow><td colspan=6>&nbsp;</td></tr>" & vbCrLf
		HTML = HTML & "</form>"
	End If
	
	dbConn.Close
	Set dbConn = Nothing
	
	GetTourRowsHTML = HTML
End Function

Function optionSelectStatus(optionValue, actualValue)
	If optionValue = actualValue Then optionSelectStatus = "selected"
End Function
%>
<table cellspacing="0" cellpadding="0" bgcolor="#E6E6E6" width="600">
  <tr> 
    <td width="615" valign="top" align="center"> 
        
      <table width="90%" cellspacing="0" cellpadding="0">
        <tr<% =Style_AddDate %> align="left"> 
          <td colspan="6" class="text12"> <br>

            <p><span class="textbold12">Add an Entry to Your Tour Calendar<br>
              </span><br>
              Simply fill out the following form and click the Enter Tour Date 
              button. Your on-line Tour Calendar will simply build itself!</p>
          </td>
        </tr>
        <tr<% =Style_HowToEditTop %> align="left"> 
          <td colspan=6 height=40 class="text12"><span class="textbold12"><br>
            Edit or Delete An Entry On Your Tour Calendar</span> 
            <p>When you view your <a href=#calendar>Tour Calendar</a>, you can 
              select to change any row by clicking<br>
              on the appropriate button.<br>
              <br>
              Simply click the <i>Edit</i> button to modify any of your Tour Calendar 
              entries.<br>
              To remove an entry from your Tour Calendar, simply click the <i>Delete</i> 
              button.</p>
          </td>
        </tr>
        <tr<% =Style_EditDate %> align="left"> 
          <td colspan="6" class="text12"> <br>
		  <span class="textbold12">Edit an Entry 
            on Your Tour Calendar<br>
            </span><br>
            Simply modify any of the following fields, then click the <i>Save 
            Changes</i> button. Your<br>
            online Tour Calendar will be updated to reflect your changes.<br>
            <br>
            To cancel editing of this entry and resume entering tour dates, just 
            press the<br>
            <i>Cancel Editing</i> button.</td>
        </tr>
        <tr> 
          <td width="6%">&nbsp;</td>
          <td colspan="5">&nbsp;</td>
        </tr>
        <tr valign="top"> 
          <td colspan="6"> 
            <form id="form1" name="form1" method="POST" action="tour.asp">
              <input type=hidden name="action" value="Add">
              <input type=hidden name='old_BandId' value='<% =Session("fld_BandId") %>'>
              <input type=hidden name='old_MonthField' value='<% =Session("fld_MonthField") %>'>
              <input type=hidden name='old_DayField' value='<% =Session("fld_DayField") %>'>
              <input type=hidden name='old_StartTime' value='<% =Session("fld_StartTime") %>'>
              <input type=hidden name="go" value="0">
              <table width="100%" cellspacing="0" cellpadding="0" bgcolor=#FFFFFF>
                <tr> 
                  <td height=20 width="20"></td>
                </tr>
                <tr> 
                  <td rowspan=17 width=20></td>
                  <td width="160" class="text12" height="20" align="left">Month:</td>
                  <td width="1" class="text12" height="20">&nbsp; </td>
                  <td class="text12" height="20" align="left"> 
                    <!--****** Not Needed ******
                    <select name="MonthField">
                      <option value='<% =nMonth %>' selected> 
                      <% =nMonthStr %>
                      </option>
                    </select>
					****************************-->
                    <select name="MonthField">
							<option value="1" <%= optionSelectStatus(1, Session("fld_MonthField")) %>>January</option>
							<option value="2" <%= optionSelectStatus(2, Session("fld_MonthField")) %>>February</option>
							<option value="3" <%= optionSelectStatus(3, Session("fld_MonthField")) %>>March</option>
							<option value="4" <%= optionSelectStatus(4, Session("fld_MonthField")) %>>April</option>
							<option value="5" <%= optionSelectStatus(5, Session("fld_MonthField")) %>>May</option>
							<option value="6" <%= optionSelectStatus(6, Session("fld_MonthField")) %>>June</option>
							<option value="7" <%= optionSelectStatus(7, Session("fld_MonthField")) %>>July</option>
							<option value="8" <%= optionSelectStatus(8, Session("fld_MonthField")) %>>August</option>
							<option value="9" <%= optionSelectStatus(9, Session("fld_MonthField")) %>>September</option>
							<option value="10" <%= optionSelectStatus(10, Session("fld_MonthField")) %>>October</option>
							<option value="11" <%= optionSelectStatus(11, Session("fld_MonthField")) %>>November</option>
							<option value="12" <%= optionSelectStatus(12, Session("fld_MonthField")) %>>December</option>
						  </select>
                  </td>
                </tr>
                <tr> 
                  <td colspan=3 height=15></td>
                </tr>
                <tr> 
                  <td class="text12" align="left">Day:</td>
                  <td class="text12" width="1">&nbsp;</td>
                  <td class="text12" align="left"> 
                    <select name="DayField">
                      <%
					  	' If Session("fld_DayField") <> "" Then
						'	Response.Write "<option selected value='" & Session("fld_DayField") & "'>" & Session("fld_DayField") & "</option>"
						' Else
							Dim i
							For i = 1 To 31
								Response.Write "<option "
								If i = Session("fld_DayField") Then Response.Write "selected"
								Response.Write ">" & i & "</option>" & vbCrLf
							Next
						' End If
					  %>
                    </select>
                  </td>
                </tr>
                <tr> 
                  <td colspan=3 height=15></td>
                </tr>
                <tr> 
                  <td class="text12" align="left">Starting Time:</td>
                  <td class="text12" width="1">&nbsp;</td>
                  <td class="text12" align="left"> 
                    <input type="hidden" name="starttime" value="<% =Session("fld_StartTime") %>" size=15>
                    <input type="text" name="starthour" size=2 value="<% =Session("fld_StartHour") %>">
                    <b>:</b> 
                    <input type="text" name="startmin" size=2 value="<% =Session("fld_StartMin") %>">
                    <select name="AMPM">
                      <%
					  	If Session("fld_AMPM") = "AM" Then
							Response.Write "<option selected value=""AM"">AM<option value=""PM"">PM"
						Else
							Response.Write "<option value=""AM"">AM<option selected value=""PM"">PM"
						End If
					  %>
                    </select>
                  </td>
                </tr>
                <tr> 
                  <td colspan=3 height=15></td>
                </tr>
                <tr> 
                  <td class="text12" align="left">Venue:</td>
                  <td class="text12" width="1">&nbsp;</td>
                  <td class="text12" align="left"> 
                    <input type="text" name="venue" value="<% =Session("fld_Venue") %>">
                  </td>
                </tr>
                <tr> 
                  <td colspan=3 height=15></td>
                </tr>
                <tr> 
                  <td class="text12" align="left">Street Address:</td>
                  <td class="text12" width="1">&nbsp;</td>
                  <td class="text12" align="left"> 
                    <input type="text" name="streetaddress" size=50 value="<% =Session("fld_StreetAddress") %>">
                  </td>
                </tr>
                <tr> 
                  <td colspan=3 height=15></td>
                </tr>
                <tr> 
                  <td class="text12" align="left">City:</td>
                  <td class="text12" width="1">&nbsp; </td>
                  <td class="text12" align="left"> 
                    <input type="text" name="city" value="<% =Session("fld_City") %>">
                  </td>
                </tr>
                <tr> 
                  <td colspan=3 height=15></td>
                </tr>
                <tr> 
                  <td class="text12" align="left">State:</td>
                  <td class="text12" width="1">&nbsp;</td>
                  <td class="text12" align="left"> 
                    <select name=state>
<%
		If Session("fld_State") <> "" Then
			Response.Write "<option selected value='" & Session("fld_State") & "'>" & LookupState(Session("fld_State")) & "</option>"
		End If
%>
                      <OPTION VALUE="AL" >Alabama</OPTION>
                      <OPTION VALUE="AK" >Alaska</OPTION>
                      <OPTION VALUE="AZ" >Arizona</OPTION>
                      <OPTION VALUE="AR" >Arkansas</OPTION>
                      <OPTION VALUE="CA" >California</OPTION>
                      <OPTION VALUE="CO" >Colorado</OPTION>
                      <OPTION VALUE="CT" >Connecticut</OPTION>
                      <OPTION VALUE="DE" >Delaware</OPTION>
                      <OPTION VALUE="DC" >District of Columbia</OPTION>
                      <OPTION VALUE="FL" >Florida</OPTION>
                      <OPTION VALUE="GA" >Georgia</OPTION>
                      <OPTION VALUE="GU" >Guam</OPTION>
                      <OPTION VALUE="HI" >Hawaii</OPTION>
                      <OPTION VALUE="ID" >Idaho</OPTION>
                      <OPTION VALUE="IL" >Illinois</OPTION>
                      <OPTION VALUE="IN" >Indiana</OPTION>
                      <OPTION VALUE="IA" >Iowa</OPTION>
                      <OPTION VALUE="KS" >Kansas</OPTION>
                      <OPTION VALUE="KY" >Kentucky</OPTION>
                      <OPTION VALUE="LA" >Louisiana</OPTION>
                      <OPTION VALUE="ME" >Maine</OPTION>
                      <OPTION VALUE="MD" >Maryland</OPTION>
                      <OPTION VALUE="MA" >Massachusetts</OPTION>
                      <OPTION VALUE="MI" >Michigan</OPTION>
                      <OPTION VALUE="MN" >Minnesota</OPTION>
                      <OPTION VALUE="MS" >Mississippi</OPTION>
                      <OPTION VALUE="MO" >Missouri</OPTION>
                      <OPTION VALUE="MT" >Montana</OPTION>
                      <OPTION VALUE="NE" >Nebraska</OPTION>
                      <OPTION VALUE="NV" >Nevada</OPTION>
                      <OPTION VALUE="NH" >New Hampshire</OPTION>
                      <OPTION VALUE="NJ" >New Jersey</OPTION>
                      <OPTION VALUE="NM" >New Mexico</OPTION>
                      <OPTION VALUE="NY" >New York</OPTION>
                      <OPTION VALUE="NC" >North Carolina</OPTION>
                      <OPTION VALUE="ND" >North Dakota</OPTION>
                      <OPTION VALUE="OH" >Ohio</OPTION>
                      <OPTION VALUE="OK" >Oklahoma</OPTION>
                      <OPTION VALUE="OR" >Oregon</OPTION>
                      <OPTION VALUE="PA" >Pennsylvania</OPTION>
                      <OPTION VALUE="RI" >Rhode Island</OPTION>
                      <OPTION VALUE="SC" >South Carolina</OPTION>
                      <OPTION VALUE="SD" >South Dakota</OPTION>
                      <OPTION VALUE="TN" >Tennessee</OPTION>
                      <OPTION VALUE="TX" >Texas</OPTION>
                      <OPTION VALUE="UT" >Utah</OPTION>
                      <OPTION VALUE="VT" >Vermont</OPTION>
                      <OPTION VALUE="VA" >Virginia</OPTION>
                      <OPTION VALUE="WA" >Washington</OPTION>
                      <OPTION VALUE="WV" >West Virginia</OPTION>
                      <OPTION VALUE="WI" >Wisconsin</OPTION>
                      <OPTION VALUE="WY" >Wyoming</OPTION>
                    </select>
                  </td>
                </tr>
                <tr> 
                  <td colspan=3 height=15></td>
                </tr>
                <tr> 
                  <td class="text12" align="left">Venue Link:</td>
                  <td class="text12" width="1">&nbsp;</td>
                  <td class="text12" align="left">http://www. 
                    <input type="text" name="venuelink" size=40 maxlength=50 value="<% =Session("fld_VenueLink") %>">
                  </td>
                </tr>
                <tr> 
                  <td colspan=3 height=20></td>
                </tr>
                <tr> 
                  <td colspan=3 align=center> 
                    <%
							If Request.Form("action") = "Edit" And Request.Form("Go") = "" Then
								Response.Write "<input type=""button"" value=""Save Changes"" onclick=""submitForm1(1);"">"
								Response.Write "<input type=""button"" value=""Cancel Editing"" onclick=""location.href = 'tour.asp'"">"
							Else
								Response.Write "<input type=""button"" value=""Submit Tour Date"" onclick=""submitForm1(0);"">"
							End If
						%>
                  </td>
                  <td class="text12" colspan="2" width="3">&nbsp;</td>
                </tr>
                <tr> 
                  <td height=20 width="20"></td>
                </tr>
              </table>
            </form>
          </td>
        </tr>
        <tr align="left"> 
          <td colspan="6" class="text12"><span class="textbold12">Your On-line 
            Tour Calendar</span></td>
        </tr>
        <tr> 
          <td colspan="6" class="text12"><i><font size="2" color=blue>The actual 
            program will also allow you to choose your own colors.</font></i></td>
        </tr>
        <tr> 
          <td colspan="6" class="text12">&nbsp;</td>
        </tr>
<!-- ***************
        <tr> 
          <td colspan="6" class="textbold12"> 
            <% =nMonthStr %>
            :</td>
        </tr>
*************** -->
        <tr> 
          <td width="6%">&nbsp;</td>
          <td colspan="5"> 
            <h2 id="calendar">&nbsp;</h2>
          </td>
        </tr>
<%
			Response.Write CalendarHeader
			Response.Write CalendarRows
%>
        <tr> 
          <td colspan=6 height=20></td>
        </tr>
        <tr<% =Style_ClickForEdit %> align="left"> 
          <td colspan=6 class="text12"> <span class="textbold12">Additional Features</span> 
            <p><a href="demosignup.asp">Click here</a> to try out the next level 
              Tour Calendar demo, where you will be able to:</p>
            <ul>
              <li>See the sign-in user ID and password security features. 
              <li>Sample the Tour Calendar edit/delete capabilities. 
            </ul>
          </td>
        </tr>
        <tr<% =Style_HowToEdit %> align="left"> 
          <td colspan=6 height=40 class="text12"><span class="textbold12">Edit 
            or Delete An Entry On Your Tour Calendar</span> 
            <p>Simply click the <i>Edit</i> button to modify any of your Tour 
              Calendar entries.<br>
              To remove an entry from your Tour Calendar, simply click the <i>Delete</i> 
              button.</p><br><br>
          </td>
        </tr>
      </table>
    </td>
  </tr>
</table>
<%
	Dim UserName
	UserName = Session("UserName")
	Session.Contents.RemoveAll
	Session("UserName") = UserName
%>