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

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

If (UCase(Request.ServerVariables("REQUEST_METHOD")) = "POST" And Request.Form("page") = "0") Then
	If Request.Form("Admin_Group_ID") <> "" Then
		Session("Admin_Group_ID") = Request.Form("Admin_Group_ID")
	End If
	
	If Session("Admin_Group_ID") = "" Then
		Session("Admin_Group_ID") = "0"
	End If
End If

Dim SQLName, RSName
SQLName = "get_entity_from_group @Group_ID='" & Session("Admin_Group_ID") & "'"
Set RSName=Conn.Execute(SQLName)
%>

<%' Getting data for page if avaiable for autofilling page
	Dim SQL2, RS2, SQL3, RS3, SQL4, RS4
	Dim Rows, Cols, iRows, iCols, iMax
	Dim Pre_Assigned_Rooms, Dumb_Ass_Rooms(), iAssigned_Rooms()
	Dim Num_Room_Types,Total_Rooms,Rooms() ' Must enter the max number of the att_ID to be displayed on this page
	
	'Getting Max Att_ID for Arrays
	SQL2 = "Exec Get_Max_Att_ID '7'"
	Set RS2 = Conn.Execute(SQL2)
	
	Max_Att_ID = RS2("Max_Att_ID")
	
	'Response.Write 	Max_Att_ID & "<BR>"
	
	'Dynamic Definition of array
	ReDim Unasigned_Rooms(Max_Att_ID)
	Redim Rooms(Max_Att_ID)
	ReDim iAssigned_Rooms(Max_Att_ID)
	
	SQL3 = "Exec Get_Amenity_Package_Assignment @Group_ID = '" & Session("Admin_Group_ID") & "'"
	Set RS3 = Conn.Execute(SQL3)
		
	If Not RS3.EOF Then
		Pre_Assigned_Rooms = RS3.GetRows() 'Builds Array from SQL Call
		
		Cols = Ubound(Pre_Assigned_Rooms,1) ' Getting total number of Cols in Array (-1)  Array starts at xx(0,0,...)
		Rows = Ubound(Pre_Assigned_Rooms,2) ' Getting total number of Rows in Array (-1)  Array starts at xx(0,0,...)

		'Finding Max number in rows and in column values
		iMax = 0
		For iRows = 0 to Rows
				If (Pre_Assigned_Rooms(0,iRows)) > iMax Then
					iMax = (Pre_Assigned_Rooms(0,iRows))
				End If
		Next
		
		'Dynamic Definition of array
		ReDim Dumb_Ass_Rooms(iMax,Max_Att_ID)
				
		'*********** Debug Code **********
				'Response.Write Session("Admin_Group_ID") & "<BR>"
				'Response.Write Cols & " " & Rows & "<BR>"
				'Response.Write iMax & " " & iMax1 & "<BR>"
		'******** End Debug Code *********
		
		'Setting Dumb_Ass_Rooms(Amenity_ID, Att_ID) = Total_On_Prop from SP Get_Amenity_Package_Assignment
		For iRows = 0 to Rows
			Dumb_Ass_Rooms((Pre_Assigned_Rooms(0,iRows)),(Pre_Assigned_Rooms(1,iRows)))=0 + Pre_Assigned_Rooms(2,iRows)
			iAssigned_Rooms(Pre_Assigned_Rooms(1,iRows)) = 0 + iAssigned_Rooms(Pre_Assigned_Rooms(1,iRows)) + Pre_Assigned_Rooms(2,iRows)
			'*********** Debug Code **********
				'Response.Write Pre_Assigned_Rooms(0,iRows) & " " & Pre_Assigned_Rooms(1,iRows) & " "
				'Response.Write Dumb_Ass_Rooms((Pre_Assigned_Rooms(0,iRows)),(Pre_Assigned_Rooms(1,iRows))) & "<BR>  " 
			'******** End Debug Code *********
		Next
	End If
		
	' Getting total number of rooms for this Group
	SQL4="Get_Attribute_Values @GroupID='" & Session("Admin_Group_ID") & "', @Att_group_id='7'" 'Att_Group_ID = 7 displays only the Lodging-Accomodation-Types Attributes
	
	Total_Rooms = 0 ' Resetting total room counter
		
	Set RS4 = Conn.Execute(SQL4)
	
	If Not RS4.EOF Then
		Num_Room_Types = RS4.GetRows() 'Builds Array from SQL Call
		
		Cols = Ubound(Num_Room_Types,1) ' Getting total number of Cols in Array (-1)  Array starts at xx(0,0,...)
		Rows = Ubound(Num_Room_Types,2) ' Getting total number of Rows in Array (-1)  Array starts at xx(0,0,...)

		'Response.Write  "r: " & Rows & "Max: " & Max_Att_ID & "RmT: " & Num_Room_Types(2,iRows) 
		'Response.Write  "<BR>"

		For iRows = 0 to Rows
				'Response.Write "NRT "
				'Response.Write Num_Room_Types(2,iRows)  
			Rooms(Num_Room_Types(4,iRows)) = Num_Room_Types(3,iRows)
				'Response.Write " R "
				'Response.Write Rooms(Num_Room_Types(2,iRows))
			Total_Rooms = Total_Rooms + Rooms(Num_Room_Types(4,iRows))
				'Response.Write " AR "
				'Response.Write iAssigned_Rooms(Num_Room_Types(2,iRows)) & "AR "
			Unasigned_Rooms(Num_Room_Types(4,iRows)) = 0 + Rooms(Num_Room_Types(4,iRows))-iAssigned_Rooms(Num_Room_Types(4,iRows))
				'Response.Write " uRMs: "
				'Response.Write  Unasigned_Rooms(Num_Room_Types(2,iRows)) & "<BR>"
				'Response.Write "Unassigned Rooms: " & (Rooms(Num_Room_Types(2,iRows))-iAssigned_Rooms(Num_Room_Types(2,iRows))) & "<BR>"
		Next
			'Response.Write Total_Rooms
	End If
%>

<%'Posting Variables on Save
If (UCase(Request.ServerVariables("REQUEST_METHOD")) = "POST" And Request.Form("page") = Page) Then
	
	Dim i, Form_String, Sub_String, Room_Total, Amenity_Package, Attribute_ID, Assigned_Rooms
	Dim SQL
	
	Form_String = Split(Request.Form, "&", -1)

    i=2
    Room_Total = 0
    Do while i < (Request.Form.Count)		
		
		Sub_String = Split(Form_String(i), "=", -1)
		Amenity_Package = Split(Sub_String(0), "a", -1)
		Attribute_ID = Split(Amenity_Package(0), "r", -1)
		Assigned_Rooms = Sub_String(1)
		
		If (Sub_String(1) = "") Then
			Assigned_Rooms = "0"	
		End If	
				
		SQL = "Update_Inventory_Item @Att_ID = '" & Attribute_ID(1) & "', @Amenity_ID ='" & Amenity_Package(1) & "', @Total_On_Prop ='" & Assigned_Rooms & "'" 
			'******* Begin Debug Code ********
				'Response.Write "Standard:<BR>"
				'Response.Write Amenity_Package(1) & " "
				'Response.Write Attribute_ID(1) & " "
				'On Error Resume Next
				'	Response.Write Dumb_Ass_Rooms(Amenity_Package(1),Attribute_ID(1)) & " :: "
				'On Error Goto 0
				'Response.Write Assigned_Rooms & "<BR>"
				'Response.Write SQL & "<BR><BR>"
			'******** End Debug Code *********
		Conn.Execute (SQL)
		If Assigned_Rooms > 0 Then
			Room_Total = Room_Total + Sub_String(1)
		End If
		i=i+1
    Loop 
    
    ' Linking to the next page
    If Request.Form("cont") = "1" Then Response.Redirect "default.asp"
    If Request.Form("cont") = "2" Then Response.Redirect "admin-resi-window.asp"

End If
%>

<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/standard-input-form.css" type="text/css">
<link rel="stylesheet" href="/Style-sheets/headline.css" type="text/css">
<link rel="stylesheet" href="/Style-sheets/galley-text-indent.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="">
<INPUT type="hidden" id=page name=page value="<%=Page%>">
<INPUT type="hidden" id=cont name=cont >
  <table width="525" border="0" cellspacing="0" cellpadding="2" align="center">
    <tr> 
      <td width="338">&nbsp;</td>
      <td align="right" width="187">&nbsp;</td>
    </tr>
    <tr> 
      <td width="338" bgcolor="#5e5ebe" class="headline-ffffff" 

align="middle">Amenity Package Assignment</td>

      <td bgcolor="#5e5ebe" align="right" width="187"><A onmouseover="MM_swapImage('Image1','','images/icon-return-to-main-2.gif',1)" onmouseout=MM_swapImgRestore() href="default.asp"><IMG height=17 src="images/icon-return-to-main.gif" width=75 useMap=#returntomain border=0 name=Image1></A></td>
    </tr>
    <% If Not RSName.EOF Then %>
    <tr> 
      <td class="galley-text-indent" colspan="2"><%=RSName("Name")%>                                                                                                 - <%=RSName("City")%>                                                                                                                , 
        <%=RSName("State")%>&nbsp; <%=RSName("ZIP")%></td>
    </tr>
    <% Else %>
    <tr> 
      <td class="galley-text-indent-alert" colspan="2">No Entity Selected! Go 
        back and choose a location to edit from the dropdown menu.</td>
    </tr>
    <% End If %>
    <% RSName.Close %>
  </table>
<TABLE cellSpacing=0 cellPadding=0 width="499" align=center border=0>
  <TR>
    <TD colSpan=4 bgcolor="#5e5ebe"><font color="#ffffff"><span class="headline-ffffff">Total Available Rooms for Property</span></font></TD></TR>
  <TR>
	<TD width="200" class="manage-menu-bold">Singles</TD>
    <TD width="49" class="manage-menu"><%If Rooms(411)>0 Then Response.Write Rooms(411) Else Response.Write "0" End If%></TD>

    <TD width="200" class="manage-menu-bold">Double Singles</TD>
    <TD width="49" class="manage-menu"><%If Rooms(550)>0 Then Response.Write Rooms(550) Else Response.Write "0" End If%></TD></TR>
  <TR>
    <TD width="200" class="manage-menu-bold">Single Doubles</TD>
    <TD width="49" class="manage-menu"><%If Rooms(412)>0 Then Response.Write Rooms(412) Else Response.Write "0" End If%></TD>
    <TD width="200" class="manage-menu-bold">Single Kings</TD>
    <TD width="49" class="manage-menu"><%If Rooms(413)>0 Then Response.Write Rooms(413) Else Response.Write "0" End If%></TD></TR>
  <TR>
    <TD width="200" class="manage-menu-bold">Double Kings</TD>
    <TD width="49" class="manage-menu"><%If Rooms(143)>0 Then Response.Write Rooms(143) Else Response.Write "0" End If%></TD>
    <TD width="200" class="manage-menu-bold">Single Queens</TD>
    <TD width="49" class="manage-menu"><%If Rooms(414)>0 Then Response.Write Rooms(414) Else Response.Write "0" End If%></TD></TR>
  <TR>
    <TD width="200" class="manage-menu-bold">Double Queens</TD>
    <TD width="49" class="manage-menu"><%If Rooms(144)>0 Then Response.Write Rooms(144) Else Response.Write "0" End If%></TD>
    <TD width="200" class="manage-menu-bold">Double Doubles</TD>
    <TD width="49" class="manage-menu"><%If Rooms(142)>0 Then Response.Write Rooms(142) Else Response.Write "0" End If%></TD></TR>
  <TR>
    <TD width="200" class="manage-menu-bold">Suites</TD>
    <TD width="49" class="manage-menu"><%If Rooms(435)>0 Then Response.Write Rooms(435) Else Response.Write "0" End If%></TD>
    <TD width="200" class="manage-menu-bold">Apartments</TD>
    <TD width="49" class="manage-menu"><%If Rooms(551)>0 Then Response.Write Rooms(551) Else Response.Write "0" End If%></TD></TR>
  <TR>
    <TD width="200" class="manage-menu-bold">Condominums</TD>
    <TD width="49" class="manage-menu"><%If Rooms(552)>0 Then Response.Write Rooms(552) Else Response.Write "0" End If%></TD>
    <TD width="200" class="manage-menu-bold">Cottages</TD>
    <TD width="49" class="manage-menu"><%If Rooms(553)>0 Then Response.Write Rooms(553) Else Response.Write "0" End If%></TD></TR>
  <TR>
    <TD width="200" class="manage-menu-bold">Houses</TD>
    <TD width="49" class="manage-menu"><%If Rooms(554)>0 Then Response.Write Rooms(554) Else Response.Write "0" End If%></TD>
    <TD width="200" class="manage-menu-bold"></TD>
    <TD width="49" class="manage-menu"></TD></TR>
  <TR>
    <TD colSpan=4><font size=1>
      <HR id=HR1>
      </font></TD></TR>
  <TR><TD colspan = 4 class="manage-menu">
      <P align=center><Strong>Note:</Strong>&nbsp;&nbsp;&nbsp; Total number of room types assigned to packages 
      must equal the total number of room types listed above.  If a value is negative and colored <Font Color=red>red</Font>, that room type is over allocated.  Please check your room assignments and resave your data.</P></TD></TR>    
</TABLE>

<% ' Displaying Amenity Packages for Property %>
  <% ' Begining list table 
  
  Dim SQL1, RS1
  
  SQL1 = "Get_Amenity_List @Group_ID = '" & Session("Admin_Group_ID") & "'"
  'Response.Write SQL1
  Set RS1=Conn.Execute(SQL1)
  
  'Checking for No Data
  if rs1.eof then
  %>
	<p><CENTER><FONT face=Verdana color=#cc0000 size=2>Entity has 
	no Amenity Packages, Please go back and create a new Package</FONT></CENTER>
	<P><FONT face=Txt></FONT></P>  
  <% 'Writting Table if Data is Available
  Else
  Dim RM
  ' Writting Data if Data Present to Table
		Do while not rs1.eof
  %>
<table width="499" border="0" cellspacing="2" cellpadding="0" align="center" id=TABLE1 style="LEFT: 366px; TOP: 90px">
    <tr> 
      <td colspan="2" bgcolor="#5e5ebe"><font color="#ffffff"><span class="headline-ffffff"><%=RS1("Name")%></span><br>
        <font size="1" class="input-box"><%=RS1("Description")%></font></font></td>
    </tr>
    <%	RM=411 
		If Rooms(RM)>0 Then
	%> 
    <tr> 
      <td width="150" class="manage-menu-bold">&nbsp;Singles</td>
      <td width="349" class="manage-menu"> Package Assigned to 
      <INPUT size=4 name='r<%=RM%>a<%=rs1("Amenity_ID")%>' <% On Error Resume Next %><%IF Dumb_Ass_Rooms(RS1("Amenity_ID"),RM)> 0 Then Response.Write "value='" & Dumb_Ass_Rooms(Rs1("Amenity_ID"),RM) & "'" End If %><% On Error GoTo 0 %>>  Rooms <td>    
    </tr>
    <TR>
      <TD colspan="2" class="manage-menu"><P align=right><Font Size=1>Unassigned Rooms: <%If Unasigned_Rooms(RM)<0 Then Response.Write "<Font Color=red>" End if%> <%Response.Write Unasigned_Rooms(RM) %></Font></p></td>
    </tr>
    <%End If%>
    <%	RM=550 
		If Rooms(RM)>0 Then
	%>
    <tr bgcolor="#cccccc"> 
      <td colspan="2"><IMG height=3 src="../images/shim.gif" width=1></td>
    </tr>
    <tr> 
      <td width="150" height="26" class="manage-menu-bold">&nbsp;Double Singles </td>
      <td width="349" height="26" class="manage-menu"> Package Assigned to 
      <% On Error Resume Next %>
      <INPUT size=4 name='r<%=RM%>a<%=rs1("Amenity_ID")%>' <%IF Dumb_Ass_Rooms(RS1("Amenity_ID"),RM)> 0 Then Response.Write "value='" & Dumb_Ass_Rooms(Rs1("Amenity_ID"),RM) & "'" End If %>>  Rooms </td>
      <% On Error GoTo 0 %>
    </tr>
    <TR>
      <TD colspan="2" class="manage-menu"><P align=right><Font Size=1>Unassigned Rooms: <%If Unasigned_Rooms(RM)<0 Then Response.Write "<Font Color=red>" End If %> <%Response.Write Unasigned_Rooms(RM) %></Font></p></td>
    </tr>
    <%End If%>
    <%	RM=412 
		If Rooms(RM)>0 Then
	%>
    <tr bgcolor="#cccccc"> 
      <td colspan="2"><IMG height=3 src="../images/shim.gif" width=1></td>
    </tr>
    <tr> 
      <td width="150" height="26" class="manage-menu-bold">&nbsp;Single Doubles </td>
      <td width="349" height="26" class="manage-menu"> Package Assigned to 
      <% On Error Resume Next %>
      <INPUT size=4 name='r<%=RM%>a<%=rs1("Amenity_ID")%>' <%IF Dumb_Ass_Rooms(RS1("Amenity_ID"),RM)> 0 Then Response.Write "value='" & Dumb_Ass_Rooms(Rs1("Amenity_ID"),RM) & "'" End If %>>  Rooms </td>
      <% On Error GoTo 0 %>
    </tr>
    <TR>
      <TD colspan="2" class="manage-menu"><P align=right><Font Size=1>Unassigned Rooms: <%If Unasigned_Rooms(RM)<0 Then Response.Write "<Font Color=red>" End If%> <%Response.Write Unasigned_Rooms(RM) %></Font></p></td>
    </tr>    
    <%End If%>
    <%	RM=413 
		If Rooms(RM)>0 Then
	%>
    <tr bgcolor="#cccccc"> 
      <td colspan="2"><IMG height=3 src="../images/shim.gif" width=1></td>
    </tr>
    <tr> 
      <td width="150" height="26" class="manage-menu-bold">&nbsp;Single Kings </td>
      <td width="349" height="26" class="manage-menu"> Package Assigned to 
      <% On Error Resume Next %>
      <INPUT size=4 name='r<%=RM%>a<%=rs1("Amenity_ID")%>' <%IF Dumb_Ass_Rooms(RS1("Amenity_ID"),RM)> 0 Then Response.Write "value='" & Dumb_Ass_Rooms(Rs1("Amenity_ID"),RM) & "'" End If %>>  Rooms </td>
      <% On Error GoTo 0 %>
    </tr>
    <TR>
      <TD colspan="2" class="manage-menu"><P align=right><Font Size=1>Unassigned Rooms: <%If Unasigned_Rooms(RM)<0 Then Response.Write "<Font Color=red>" End If%> <%Response.Write Unasigned_Rooms(RM) %></Font></p></td>
    </tr>    
    <%End If%>
    <%	RM=143 
		If Rooms(RM)>0 Then
	%>
    <tr bgcolor="#cccccc"> 
      <td colspan="2"><IMG height=3 src="../images/shim.gif" width=1></td>
    </tr>
    <tr> 
      <td width="150" height="26" class="manage-menu-bold">&nbsp;Double Kings </td>
      <td width="349" height="26" class="manage-menu"> Package Assigned to 
      <% On Error Resume Next %>
      <INPUT size=4 name='r<%=RM%>a<%=rs1("Amenity_ID")%>' <%IF Dumb_Ass_Rooms(RS1("Amenity_ID"),RM)> 0 Then Response.Write "value='" & Dumb_Ass_Rooms(Rs1("Amenity_ID"),RM) & "'" End If %>>  Rooms </td>
      <% On Error GoTo 0 %>
    </tr>
    <TR>
      <TD colspan="2" class="manage-menu"><P align=right><Font Size=1>Unassigned Rooms: <%If Unasigned_Rooms(RM)<0 Then Response.Write "<Font Color=red>" End If%> <%Response.Write Unasigned_Rooms(RM) %></Font></p></td>
    </tr>    
    <%End If%>
    <%	RM=414 
		If Rooms(RM)>0 Then
	%>
    <tr bgcolor="#cccccc"> 
      <td colspan="2"><IMG height=3 src="../images/shim.gif" width=1></td>
    </tr>
    <tr> 
      <td width="150" height="26" class="manage-menu-bold">&nbsp;Single Queens </td>
      <td width="349" height="26" class="manage-menu"> Package Assigned to 
      <% On Error Resume Next %>
      <INPUT size=4 name='r<%=RM%>a<%=rs1("Amenity_ID")%>' <%IF Dumb_Ass_Rooms(RS1("Amenity_ID"),RM)> 0 Then Response.Write "value='" & Dumb_Ass_Rooms(Rs1("Amenity_ID"),RM) & "'" End If %>>  Rooms </td>
      <% On Error GoTo 0 %>
    </tr>
    <TR>
      <TD colspan="2" class="manage-menu"><P align=right><Font Size=1>Unassigned Rooms: <%If Unasigned_Rooms(RM)<0 Then Response.Write "<Font Color=red>" End if%><%Response.Write Unasigned_Rooms(RM)%></Font></p></td>
    </tr>    
    <%End If%>
    <%	RM=144 
		If Rooms(RM)>0 Then
	%>
    <tr bgcolor="#cccccc"> 
      <td colspan="2"><IMG height=3 src="../images/shim.gif" width=1></td>
    </tr>    
    <tr> 
      <td width="150" height="26" class="manage-menu-bold">&nbsp;Double Queens </td>
      <td width="349" height="26" class="manage-menu"> Package Assigned to 
      <% On Error Resume Next %>
      <INPUT size=4 name='r<%=RM%>a<%=rs1("Amenity_ID")%>' <%IF Dumb_Ass_Rooms(RS1("Amenity_ID"),RM)> 0 Then Response.Write "value='" & Dumb_Ass_Rooms(Rs1("Amenity_ID"),RM) & "'" End If %>>  Rooms </td>
      <% On Error GoTo 0 %>
    </tr>
    <TR>
      <TD colspan="2" class="manage-menu"><P align=right><Font Size=1>Unassigned Rooms: <%If Unasigned_Rooms(RM)<0 Then Response.Write "<Font Color=red>" End if%><%Response.Write Unasigned_Rooms(RM)%></Font></p></td>
    </tr>    
    <%End If%>
    <%	RM=142 
		If Rooms(RM)>0 Then
	%>
    <tr bgcolor="#cccccc"> 
      <td colspan="2"><IMG height=3 src="../images/shim.gif" width=1></td>
    </tr>   
    <tr> 
      <td width="150" height="26" class="manage-menu-bold">&nbsp;Double Doubles </td>
      <td width="349" height="26" class="manage-menu"> Package Assigned to 
      <% On Error Resume Next %>
      <INPUT size=4 name='r<%=RM%>a<%=rs1("Amenity_ID")%>' <%IF Dumb_Ass_Rooms(RS1("Amenity_ID"),RM)> 0 Then Response.Write "value='" & Dumb_Ass_Rooms(Rs1("Amenity_ID"),RM) & "'" End If %>>  Rooms </td>
      <% On Error GoTo 0 %>
    </tr>
    <TR>
      <TD colspan="2" class="manage-menu"><P align=right><Font Size=1>Unassigned Rooms: <%If Unasigned_Rooms(RM)<0 Then Response.Write "<Font Color=red>" End if%><%Response.Write Unasigned_Rooms(RM)%></Font></p></td>
    </tr>    
    <%End If%>
    <%	RM=435 
		If Rooms(RM)>0 Then
	%>
    <tr bgcolor="#cccccc"> 
      <td colspan="2"><IMG height=3 src="../images/shim.gif" width=1></td>
    </tr>    
    <tr> 
      <td width="150" height="26" class="manage-menu-bold">&nbsp;Suites </td>
      <td width="349" height="26" class="manage-menu"> Package Assigned to 
      <% On Error Resume Next %>
      <INPUT size=4 name='r<%=RM%>a<%=rs1("Amenity_ID")%>' <%IF Dumb_Ass_Rooms(RS1("Amenity_ID"),RM)> 0 Then Response.Write "value='" & Dumb_Ass_Rooms(Rs1("Amenity_ID"),RM) & "'" End If %>>  Rooms </td>
      <% On Error GoTo 0 %>
    </tr>
    <TR>
      <TD colspan="2" class="manage-menu"><P align=right><Font Size=1>Unassigned Rooms: <%If Unasigned_Rooms(RM)<0 Then Response.Write "<Font Color=red>" End if%><%Response.Write Unasigned_Rooms(RM)%></Font></p></td>
    </tr>    
    <%End If%>
    <%	RM=551 
		If Rooms(RM)>0 Then
	%>
    <tr bgcolor="#cccccc"> 
      <td colspan="2"><IMG height=3 src="../images/shim.gif" width=1></td>
    </tr>  
    <tr> 
      <td width="150" height="26" class="manage-menu-bold"> &nbsp;Apartments </td>
      <td width="349" height="26" class="manage-menu"> Package Assigned to 
      <% On Error Resume Next %>
      <INPUT size=4 name='r<%=RM%>a<%=rs1("Amenity_ID")%>' <%IF Dumb_Ass_Rooms(RS1("Amenity_ID"),RM)> 0 Then Response.Write "value='" & Dumb_Ass_Rooms(Rs1("Amenity_ID"),RM) & "'" End If %>>  Rooms </td>
      <% On Error GoTo 0 %>
    </tr>
    <TR>
      <TD colspan="2" class="manage-menu"><P align=right><Font Size=1>Unassigned Rooms: <%If Unasigned_Rooms(RM)<0 Then Response.Write "<Font Color=red>" End if%><%Response.Write Unasigned_Rooms(RM)%></Font></p></td>
    </tr>    
    <%End If%>
    <%	RM=552 
		If Rooms(RM)>0 Then
	%>
    <tr bgcolor="#cccccc"> 
      <td colspan="2"><IMG height=3 src="../images/shim.gif" width=1></td>
    </tr>    
    <tr> 
      <td width="150" height="26" class="manage-menu-bold"> &nbsp;Condominiums </td>
      <td width="349" height="26" class="manage-menu"> Package Assigned to 
      <% On Error Resume Next %>
      <INPUT size=4 name='r<%=RM%>a<%=rs1("Amenity_ID")%>' <%IF Dumb_Ass_Rooms(RS1("Amenity_ID"),RM)> 0 Then Response.Write "value='" & Dumb_Ass_Rooms(Rs1("Amenity_ID"),RM) & "'" End If %>>  Rooms </td>
      <% On Error GoTo 0 %>
    </tr>
    <TR>
      <TD colspan="2" class="manage-menu"><P align=right><Font Size=1>Unassigned Rooms: <%If Unasigned_Rooms(RM)<0 Then Response.Write "<Font Color=red>" End if%><%Response.Write Unasigned_Rooms(RM)%></Font></p></td>
    </tr>    
    <%End If%>
    <%	RM=553 
		If Rooms(RM)>0 Then
	%>
    <tr bgcolor="#cccccc"> 
      <td colspan="2"><IMG height=3 src="../images/shim.gif" width=1></td>
    </tr>    
    <tr> 
      <td width="150" height="26" class="manage-menu-bold"> &nbsp;Cottages </td>
      <td width="349" height="26" class="manage-menu"> Package Assigned to 
      <% On Error Resume Next %>
      <INPUT size=4 name='r<%=RM%>a<%=rs1("Amenity_ID")%>' <%IF Dumb_Ass_Rooms(RS1("Amenity_ID"),RM)> 0 Then Response.Write "value='" & Dumb_Ass_Rooms(Rs1("Amenity_ID"),RM) & "'" End If %>>  Rooms </td>
      <% On Error GoTo 0 %>
    </tr>
    <TR>
      <TD colspan="2" class="manage-menu"><P align=right><Font Size=1>Unassigned Rooms: <%If Unasigned_Rooms(RM)<0 Then Response.Write "<Font Color=red>" End if%><%Response.Write Unasigned_Rooms(RM)%></Font></p></td>
    </tr>    
    <%End If%>
    <%	RM=554 
		If Rooms(RM)>0 Then
	%>
    <tr bgcolor="#cccccc"> 
      <td colspan="2"><IMG height=3 src="../images/shim.gif" width=1></td>
    </tr>
	<tr> 
      <td width="150" height="26" class="manage-menu-bold"> &nbsp;Houses </td>
      <td width="349" height="26" class="manage-menu"> Package Assigned to 
      <% On Error Resume Next %>
      <INPUT size=4 name='r<%=RM%>a<%=rs1("Amenity_ID")%>' <%IF Dumb_Ass_Rooms(RS1("Amenity_ID"),RM)> 0 Then Response.Write "value='" & Dumb_Ass_Rooms(Rs1("Amenity_ID"),RM) & "'" End If %>>  Rooms </td>
      <% On Error GoTo 0 %>
    </tr>
    <%End If%>
  </table>
  <% ' End List Table
			rs1.movenext
		Loop
	End If	
  %>
  <table width="525" border="0" cellspacing="0" cellpadding="0" align="center">
    <tr bgcolor="#5e5ebe"> 
<!-- -->
      <td align="right" width="49%" bgcolor="#5e5ebe">
		<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%">
		<a href="javascript:Sub_Form('2');" onmouseover="MM_swapImage('Image2','','images/icon-continue-wizard-2.gif',1)"  onmouseout=MM_swapImgRestore()>
			<img src="images/icon-continue-wizard.gif" width="150" height="15" usemap="#continue" border="0" name="Image2">
		</a>
	  </td>

 <!-- -->
 <!--
      <td align="right" width="49%" bgcolor="#5e5ebe">
		<A onmouseover="MM_swapImage('submitchanges','','images/icon-submit-changes-2.gif',1)" onclick="MM_goToURL('parent','default.asp');return document.MM_returnValue" onmouseout=MM_swapImgRestore() href="javascript:;" >
			<IMG height=15 src="images/icon-submit-changes.gif" width=200 border=0 name=submitchanges>
		</A>
	  </td>
      <td width="51%">
		<A onmouseover="MM_swapImage('Image2','','images/icon-continue-wizard-2.gif',1)" onclick="MM_goToURL('parent','room-rates_seasonality_define.asp');return document.MM_returnValue" onmouseout=MM_swapImgRestore() href="javascript:;" >
			<IMG height=15 src="images/icon-continue-wizard.gif" width=150 useMap=#continue border=0 name=Image2>
		</A>
	  </td>
 -->
	  </td>
  </tr>
  <tr> 
    <td width="49%">&nbsp;</td>
    <td width="51%">&nbsp;</td>
  </tr>
</table>
</form>
</body>
</html>
<% Set Conn = Nothing %>