<!--#include virtual="/includes/topofpage.asp"-->
<%

Dim Page 
Page = "49"

Dim Conn
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open Application("conn_string")

If (UCase(Request.ServerVariables("REQUEST_METHOD")) = "POST" And Request.Form("page") = Page) Then

    If Request.Form("cont") = "1" Then Response.Redirect "default.asp"
    If Request.Form("cont") = "2" Then Response.Redirect "package-create-child.asp"

End If

Function PCase(strInput)
    Dim iPosition 
    Dim iSpace 
    Dim strOutput 

    iPosition = 1

    Do While InStr(iPosition, strInput, " ", 1) <> 0
            iSpace = InStr(iPosition, strInput, " ", 1)
            strOutput = strOutput & UCase(Mid(strInput, iPosition, 1))
            strOutput = strOutput & LCase(Mid(strInput, iPosition + 1, iSpace - iPosition))
            iPosition = iSpace + 1
    Loop

    strOutput = strOutput & UCase(Mid(strInput, iPosition, 1))
    strOutput = strOutput & LCase(Mid(strInput, iPosition + 1))

    PCase = strOutput
End Function

%>
<html>
<STYLE>
BODY {SCROLLBAR-FACE-COLOR: #5e5ebe; SCROLLBAR-HIGHLIGHT-COLOR: #5e5ebe; SCROLLBAR-SHADOW-COLOR: #5e5ebe; SCROLLBAR-3DLIGHT-COLOR: #5e5ebe; SCROLLBAR-ARROW-COLOR:  #6666CC; SCROLLBAR-TRACK-COLOR: #E3E3E3; SCROLLBAR-DARKSHADOW-COLOR: #666666; }
</STYLE>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<script language="JavaScript">
<!--
function MM_swapImgRestore() { //v3.0
  var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;
}

function MM_preloadImages() { //v3.0
  var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
    var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
    if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}

function MM_findObj(n, d) { //v4.0
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
  if(!x && document.getElementById) x=document.getElementById(n); return x;
}

function MM_swapImage() { //v3.0
  var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
   if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
}

function MM_goToURL() { //v3.0
  var i, args=MM_goToURL.arguments; document.MM_returnValue = false;
  for (i=0; i<(args.length-1); i+=2) eval(args[i]+".location='"+args[i+1]+"'");
}

function Sub_Form (cont)
{
  form1.cont.value=cont
  form1.submit();
}
//-->
</script>
<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/standard-input-form.css" type="text/css">
<link rel="stylesheet" href="/Style-sheets/input-form-small.css" type="text/css">
</head>

<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" onLoad="MM_preloadImages('images/icon-return-to-main-2.gif','images/icon-submit-changes-2.gif','images/icon-continue-wizard-2.gif')">
<form name="form1" method="post" action="package-create-4.asp">
<INPUT type="hidden" id=page name=page value="<%=Page%>">
<INPUT type="hidden" id=cont name=cont value="">
<%
For Each item in Request.Form
  If Not UCase(item) = "PAGE" And Not UCase(item) = "CONT" And Not Mid(UCase(item),1, 12) = "LODGING_NAME" Then
	If UCase(Item) = "LODGING_GROUP" Then
		For each value in Request.Form("Lodging_Group")
%>
			<input type="hidden" name="Lodging_Name<%=value%>" value="<%=Request.Form("Lodging_Name" & value)%>">
			<input type="hidden" name="Lodging_Group" value="<%=value%>">
<%
		Next
	Else
		For each value in Request.Form(item)
%>
			<input type="hidden" name="<%=item%>" value="<%=value%>">
<%
		Next
	End If
  End If
Next
%>
<table width="525" border="0" cellspacing="0" cellpadding="2" align="center">
  <tr bgcolor="#FFFFFF"> 
    <td width="467">&nbsp;</td>
    <td align="right" width="58">&nbsp;</td>
  </tr>
  <tr bgcolor="#5e5ebe">
    <td width="467" align="center" class="headline-ffffff" bgcolor="#5e5ebe">Available Room Types</td>
    <td bgcolor="#5e5ebe" align="right" width="58"><a href="javascript:;" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image1','','images/icon-return-to-main-2.gif',1)" onClick="MM_goToURL('parent','default.asp');return document.MM_returnValue"><img src="images/icon-return-to-main.gif" width="75" height="17" usemap="#returntomain" border="0" name="Image1"></a></td>
  </tr>
  <tr> 
    <td width="467" class="sm-hdln"><%= Request("Package_Name") & " - " & Request("Package_Type") %></td>
    <td width="58" class="sm-hdln">&nbsp;</td>
  </tr>
</table>
  <table width="520" border="0" cellspacing="0" cellpadding="1" align="center">
<% If Request("Lodging") = "1" Then %>
    <tr> 
      <td>&nbsp;</td>
      <td>&nbsp;</td>
      <td>&nbsp;</td>
      <td>&nbsp;</td>
      <td>&nbsp;</td>
    </tr>
<%
Dim Group_ID
For Each Group_ID in Request.Form("Lodging_Group")    
	Hotel_Name = Request.Form("Lodging_Name" & Group_ID)

	SQLAmenity = "Select G.[Group_ID], II.[Item_ID], AP.[Name], AP.[Description], ATT.[Att_Desc], "
	SQLAmenity = SQLAmenity & "(select Variable from Amenity_Package_Map APM Where APM.Amenity_Type_ID = '67' And APM.Amenity_ID = AP.Amenity_ID) ""Rate_Occupancy"", "
	SQLAmenity = SQLAmenity & "(select Variable from Amenity_Package_Map APM Where APM.Amenity_Type_ID = '68' And APM.Amenity_ID = AP.Amenity_ID) ""Max_Occupancy"", "
	SQLAmenity = SQLAmenity & "(select Top 1 Cast(R.Rate as money) from inventory_list_lodging ill inner join inventory_detail_lodging idl on idl.inventory_list_id = ill.inventory_list_id inner join [Rate] R on R.Rate_ID = idl.Rate_Cost_ID Where ILL.Item_ID = II.Item_ID and R.Rate_Type_ID = '1' Group By R.Rate Order By Count(R.Rate) DESC) ""Cost"" "
	SQLAmenity = SQLAmenity & "From [Group] G "
	SQLAmenity = SQLAmenity & "	Inner Join Amenity_Package AP On AP.Group_ID = G.Group_ID "
	SQLAmenity = SQLAmenity & "	Inner Join Inventory_Item II On II.Amenity_ID = AP.Amenity_ID "
	SQLAmenity = SQLAmenity & "	Inner Join Attribute_Type ATT On ATT.Att_ID = II.Att_ID "
	SQLAmenity = SQLAmenity & "Where G.Group_ID = '" & Group_ID & "' "
	SQLAmenity = SQLAmenity & "Order By ATT.Att_Desc_Detail "

'rate based occ: 67
'max number in party: 68

	Set RSAmenity = Conn.Execute(SQLAmenity)
    If Not RSAmenity.EOF Then
%>
    <tr> 
      <td colspan="5" class="headline-ffffff" bgcolor="#5e5ebe"><%= PCase(Hotel_Name) %></td>
    </tr>
    <tr bgcolor="#CCCCCC"> 
      <td width="325" class="standard-input-form-small" height="15" align="left">Room Type</td>
      <td width="59" class="standard-input-form-small" height="15" align="center">Rate Occ.</td>
      <td width="59" class="standard-input-form-small" height="15" align="center">Max Occ.</td>
      <td width="58" height="15" class="standard-input-form-small" align="center">Net Rate</td>
      <td width="20" height="15" class="standard-input-form-small" align="center">Include</td>
    </tr>
<%
	Do While Not RSAmenity.EOF
		If Not RSAmenity("Rate_Occupancy") = "" And Not RSAmenity("Cost") = "" Then
%>

    <tr> 
      <td class="standard-input-form" height="14"><%=PCase(RSAmenity("Att_Desc")) & " - " & PCase(RSAmenity("Name"))%></td>
      <td height="14" align="center" class="standard-input-form"><%=RSAmenity("Rate_Occupancy")%></td>
      <td height="14" align="center" class="standard-input-form"><%=RSAmenity("Max_Occupancy")%></td>
      <td height="14" align="center" class="standard-input-form">$<%=RSAmenity("Cost")%></td>
      <td height="14" align="center" class="standard-input-form">
        <input type="checkbox" name="Room_Items" value="<%= RSAmenity("Item_ID")%>">
		<input type="hidden" name="Room_Item_ROcc<%=RSAmenity("Item_ID")%>" value="<%=RSAmenity("Rate_Occupancy")%>">
		<input type="hidden" name="Room_Item_MOcc<%=RSAmenity("Item_ID")%>" value="<%=RSAmenity("Max_Occupancy")%>">
		<input type="hidden" name="Room_Item_Cost<%=RSAmenity("Item_ID")%>" value="<%=RSAmenity("Cost")%>">
		<input type="hidden" name="Room_Item_Name<%=RSAmenity("Item_ID")%>" value="<%=PCase(RSAmenity("Att_Desc")) & " - " & PCase(RSAmenity("Name"))%>">
		<input type="hidden" name="Room_Item_Group<%=RSAmenity("Item_ID")%>" value="<%=Group_ID%>">
      </td>
    </tr>
<%
		End If
		RSAmenity.MoveNext
	   Loop
%>
    <tr> 
      <td>&nbsp;</td>
      <td>&nbsp;</td>
      <td>&nbsp;</td>
      <td>&nbsp;</td>
      <td>&nbsp;</td>
    </tr>
<%
	End If
Next
%>
    <tr> 
      <td>&nbsp;</td>
      <td>&nbsp;</td>
      <td>&nbsp;</td>
      <td>&nbsp;</td>
      <td>&nbsp;</td>
    </tr>

<% Else %>
    <tr> 
      <td>&nbsp;</td>
      <td>&nbsp;</td>
    </tr>
    <tr> 
      <td colspan="2" class="manage-menu">Lodging Items not to be included in Package. Please click continue.</td>
    </tr>
<% End If %>


    <tr> 
      <td>&nbsp;</td>
      <td>&nbsp;</td>
      <td>&nbsp;</td>
      <td>&nbsp;</td>
      <td>&nbsp;</td>
    </tr>    
  </table>
<table width="525" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr bgcolor="#5e5ebe">
    <td align="right" width="49%" height="18"><a href="javascript:Sub_Form('1');" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('submitchanges','','images/icon-submit-changes-2.gif',1)"><img src="images/icon-submit-changes.gif" width="200" height="15" name="submitchanges" border="0"></a></td>
    <td width="51%" height="18"><a href="javascript:Sub_Form('2');" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image2','','images/icon-continue-wizard-2.gif',1)"><img src="images/icon-continue-wizard.gif" width="150" height="15" usemap="#continue" border="0" name="Image2"></a></td>
  </tr>
  <tr> 
    <td width="49%">&nbsp;</td>
    <td width="51%">&nbsp;</td>
  </tr>
</table>
</form>
</body>
</html>
