<!--#include virtual="/includes/resifunctions.asp" -->
<!--#include virtual="/includes/datefunctions.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 SQL1, SQLAttr, SQLPrice, p, j, ArrivalDate, StartDay, EndDay, DepartDate, Weeks, TotalDays, DayCount, Amenity_ID
Dim Conn, RS1, Entity_ID, AvailRooms, No_Rooms, tmpArray, Upper, itinArray

SQL1 = "Select * from Entity E inner join Entity_Detail ED on E.Entity_ID = ED.Entity_ID where E.Entity_ID = '7413' or E.Entity_ID = '7476' "
Set RS1=Conn.Execute(SQL1)
Set RSAmenity = Server.CreateObject("ADODB.Recordset")
SQLAmenity = "Select AP.[Amenity_ID], AP.[Group_ID], II.[Item_ID], AP.[Name], AP.[Description], ATT.[Att_Desc] "
SQLAmenity = SQLAmenity & "from Entity E "
SQLAmenity = SQLAmenity & "Inner Join (Group_Entity_Map GEM "
SQLAmenity = SQLAmenity & "Inner Join ([Group] G "
SQLAmenity = SQLAmenity & "Inner Join (Attribute_Type ATT "
SQLAmenity = SQLAmenity & "Inner Join (Inventory_Item II "
SQLAmenity = SQLAmenity & "Inner Join Amenity_Package AP "
SQLAmenity = SQLAmenity & "On II.Amenity_ID = AP.Amenity_ID) "
SQLAmenity = SQLAmenity & "On ATT.Att_ID = II.Att_ID) "
SQLAmenity = SQLAmenity & "On AP.Group_ID = G.Group_ID) "
SQLAmenity = SQLAmenity & "On GEM.Group_ID = G.Group_ID) "
SQLAmenity = SQLAmenity & "On E.Entity_ID = GEM.Entity_ID "
SQLAmenity = SQLAmenity & "Where E.Entity_ID='7413' "
SQLAmenity = SQLAmenity & "Order By ATT.Att_Desc_Detail"
RSAmenity.Open SQLAmenity, Conn
Set RSAttr = Server.CreateObject("ADODB.Recordset")
SQLAttr = "Select AMT.Name, APM.Variable, APM.Amenity_Type_ID from Amenity_Package AP inner join (Amenity_Package_Map APM inner join Amenity_Type AMT on APM.Amenity_Type_ID = AMT.Amenity_Type_ID) "
SQLAttr = SQLAttr & "on AP.Amenity_ID = APM.Amenity_ID where AP.Amenity_ID = '" & RSAmenity("Amenity_ID") & "'"
RSAttr.Open SQLAttr, Conn

%>


<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"></script>
<script language="JavaScript">
<!--




<!--
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">
</head>
<body bgcolor="#000000" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" onLoad="MM_preloadImages('/images/menu/packages-dim.gif','/images/reservation-button-dim.gif','/images/menu/resort-amentites-dim.gif','/images/menu/campsites-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="117" height="534" 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="533" height="336" align="center" valign="top"> 
      <table width="520" border="0" cellspacing="0" cellpadding="0" bgcolor="#DCECED">
        <tr> 
          <td width="504" align="left" valign="top" class="tableSpace"><img src="/images/conerUL.gif" width="14" height="15"></td>
          <td width="16" valign="top" align="right" class="tableSpace"><img src="/images/conerUR.gif" width="15" height="14"></td>
        </tr>
        <!--Begin ASP Code-->
        <%
          Do While Not RSAmenity.EOF
          
          %>
        <tr> 
          <td valign="bottom" height="11" width="504"><span class="profile-headlinesBLD"><%=RSAmenity("Name")%> 
            - <%=RSAmenity("Att_Desc")%></span>
          </td>
        </tr>
        <tr> 
          <td valign="bottom" width="504" align="center"><img src="/images/rule.gif" width="490" height="7" align="top"></td>
        </tr>
        <tr> 
          <td valign="top" height="111" width="504"> 
            <!--<p><span class="profile-subhead">Sleeps up to 
              <%
				If Not RSAttr.EOF Then
				RSAttr.MoveFirst()
				Do While Not RSAttr.EOF
				If RSAttr("Amenity_Type_ID") = "68" Then
				If RSAttr("Variable") > 1 Then
				Response.Write RSAttr("Variable") & " Guests"
				Else
				Response.Write RSAttr("Variable") & " Guest"
				End If
				End If
				RSAttr.MoveNext()
				Loop
				RSAttr.MoveFirst()
				End If
            %>-->
            <br><span class="imageclip"><%= Get_image_by_lodging_item(rsamenity("item_id"), 32, False)%></span><br>
            <span class="profile-subhead"><%=RSAmenity("Description")%></span><br>
            <div align="center"><a href="/reservations.asp"><img src="/images/reservation-button.gif" width="125" height="50" name="resButton" onMouseOver="MM_swapImage('resButton','','/images/reservation-button-dim.gif',1)" border="0"></a></div>
          </td>
        </tr>
        <%
        RSAmenity.MoveNext()
        loop
        %>
        <!--End ASP Code-->
        <tr> 
          <td width="504" align="left" valign="bottom" class="tableSpace"><img src="/images/conerLL.gif" width="15" height="14"></td>
          <td width="16" align="right" valign="bottom" class="tableSpace"><img src="/images/conerLR.gif" width="15" height="15"></td>
        </tr>
      </table>
    </td>
  </tr>
  <tr> 
    <td colspan="2"><img src="/images/footer-650.jpg" width="650" height="33"></td>
  </tr>
</table>
<!--#include virtual="/includes/footer.asp" -->
</body>
</html>
