<!--#include virtual="/includes/resifunctions.asp" -->
<!--#include virtual="/includes/datefunctions.asp" -->
<!--#include virtual="/includes/sessionvariables.asp" -->

<%
Session("Entity_ID") = "7476"
	Set Conn = Server.CreateObject("ADODB.Connection")
	Conn.Open "DRIVER={SQL Server};SERVER=WEBSRV01;UID=web;pwd=w3bs1t3;DATABASE=AVANTE"

 	Dim Entity_ID
 	Dim SQL1, SQL2
 	Dim Conn, RS1, RS2, Pos

 	If Request.Form("Name") <> "" Then	
 		Entity_ID = Request.Form("Name")
 	ElseIf Request.QueryString("Name") <> "" Then
 		Entity_ID = Request.QueryString("Name")
 	End If
 	
 	SQL1 = "Select * from [Group] G inner join Group_Entity_Map GEM on G.Group_ID = GEM.Group_ID "
 	SQL1 = SQL1 & " inner join Group_Realm_Map GRM On GRM.Group_ID = GEM.Group_ID "
 	SQL1 = SQL1 & " inner join Entity E on GEM.Entity_ID = E.Entity_ID inner join Entity_Detail ED on E.Entity_ID = ED.Entity_ID"
 	SQL1 = SQL1 & " where E.Entity_ID = '" & Entity_ID & "'"
 	SQL1 = SQL1 & " And GRM.Realm_ID = '" & Session("Site_Realm") & "'"
 			
 	Set RS1=Conn.Execute(SQL1)
 	
 	SQL2 = "Select * from Entity E inner join Group_Entity_Map GEM on E.Entity_ID = GEM.Entity_ID "
 	SQL2 = SQL2 & " inner join Group_Realm_Map GRM On GRM.Group_ID = GEM.Group_ID "
 	SQL2 = SQL2 & " inner join Att_Group_Map AGM on GEM.Group_ID = AGM.Group_ID "
 	SQL2 = SQL2 & " inner Join Attribute_Type A on AGM.ATT_ID = A.ATT_ID Where E.Entity_ID = '" & Entity_ID & "'"
 	SQL1 = SQL1 & " And GRM.Realm_ID = '" & Session("Site_Realm") & "'"
 			
 	Set RS2 = server.CreateObject("ADODB.Recordset")
 	RS2.Open SQL2, Conn
 
 	If Not RS1.EOF Then
 		Session("Group_ID") = RS1("Group_ID")
 	End If
 
 	If Request("Display") = "" Then
 		Display = "Photos"
 	Else
 		Display = Request("Display")
 	End If
 
 Function Get_Image_Group_Att_Features(Group_ID, Position)
 
 	Dim Image_Dir, Image_File, Image_Alt
 	Image_Dir = "/dimages/"
 
 	Dim SQLImage, RSImage
 	SQLImage = "Get_Image_Group_Att_Features @Group_ID='" & Group_ID & "', @Position='" & Position & "'"
 	Set RSImage = Conn.Execute(SQLImage)
 
 	If Not RSImage.EOF Then
 		If Not RSImage("Image_ID") = "" Then
 			Image_File = RSImage("Image_ID") & "." & RSImage("Image_Ext")
 			Image_Alt = RSImage("Image_Alt")
 			Image_BGColor = RSImage("Image_BGColor")
 			Image_URL = RSImage("Image_URL")
 		Else
 			Image_File = "blank.gif"
 			Image_Alt = ""
 		End If
 	Else
 		Image_File = "blank.gif"
 		Image_Alt = ""
 	End If
 
 	If Not Image_URL = "" Then 
 		Get_Image_Group_Att_Features = "<a href=""main-attractions-profile.asp?Name=" & Image_URL &  """><img src=""" & Image_Dir & Image_File & """ alt=""" & Image_Alt & """ border=""0""></a>"
 	Else
 		Get_Image_Group_Att_Features = "<img src=""" & Image_Dir & Image_File & """ alt=""" & Image_Alt & """>"
 	End If
 	
 	Set RSImage = Nothing
 	
 End Function
 
 
 Function Get_Caption_Group_Att_Features(Group_ID, Position)
 
 	Dim SQLImage, RSImage
 	SQLImage = "Get_Image_Group_Att_Features @Group_ID='" & Group_ID & "', @Position='" & Position & "'"
 	Set RSImage = Conn.Execute(SQLImage)
 
 	If Not RSImage.EOF Then
 		If Not RSImage("Image_ID") = "" Then
 			Get_Caption_Group_Att_Features = RSImage("Image_Caption")
 		Else
 			Get_Caption_Group_Att_Features = "" 
 		End If
 	Else
 		Get_Caption_Group_Att_Features = ""
 	End If
 
 	Set RSImage = Nothing
 	
 End Function
 
 Function Get_Desc_Group_Att_Features(Group_ID, Position)
 
 	Dim SQLImage, RSImage
 	SQLImage = "Get_Image_Group_Att_Features @Group_ID='" & Group_ID & "', @Position='" & Position & "'"
 	Set RSImage = Conn.Execute(SQLImage)
 
 	If Not RSImage.EOF Then
 		If Not RSImage("Image_ID") = "" Then
 			Get_Desc_Group_Att_Features = RSImage("Image_Desc")
 		Else
 			Get_Desc_Group_Att_Features = "" 
 		End If
 	Else
 		Get_Desc_Group_Att_Features = ""
 	End If
 
 	Set RSImage = Nothing
 	
 End Function
 
 Function Get_URL_Group_Att_Features(Group_ID, Position)
 
 	Dim SQLImage, RSImage
 	SQLImage = "Get_Image_Group_Att_Features @Group_ID='" & Group_ID & "', @Position='" & Position & "'"
 	Set RSImage = Conn.Execute(SQLImage)
 
 	If Not RSImage.EOF Then
 		If Not RSImage("Image_ID") = "" Then
 			Get_URL_Group_Att_Features = RSImage("Image_URL")
 		Else
 			Get_URL_Group_Att_Features = "" 
 		End If
 	Else
 		Get_URL_Group_Att_Features = ""
 	End If
 
 	Set RSImage = Nothing
 	
 End Function
 
 'SQL = "[Avante].[dbo].[Get_Package_Items_No_Tax] @Lowest_Price='1', @Lodging_Only='1', @Availability='1', @Realm_ID='" & Session("Site_Realm") & "'"
 'SQL = SQL & ", @Search_Group_ID = '" & RS1("Group_ID") & "'"
 
 If Not RS1.EOF Then
 	SQL = "Select * from Package P Inner Join Package_Detail PD On PD.Package_ID = P.Package_ID Where PD.Group_ID='" & RS1("Group_ID") & "'"
 	Set RSPackages = Conn.Execute(SQL)
 
 	SQL = "Select * from Inventory_Price_Merchandise Where Group_ID='" & RS1("Group_ID") & "' And Status='1' And Removed='0'"
 	Set RSTickets = Conn.Execute(SQL)
 End If
 
 tmpArray = Session("Itinerary_Items")
 Session("Searched") = "main-attractions-profile.asp"
 %>
<html>
	
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<script language="javascript" src="/js/menu-script.js">
<!--




<!--
function MM_reloadPage(init) {  //reloads the window if Nav4 resized
  if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
    document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
  else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
// -->
//-->
		</script>
<link rel="stylesheet" href="/Style-sheets/tropical-1.css" type="text/css">
<link rel="stylesheet" href="/Style-sheets/tropical-1.css" type="text/css">
<link rel="stylesheet" href="/Style-sheets/headline.css" type="text/css">
<link rel="stylesheet" href="/Style-sheets/atrraction-set.css" type="text/css">
<link rel="stylesheet" href="/Style-sheets/arrivares.css" type="text/css">
<link rel="stylesheet" href="/Style-sheets/arrivares.css" type="text/css">
<link rel="stylesheet" href="/Style-sheets/atrraction-set.css" type="text/css">
<link rel="stylesheet" href="/Style-sheets/headline-large.css" type="text/css">
<link rel="stylesheet" href="/Style-sheets/atrraction-set.css" type="text/css">
<link rel="stylesheet" href="/Style-sheets/headline.css" type="text/css">
</head>
<body bgcolor="#000000" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" onLoad="MM_preloadImages('images/menu/resort-amentites-dim.gif','images/menu/cottages-dim.gif','images/menu/attractions-dim.gif','images/menu/events-dim.gif','images/menu/contact-us-dim.gif','images/menu/reservations-dim.gif','images/menu/home-dim.gif','/images/menu/resort-amentites-dim.gif','/images/menu/cottages-dim.gif','/images/menu/attractions-dim.gif','/images/menu/events-dim.gif','/images/menu/contact-us-dim.gif','/images/menu/reservations-dim.gif','/images/menu/home-dim.gif')">
<table width="650" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#7BB8B9" class="main-table-space" height="70%">
  <tr> 
    <td colspan="2"><img src="/images/header-composite.jpg" width="650" height="76"></td>
  </tr>
  <tr> 
    <td width="120" valign="top"> 
      <table width="120" border="0" cellspacing="0" cellpadding="0" height="100%">
        <tr> 
          <td background="/images/menu-121.gif" valign="top"> 
            <!--#include virtual="/includes/menu.asp" -->
          </td>
        </tr>
        <tr> 
          <td background="/images/menu/menu-121-palm.gif" height="122">&nbsp; </td>
        </tr>
      </table>
    </td>
    <td width="520" align="center" valign="top"> 
      <table width="500" border="0" cellspacing="0" cellpadding="0" bgcolor="#DCECED" >
        <tr> 
          <td align="left" valign="top" class="tableSpace"  width="26" height="15"><img src="/images/conerUL.gif" width="14" height="15"></td>
          <td class="tableSpace" height="15" width="475">&nbsp;</td>
          <td valign="top" align="right" class="tableSpace"  width="15" height="15"><img src="/images/conerUR.gif" width="15" height="14"></td>
        </tr>
        <tr align="center" valign="top"> 
          <td colspan="3">
            <table width="500" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td valign="top" colspan="2" width="521"> 
                  <table width="500" border="0" cellspacing="0" cellpadding="0">
                    <tr> 
                      <td rowspan="2" align="center" width="515" valign="top"> 
                        <%If RS1.EOF Then
                     Response.Write("<tr><td valign='middle' colspan='3' class='headline-large'><span class='headline-large'><br><br>No Details Found.</span> </td></tr>")
                     Else%>
                        <div align="center">
                          <table width="495" border="0" cellspacing="0" cellpadding="0" align="right">
                            <tr>
                              <td  align="right" width="500"> 
                                <table border="0" cellspacing="0" cellpadding="0">
                                  <tr> 
                                  <td>&nbsp;</td>
                                  <td align="right"><img src="/images/main-stage-tab-left.gif" width="10" height="20"></td>
                                  <%
     ' Define the Active Tab
      Dim Tab_Active
 
      If Not Request("Active_Tab") = "" Or Not Tab_Active = "" Then
 
 	 tmpTabArray = Session("Tab_Array")
 	On Error Resume Next
 	 Tab_Count = UBound(tmpTabArray,2) - 1
 	On Error goto 0
 	    
 	 If Not Request("Active_Tab") = "" And Not (Int(Tab_Active) > Int(Tab_Num)) Then
 		Tab_Active = Request("Active_Tab")
 	 Else
 		If Tab_Active = "" Then
 			Tab_Active = 1
 		End If
  	 End If
 
 
    For imatt2 = 0 to UBound(tmpTabArray, 2) 
 	 Tab_ID = tmpTabArray(0,imatt2)
 	 Tab_Name = tmpTabArray(1,imatt2)
 	 Tab_URL = tmpTabArray(2,imatt2)
 	 Tab_CA = tmpTabArray(3,imatt2)
 	 Tab_CI = tmpTabArray(4,imatt2)
 
 	 If Int(Tab_ID) = Int(Tab_Active) Then Tab_URL = ""
 
 %>
                                  <td bgcolor="#2A2F88" align="center" height="20"> 
                                    <% If Not Tab_URL = "" Then %>
                                    <a href="<%=Tab_URL%><% If not LCase(Tab_CA) = "no_active" Then response.write "&Active_Tab=" & Tab_ID%>"> 
                                    <% End If %>
                                    <font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="<%
 		If Int(Tab_Active) = Int(Tab_ID)Then
 			Response.Write Tab_CA
 		Else
 			Response.Write Tab_CI
 		End If
 	 %>" style="text-decoration:none"><b><%=Tab_Name%></b></font> 
                                    <% If Not Tab_URL = "" Then %>
                                    </a> 
                                    <% End If %>
                                  </td>
                                  <% If Not imatt2 >= Tab_Count Then %>
                                  <td bgcolor="#2A2F88" align="center"><img src="/images/main-stage-tab-join.gif" width="20" height="20"></td>
                                  <% End If 
 
        Next
     Else
 %>
                                  <!-- orig page stuff -->
                                  <td align="right" height="13" nowrap class="tab"><a class="tab" style="text-decoration:none;" href="javascript:history.back()">Return to List</a></td>
                                  <td bgcolor="#2A2F88" align="center"><img src="/images/main-stage-tab-join.gif" width="20" height="20"></td>
                                  <td align="right" height="13" nowrap class="tab">Attraction 
                                    Profile</td>
                                  <!-- end stuff -->
                                  <%
     End If
 %>
                                  <td align="right"><font color="#2A2F88" size="1"><img src="/images/main-stage-tab-right.gif" width="20" height="20"></font></td>
                                </tr>
                              </table>
                            </td>
                          </tr>
                          <tr> 
                              <td class="4p-tab-rule"  width="495">&nbsp;</td>
                          </tr>
                        </table>
                          <br>
                          <table width="500" border="0" cellspacing="0" cellpadding="0">
                            <tr> 
                              <td valign="middle" colspan="3" class="row-space" height="9">&nbsp;</td>
                            </tr>
                            <tr> 
                              <td valign="middle" width="185" class="indent"><span class="headline-large"><%=RS1("Name")%></span><br>
                                <span class="headline"><%=RS1("City")%>, <%=RS1("State")%></span><br>
                              </td>
                              <td align="center" width="315" valign="middle" height="75"><br>
                                <span class="imageclip"><%=Get_Image_By_Entity_Or_Brand(RS1("Entity_ID"), "45",False)%></span> 
                              </td>
                            </tr>
                            <tr> 
                              <td valign="middle" colspan="3" class="indent"> 
                                <span class="headline-large"> <%=Get_Attribute_Variable(Entity_ID, 540)%> 
                                <%'If Not RS2.RecordCount = 0 Then
                       'RS2.MoveFirst()
                       'Do While Not RS2.EOF
                       'Variable = CStr(RS2("Variable"))
                       'If RS2("Att_ID") = "540" Then Response.Write (Variable)
                       'RS2.MoveNext()               
                       'Loop
                       %>
                                </span> </td>
                              <%'RS2.MoveFirst()
                       'End If%>
                            </tr>
                            <tr align="left"> 
                              <td colspan="3"> 
                                <table border="0" cellspacing="0" cellpadding="0" width="500">
                                  <td width="170" class="headline-large" height="14" align="left"> 
                                    <% If Not RSTickets.EOF Then %>
                                    <a href="?Display=Tickets&Name=<%=Request("Name")%><% If Not Request("Active_Tab") = "" Then Response.Write ("&Active_Tab=" & Request("Active_Tab"))%>"><img src="icons/ticket-prices.gif" width="147" height="20" border="0"></a> 
                                    <% End If %>
                                  </td>
                                  <td align="center" class="headline-large" height="14" width="190"> 
                                    <% If Not RSPackages.EOF Then %>
                                    <a href="?Display=Packages&Name=<%=Request("Name")%><% If Not Request("Active_Tab") = "" Then Response.Write ("&Active_Tab=" & Request("Active_Tab"))%>"><img src="/icons/lodging-ticket-pricing.gif" width="164" height="19" border="0"></a> 
                                    <% End If %>
                                  </td>
                                  <td width="140" class="headline-large" height="14" align="right"> 
                                    <% If Not RSPackages.EOF Or Not RSTickets.EOF Then %>
                                    <a href="?Display=Photos&Name=<%=Request("Name")%><% If Not Request("Active_Tab") = "" Then Response.Write ("&Active_Tab=" & Request("Active_Tab"))%>"><img src="/icons/photo-profile.gif" width="100" height="20" border="0"></a>&nbsp; 
                                    <% End If %>
                                  </td>
                                  </tr>
                                </table>
                              </td>
                            </tr>
                          </table>
                          <% ' Content starts here			%>
                          <% If Trim(LCase(Display)) = "photos" Then %>
                          <%
 ' Photo Profile
 %>
                          <table width="500" border="0" cellspacing="0" cellpadding="0" >
                            <tr> </tr>
                            <tr> 
                              <td width="500" valign="top" align="center"> 
                                <table width="475" border="0" cellspacing="0" cellpadding="0"  height="94">
                                  <tr> 
                                    <td width="363" height="75" valign="top"> 
                                      <div > 
                                        <%If Not RS2.EOF Then
 '                            If Not RS2.RecordCount = 0 Then
 '                      RS2.MoveFirst()
 '                      Do While Not RS2.EOF
 '                      Variable = CStr(RS2("Variable"))
 '                      If RS2("Att_ID") = "541" Then Response.Write (Variable)
 '                      RS2.MoveNext()               
 '                      Loop
 '                      End If
 %>
                                        <%=Get_Attribute_Variable(Entity_ID, 541)%> 
                                        <%                      End If%>
                                     </div>
                                    </td>
                                    <td align="center" width="140" height="75" valign="middle"> 
                                      <span class="imageclip"><%=Get_Image_By_Entity(RS1("Entity_ID"), "24",False)%></span> 
                                    </td>
                                  </tr>
                                </table>
                                <table width="500" border="0" cellspacing="0" cellpadding="0"  height="39">
                                  <tr> 
                                    <td height="7" class="row-spacing" colspan="2">&nbsp;</td>
                                  </tr>
                                  <tr> 
                                    <td height="24" rowspan="2" width="128" align="center"> 
                                      <table width="7" border="0" cellspacing="0" cellpadding="1" height="7">
                                        <tr> 
                                          <td align="center" valign="middle"><%=Get_Image_By_Entity(RS1("Entity_ID"), "25",False)%></td>
                                        </tr>
                                      </table>
                                    </td>
                                    <td height="3" width="375"> <img src="/images/upcoming-events.gif" width="208" height="20"></td>
                                  </tr>
                                  <tr> 
                                    <td align="center" width="375" height="49" valign="top"> 
                                      <table border="0" cellspacing="0" cellpadding="2" width="100%">
                                        <%
 							Dim SQLPark, RSPark
 	
 							SQLPark = "Select Top 5 * from Event_Detail ED inner join (Event E Inner Join (Event_Type ET inner Join Realm R on ET.Realm_ID = R.Realm_ID) on E.Event_Type_ID = ET.Event_Type_ID) on E.Event_ID = ED.Event_ID where "
 							SQLPark = SQLPark & "ED.State = 'FL' And E.Begin_Date >= '" & Date() & "' And ED.Entity_ID = '" & RS1("Entity_ID") & "' Order By E.Begin_Date"
 							Set RSPark = Server.CreateObject("ADODB.Recordset")
 							RSPark.Open SQLPark, Conn
 							If RSPark.EOF Then Response.Write("<td colspan=2 class='sm-hdln'>Currently No Events Found</td>") 							
 							Do While Not RSPark.EOF
 							If RSPark.EOF Then Exit Do
 							%>
                                        <tr> 
                                          <td class="sm-hdln" width="12%"><%=Month(RSPark("Begin_Date")) & "/" & day(RSPark("Begin_Date")) & "/" & Year(RSPark("Begin_Date"))%></td>
                                          <td class="standard-input-form-small" width="88%"> 
                                            <a href="Main-Events-List.asp?Event_ID=<%=RSPark("Event_ID")%>"><%=RSPark("Name")%></a></td>
                                        </tr>
                                        <%RSPark.MoveNext()
                                 Loop
                                 %>
                                      </table>
                                    </td>
                                  </tr>
                                  <tr> 
                                    <td height="10" class="row-spacing" width="128">&nbsp;</td>
                                    <td align="center" width="375" height="10" valign="top" class="row-spacing">&nbsp;</td>
                                  </tr>
                                </table>
                                <%
 						Set RSFeatCount = Conn.Execute("Get_Image_Count @Group_ID='" & RS1("Group_ID") & "', @Image_Type_ID='26'")
 
 						Num_Features = RSFeatCount("Count")
 						Even_Odd = Num_Features Mod 2
 						
 						If Not Num_Features = "0" Or Num_Features = "" Then
 %>
                                <table width="500" border="0" cellspacing="0" cellpadding="0" >
                                  <%
 						 For I = 1 to Num_Features
 						If Even_Odd = 0 Then
 %>
                                  <tr> 
                                    <td width="22" align="center"  valign="middle" height="230"><%=Get_Image_Group_Att_Features(RS1("Group_ID"), I)%></td>
                                    <td width="212" align="center" valign="top" height="230"> 
                                      <div align="center" class="attraction-hdln" ><%=Get_Caption_Group_Att_Features(RS1("Group_ID"), I)%></div>
                                      <div align="justify" class="sm-hdln"><%=Get_Desc_Group_Att_Features(RS1("Group_ID"), I)%></div>
                                    </td>
                                    <td width="17" height="230">&nbsp;</td>
                                    <td width="22" align="center" valign="middle" height="230"><%=Get_Image_Group_Att_Features(RS1("Group_ID"), I + 1)%></td>
                                    <td width="213" align="center" valign="top" height="230"> 
                                      <div align="center" class="attraction-hdln"><%=Get_Caption_Group_Att_Features(RS1("Group_ID"), I + 1)%></div>
                                      <div align="justify" class="sm-hdln"><%=Get_Desc_Group_Att_Features(RS1("Group_ID"), I + 1)%></div>
                                    </td>
                                  </tr>
                                  <% 
 						
 						I = I + 1
 						Else 
 						  If I = Int(Num_Features) Then
 						  %>
                                  <tr> 
                                    <td width="22" align="center" valign="middle"><%=Get_Image_Group_Att_Features(RS1("Group_ID"), I)%></td>
                                    <td width="212" align="center" valign="top"> 
                                      <div align="center" class="link-large"><%=Get_Caption_Group_Att_Features(RS1("Group_ID"), I)%></div>
                                      <div align="justify" class="sm-hdln"><%=Get_Desc_Group_Att_Features(RS1("Group_ID"), I)%></div>
                                    </td>
                                    <td width="17">&nbsp;</td>
                                    <td width="22" align="center">&nbsp;</td>
                                    <td width="213" align="center">&nbsp;</td>
                                  </tr>
                                  <% 
 						Else 
 
 						%>
                                  <tr> 
                                    <td width="22" align="center" valign="middle"><%=Get_Image_Group_Att_Features(RS1("Group_ID"), I)%></td>
                                    <td width="212" align="center" valign="top"> 
                                      <div align="center" class="link-large"><%=Get_Caption_Group_Att_Features(RS1("Group_ID"), I)%></div>
                                      <div align="justify" class="sm-hdln"><%=Get_Desc_Group_Att_Features(RS1("Group_ID"), I)%></div>
                                    </td>
                                    <td width="17">&nbsp;</td>
                                    <td width="22" align="center" valign="middle"><%=Get_Image_Group_Att_Features(RS1("Group_ID"), I + 1)%></td>
                                    <td width="213" align="center" valign="top"> 
                                      <div align="center" class="link-large"><%=Get_Caption_Group_Att_Features(RS1("Group_ID"), I + 1)%></div>
                                      <div align="justify" class="sm-hdln"><%=Get_Desc_Group_Att_Features(RS1("Group_ID"), I + 1)%></div>
                                    </td>
                                  </tr>
                                  <% 
 							I = I + 1						  
 						  End If %>
                                  <% End If %>
                                  <tr> 
                                    <td width="22" align="center" class="row-space">&nbsp;</td>
                                    <td width="212" class="row-space">&nbsp;</td>
                                    <td width="17">&nbsp;</td>
                                    <td width="22" class="row-space">&nbsp;</td>
                                    <td width="213" class="row-space">&nbsp;</td>
                                  </tr>
                                  <tr> 
                                    <td width="22" align="center" class="row-space">&nbsp;</td>
                                    <td width="212" class="row-space">&nbsp;</td>
                                    <td width="17">&nbsp;</td>
                                    <td width="22" class="row-space">&nbsp;</td>
                                    <td width="213" class="row-space">&nbsp;</td>
                                  </tr>
                                  <% 
 							Next 
 						  %>
                                </table>
                                <% End If %>
                              </td>
                            </tr>
                          </table>
                          <%
 ' End of Photo Profile
 %>
                          <% ElseIf Trim(LCase(Display)) = "packages" Then %>
                          <!-- Packages Start Here -->
                          <br>
                          <table width="350" border="0" cellspacing="0" cellpadding="0" class="lodging-list-table">
                            <%
 
 If Not RSPackages.EOF Then 
 
 	SQL = "[Avante].[dbo].[Get_Package_Items_No_Tax] @Lowest_Price='1', @Lodging_Only='1', @Realm_ID='" & Session("Site_Realm") & "'"
 	SQL = SQL & ", @Search_Group_ID = '" & RS1("Group_ID") & "'"
 	Set RSPackages = Conn.Execute(SQL)
 
 	Do While Not RSPackages.EOF
 
 %>
                            <td colspan="4" bgcolor="#2A2F88" class="headline-ffffff-lodging"> 
                              <table border="0" cellspacing="0" cellpadding="0" width="350">
                                <tr> 
                                  <td class="headline-ffffff" width="421">&nbsp;&nbsp;<%=RSPackages("Package_Name")%> 
                                    - <%=RSPackages("Package_City")%></td>
                                  <td align="right" class="headline-ffffff-lodging" bgcolor="#333399" width="63"><font size="1"><%=Request("ptypename" & RSPackages("Package_Type_ID"))%></font>&nbsp;</td>
                                </tr>
                              </table>
                            </td>
                            </tr>
                            <tr> 
                              <td colspan="2" height="5" valign="bottom"><img src="/images/shim.gif" height="5"></td>
                            </tr>
                            <tr> 
                              <td rowspan="2" width="91" valign="middle" align="left"> 
                                <table border="0" cellspacing="0" cellpadding="1" bgcolor="#2A2F88">
                                  <tr> 
                                    <td bgcolor="#2A2F88" valign="middle"><%=Get_Image_By_Group(RSPackages("Item_Group_ID"), 36, False)%></td>
                                  </tr>
                                </table>
                              </td>
                              <td width="52">&nbsp;</td>
                              <td colspan="1" height="35" valign="top" width="250"> 
                                <span class="headline"><%=RSPackages("Item_Entity_Name")%></span><br>
                                <span class="headline"><%=RSPackages("Package_Headline")%></span><br>
                                <span class="headline"><%=RSPackages("People_Ratio")%></span><br>
                                <span class="galley-text-indent"><%=RSPackages("Package_Desc")%><br>
                                From <%= FCurrency(RSPackages("Package_Cost"),4)%> 
                                for 
                                <% Num_Days = RSPackages("Num_Days")%>
                                <% If Int(Num_Days) = 1 Then %>
                                One Day 
                                <% ElseIf Int(Num_Days) = 2 Then %>
                                1 Night/<%= Num_Days%> Days 
                                <% Else %>
                                <%=Num_Days - 1%> Nights/<%= Num_Days%> Days 
                                <% End If %>
                                <br>
                                </span></td>
                              <td rowspan="2" width="91" align="right" valign="middle" class="offset-package"> 
                                <table border="0" cellspacing="0" cellpadding="1" bgcolor="#2A2F88" align="right">
                                  <tr> 
                                    <td align="center"> 
                                      <% If RSPackages("Item_Logo_Group") = "0" Then %>
                                      <%=Get_Image_By_Group_Or_Brand(RS1("Group_ID"), 45, False)%> 
                                      <% Else %>
                                      <%=Get_Image_By_Group_Or_Brand(RSPackages("Item_Logo_Group"), 45, False)%> 
                                      <% End If %>
                                    </td>
                                  </tr>
                                </table>
                              </td>
                            </tr>
                            <tr> 
                              <td colspan="2" height="32" valign="bottom"> 
                                <table border="0" cellspacing="0" cellpadding="0" width="85%">
                                  <tr> 
                                    <td width="29%">&nbsp;</td>
                                    <td width="27%"><a href="avail-accom_package-1.asp?Name=<%=RSPackages("Package_ID")%>"><img src="/images/check-availability.gif" width="100" height="16" border="0"></a></td>
                                    <td width="44%" align="center"><a href="/main-package-profile.asp?Name=<%=RSPackages("Package_ID")%>&Searched=2"><img src="images/package-profile.gif" width="87" height="16" border="0"></a></td>
                                  </tr>
                                </table>
                              </td>
                            </tr>
                            <tr> 
                              <td colspan="2" height="5" valign="bottom"><img src="/images/shim.gif" height="5"></td>
                            </tr>
                            <%

 
 		RSPackages.MoveNext
      	Loop
 	
     Else 
 
 %>
                            <tr> 
                              <td colspan="2" height="5" valign="bottom">No packages 
                                found for this attraction. </td>
                            </tr>
                            <% 
 
 End If 
 
 %>
                          </table>
                          <!-- Packages end here -->
                          <% ElseIf Trim(LCase(Display)) = "tickets" Then 
 
 	SQL = "[Avante].[dbo].[Get_Inv_Ticket_Details] @Group_ID='" & RS1("Group_ID") & "'"
 	Set RSTickets = Conn.Execute(SQL)
 
 %>
                          <!-- Tickets start here -->
                          <%
 
 Dim First_Run
 Dim Go_For_It
 Dim Prev_Item_ID
 Dim First_Item_ID
 Dim Ticket_Restrictions
 
 First_Run = True
 Go_For_It = False
 
 'If Not RSTickets.EOF Then
 '	Count = 0
 '	RSTickets.MoveFirst
 '	Do While Not RSTickets.EOF
 '		If Not Prev_Item = RSTickets("Item_ID") Then Count = Count + 1
 '		Prev_Item = RSTickets("Item_ID")
 '		RSTickets.MoveNext
 '	Loop
 '	RSTickets.MoveFirst
 '	If Count > 1 Then Multi = True
 'End If
 
 If Not RSTickets.EOF Then
 	Go_For_It = True
 %>
                          <table width="500" border="0" cellspacing="0" cellpadding="0">
                            <tr> 
                              <td valign="bottom" colspan="4" class="attraction-ticket-header" height="47"><span class="attraction-hdln">SAVE! 
                                Check out our Discounted <%=RS1("Name")%> Tickets!</span></td>
                              <td height="47" class="attraction-name-list" align="center" width="10"></td>
                            </tr>
                          </table> 
                          <%
 
   Do Until RSTickets.EOF
 	Show_Price = True
 	If FCurrency(RSTickets("Regular_Price"),4) = FCurrency(RSTickets("Display_Price"), 4) Then Show_Price = False
 	
     If Not RSTickets("Item_ID") = Prev_Item_ID Then
     
         If Not First_Run = True Then
 		   If Not Ticket_Restrictions = "" Then %>
                        </div>
                    <tr> 
                      <!--<td class="event-date-sm" align="right" valign="top">Park Restrictions: &nbsp;</td>-->
                      <td colspan="4" class="event-date-sm" align="left" valign="bottom" width="1"><%= Ticket_Restrictions %></td>
                    </tr>
                    <% Else %>
                    <tr> 
                      <td class="event-date-sm" align="right" valign="bottom" width="500">&nbsp;</td>
                    </tr>
                    <% End If %>
                  </table><form action="accom-purchase.asp" method=POST id=form1 name=form1>
                  <% End If %>
                    <table width="500" border="0" cellspacing="0" cellpadding="0">
                      <tr> 
                      <td width="153"></td>
                      <td width="69"></td>
                      <td width="137"></td>
                      <td width="91"></td>
                      <td width="10"></td>
                    </tr>
                    <tr> </tr>
                    <tr> 
                      <td width="153"> 
                      <td valign="bottom" height="18" class="attraction-hdln"  colspan="5" > 
                      </td>
                      &nbsp;&nbsp;<%=RSTickets("Name")%> 
                      <td width="59"> 
                    </tr>
                    <tr> 
                      <td class="attraction-body-textlayer" height="22" valign="top" colspan="5"><%=RSTickets("Marketing_Description")%></td>
                    </tr>
                    <tr> 
                      <td height="35" class="attraction-hdln" width="153">&nbsp;</td>
                      <td height="35" class="attraction-hdln" align="center" width="69"> 
                        <% If Not RSTickets("Do_Not_Display_Price") = True Or Request("P") = "V" Then %>
                        <% If Show_Price = True Then %>
                        When bought at the Attraction 
                        <% End If %>
                        <% End If %>
                        &nbsp;</td>
                      <td height="35" class="attraction-hdln" align="center" width="137"> 
                        <% If Not RSTickets("Do_Not_Display_Price") = True Or Request("P") = "V" Then %>
                        Your&nbsp;Discount&nbsp;Ticket<br>
                        Price 
                        <% End If %>
                      </td>
                      <% If Not RSTickets("Do_Not_Display_Price") = True Or Request("P") = "V" Then %>
                      <td height="35" colspan="2" align="center" valign="middle" class="attraction-hdln"> 
                        <div id="ticket_<%=RSTickets("Item_ID")%>" style="{display: none}" class="orderplannerlink"> 
                          <a href="javascript:form1.submit();"  onMouseOver="window.status=''; return true;" style="{cursor:hand}">Add&nbsp;to&nbsp;Order</a> 
                          <br>
                          <a href="#">Add&nbsp;to&nbsp;Planner</a> </div>
                      </td>
                      <% Else %>
                      <td height="35" colspan="2" align="center" valign="top" class="attraction-hdln">&nbsp;</td>
                      <% End If %>
                    </tr>
                    <% End If %>
                    <tr> 
                      <td valign="top" class="headline" width="153"><%=RSTickets("Description")%></td>
                      <% If Not RSTickets("Do_Not_Display_Price") = True Or Request("P") = "V" Then %>
                      <td valign="middle" class="attraction-park-cntr" width="69"> 
                        <% If Show_Price = True Then %>
                        <%=FCurrency(RSTickets("Regular_Price"),4)%> 
                        <% End If %>
                        &nbsp;</td>
                      <td valign="middle" class="attraction-hdln" align="center" width="137"><%=FCurrency(RSTickets("Display_Price"),4) %></td>
                      <td valign="top" class="attraction-hdln" width="91"><span class="event-date-sm"> 
                        <input type="text" name="Quantity<%=RSTickets("Inventory_List_ID")%>" id=="Quantity<%=RSTickets("Inventory_List_ID")%>" size="2" class="input-box-splash" onKeyUp="return showdiv<%=RSTickets("Item_ID")%>();">
                        Qty</span></td>
                      <% If Not RSTickets("Item_ID") = Prev_Item_ID Then %>
                      <td valign="top" class="event-date-sm" width="10">&nbsp;</td>
                      <% Else %>
                      <td valign="top" class="event-date-sm" width="1">&nbsp;</td>
                      <% End If %>
                      <% Else %>
                      <td colspan="2" valign="top" class="orderplannerlink" align="center" width="59"> 
                        <div align="center" class="orderplannerlink"><a href="#" onClick="javascript:window.open('<%=RSTickets("Pricing_URL")%>', 'pricing', 'width=400,height=400');" class="orderplannerlink">Click 
                          here for Today's Discount Pricing!</a></div>
                      </td>
                      <% End If %>
                    </tr>
                    <% 
 	Ticket_Restrictions = RSTickets("Restrictions")
 	Prev_Item_ID = RSTickets("Item_ID")
 	Inv_List = Inv_List & "'Quantity" & RSTickets("Inventory_List_ID") & "', "
 	RSTickets.MoveNext
 	First_Run = False
 
 		If RSTickets.EOF Then
 			P_Item_ID = Prev_Item_ID
 			If P_Item_ID = "" Then P_Item_ID = RSTickets("Item_ID")
 			on error resume next
 			Inv_List = Mid(Inv_List, 1, len(Inv_List) - 2)
 			on error goto 0
 			Scripter = Scripter & "function showdiv" & P_Item_ID & "() { " & Chr(13)
 			Scripter = Scripter & "	return showdiv('" & P_Item_ID & "', " & Inv_List & "); " & Chr(13)
 			'Scripter = Scripter & "	alert('sup!'); " & Chr(13)	
 			Scripter = Scripter & "} " & Chr(13)
 			Inv_List = ""
 		Else
 			If Not RSTickets("Item_ID") = Prev_Item_ID Then		
 				P_Item_ID = Prev_Item_ID
 				If P_Item_ID = "" Then P_Item_ID = RSTickets("Item_ID")
 				on error resume next
 				Inv_List = Mid(Inv_List, 1, len(Inv_List) - 2)
 				on error goto 0
 
 				Scripter = Scripter & "function showdiv" & P_Item_ID & "() { " & Chr(13)
 				Scripter = Scripter & "	return showdiv('" & P_Item_ID & "', " & Inv_List & "); " & Chr(13)
 				'Scripter = Scripter & "	alert('sup!'); " & Chr(13)	
 				Scripter = Scripter & "} " & Chr(13)
 
 				Inv_List = ""
 			End If
 		End If
    Loop
    End If
    Set RSTickets = Nothing
 %>
                    <% If Go_For_It = True Then 
 		If Not Ticket_Restrictions = "" Then %>
                    <tr> 
                      <td class="event-date-sm" align="right" valign="top" width="153">Park 
                        Restrictions: &nbsp;</td>
                      <td colspan="4" class="event-date-sm" align="left" valign="bottom"><%= Ticket_Restrictions %></td>
                    </tr>
                    <%	Else %>
                    <tr> 
                      <td class="event-date-sm" align="right" valign="bottom" width="153">&nbsp;</td>
                    </tr>
                    <%	End If %>
                  </table>
                  <% Else %>
                  N<span class="attraction-hdln">o Ticket Pricing Details found. 
                  </span> </form>
                  <% End If %>
                  <!-- Tickets End here -->
                  <% End If %>
                  <% ' Content ends here              %>
                  <%End If%>
                </td>
              </tr>
            </table>
          </td>
        </tr>
        <tr> 
          <td align="left" valign="top" class="tableSpace"  width="26" height="15"><img src="/images/conerLL.gif" width="15" height="14"></td>
          <td align="left" valign="top" class="tableSpace"  width="475" height="15">&nbsp;</td>
          <td class="tableSpace" height="15" width="15"><img src="/images/conerLR.gif" width="15" height="15"></td>
        </tr>
      </table>
    </td>    
  </tr>
</table>
</td>
</tr>
</table>
<div align="center"><table width="650" border="0" cellspacing="0" cellpadding="0">
  <tr>
      <td><img src="/images/footer-650.jpg" width="650" height="33"></td>
  </tr>
</table>
  <!--#include virtual="/includes/footer.asp" -->
</div>
<script language="javascript">
 function showdiv(){
 
 	var args=showdiv.arguments;
 	var Qty;
 	var ID = args[0];
 	var subobj = MM_findObj('ticket_' + ID);
 	var aDivs = document.body.getElementsByTagName("DIV");
 
 	for(i=0;i<aDivs.length;i++){
 		var string = aDivs[i].id.substring(0, 7);
 		if (string=='ticket_') aDivs[i].style.display='none';
 	}
 
 
 	for (i=1; i<(args.length); i+=1) {
 		Qt = args[i];
 		var Qtyobj = MM_findObj(Qt);
 		Qty = Qtyobj.value;
 		if (!Qty == ''&&!Qty=='0') {
 			subobj.style.display='inline';
 	    }
 	}
 }
 
 <%=Scripter%>
 </script>
</body>

</html>
