<!--#include virtual="/includes/topofpage.asp"-->
<%	
Dim Conn
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open Application("conn_string")

' Getting Lodging Group ID
Dim Lodging_ID
If (UCase(Request.ServerVariables("REQUEST_METHOD")) = "POST" And Request.Form("page") = "0") Then
	If Request.Form("Lodging_ID") <> "" Then
		Lodging_ID = Request.Form("Lodging_ID")
	ElseIf Request.Form("Lodging_ID") = "" And Session("Admin_Group_ID") <> "" Then
		Lodging_ID = Session("Admin_Group_ID")
	Else
		Lodging_ID = "0"
	End If
	Session("Admin_Group_ID") = Lodging_ID	
End If

'Getting Amenity Package ID
Dim iAmenity_ID
iAmenity_ID = Request.QueryString("Amenity_ID")
'Response.Write iAmenity_ID

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

<% ' Posting
If (UCase(Request.ServerVariables("REQUEST_METHOD")) = "POST" And Request.Form("page") = "17") Then
	Dim SQL, RS, SQL1, RS1, SQL2, RS2, SQL3, RS3, Amenity_ID
	' Update Amenity Package
		' Updateing the Amenity Group Name, and Description 
			SQL = "Update_Amenity_Group_Package @Group_ID='" & Session("Admin_Group_ID") & "', @Name='" & Request.Form("Package_Name") & "', @Description='" & Request.Form("Package_Description") & "', @Amenity_ID='" & iAmenity_ID & "'"
			Conn.Execute(SQL)
			'Response.Write SQL			
		
		' Getting the Amenity ID based on Group_ID and Name
			SQL3= "Get_Amenity_ID @Group_ID='" & Session("Admin_Group_ID") & "',@Name='" & Request.Form("Package_Name") & "'"
			'Response.Write SQL3
			Set RS3=Conn.Execute(SQL3)
			Amenity_ID = RS3("Amenity_ID")
			RS3.Close	
	
	'Put Amenity Package Mappings into table
	Dim i, Amenity_Check

	i=1
		' Saving Check Box Data
		Do Until i=66
			Amenity_Check = "Amenity" & i
			If (Request.Form(Amenity_Check)="checkbox") Then
				SQL1 = "Update_Amenity_Package_Map @Amenity_ID = '" & Amenity_ID & "', @Amenity_Type_ID='" & i & "', @TF='1'"
				Conn.Execute(SQL1)
			Else 
				SQL1 = "Update_Amenity_Package_Map @Amenity_ID = '" & Amenity_ID & "', @Amenity_Type_ID='" & i & "', @TF='0'"
				Conn.Execute(SQL1)
				'Response.Write SQL1
			End If
			i=i+1
		Loop
		
		' Saving Text Data
		i=66
		Do Until i=69
			Amenity_Check = "AmenityText" & i
			If Not (Request.Form(Amenity_Check)="") Then
				SQL2 = "Update_Amenity_Package_Map @Amenity_ID = '" & Amenity_ID & "', @Amenity_Type_ID='" & i & "', @TF='1', @Variable='" & Request.Form(Amenity_Check) & "'"
				Conn.Execute(SQL2)
			End If
			i=i+1
		Loop
		
		' Saving additional check box data
		i=69
		Do Until i=74
			Amenity_Check = "Amenity" & i
			If (Request.Form(Amenity_Check)="checkbox") Then
				SQL1 = "Update_Amenity_Package_Map @Amenity_ID = '" & Amenity_ID & "', @Amenity_Type_ID='" & i & "', @TF='1'"
				Conn.Execute(SQL1)
			Else 
				SQL1 = "Update_Amenity_Package_Map @Amenity_ID = '" & Amenity_ID & "', @Amenity_Type_ID='" & i & "', @TF='0'"
				Conn.Execute(SQL1)
				'Response.Write SQL1
			End If
			i=i+1
		Loop
	    
    Conn.Close()
    
    If Request.Form("cont") = "1" Then Response.Redirect "default-lodging.asp"
    If Request.Form("cont") = "2" Then Response.Redirect "room-features_admin_list.asp"
End If	
%>

<%' Getting Name and Description for Amenity Package
	Dim SQL4, RS4, Package_Name, Package_Desc
	
	SQL4="Get_Amenity_Name_Desc '" & iAmenity_ID & "'"
	RS4=Conn.Execute(SQL4)

		Package_Name = RS4("Name")
		Package_Desc = RS4("Description")
%>


<%'Getting values for Room Package Amenities

	'Getting the Max number of available Amenities and Setting the size of the Array
	Dim SQL5, RS5, Max_ID, ii
	
	SQL5 = "select max(amenity_type_id) as Max from amenity_type"
	RS5=Conn.Execute(SQL5)
	Max_ID=RS5("Max")
	'RS5.Close
	
	'Response.Write Max_ID
	
	Dim Amenities(73,2) 'Have to set the first number to the maximum number of amenities available
	
	' Getting Amenities for a given package
	Dim SQL6, RS6, iID
	
	SQL6="Get_Amenities_for_Package '" & iAmenity_ID & "'"
	Set RS6=Conn.Execute(SQL6)
	
	If Not RS6.EOF Then
		Do while not RS6.EOF
			iID=rs6("Amenity_Type_Id")
			Amenities(iID,1) = "True"
			Amenities(iID,2) = rs6("Variable")
			RS6.movenext
		Loop	
	End If
	RS6.Close
	
	'For ii = 1 to Max_Id
	'	Response.Write "Amenitiy" & ii & "= "
	'	Response.Write Amenities(ii,1)
	'	Response.Write Amenities(ii,2)
		'Response.Write "Amenitiy" & ii & "= " & Amenities(ii,1) & " " & Amenities(ii,2)
	'Next		
%>
<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>Room Amenities Administration</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="17">
<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">Edit Amenity Package</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-lodging.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 width="500" border="0" cellspacing="0" cellpadding="0" align="center">
    <tr> 
      <td width="176">&nbsp;</td>
      <td width="197">&nbsp;</td>
      <td width="127">&nbsp;</td>
    </tr>
    <tr> 
      <td width="176" align="right" class="manage-menu">Amenity Package Name:</td>
      <td colspan="2" class="manage-menu"> 
        <input name="Package_Name" value="<%=RS4("Name")%>" style="WIDTH: 261px; HEIGHT: 22px" size=43>
      </td>
    </tr>
    <tr> 
      <td width="176" align="right" class="manage-menu">Package Description:</td>
      <td colspan="2" class="manage-menu"><TEXTAREA name=Package_Description cols=30><%=RS4("Description")%></TEXTAREA>
      </td>
    </tr>
  </table>
  <table width="500" border="0" cellspacing="0" cellpadding="0" align="center">
    <tr bgcolor="#5e5ebe"> 
      <td colspan="4" class="standard-input-form"> <b class="headline-ffffff">&nbsp;Room 
        Features</b></td>
    </tr>
    <tr> 
      <td width="175" class="standard-input-form">Heating</td>
      <td width="74" class="standard-input-form"> 
        <input type="checkbox" name="Amenity1" value="checkbox" <%If Amenities(1,1) = "True" Then Response.Write "Checked" End If %>>
        Yes </td>
      <td width="169" class="standard-input-form">In Room Safes/Fee </td>
      <td width="82" class="standard-input-form"> 
        <input type="checkbox" name="Amenity16" value="checkbox"<%If Amenities(16,1) = "True" Then Response.Write "Checked" End If %>>
        Yes </td>
    </tr>
    <tr> 
      <td width="175" class="standard-input-form">Wheelchair Access </td>
      <td width="74" class="standard-input-form"> 
        <input type="checkbox" name="Amenity2" value="checkbox" <%If Amenities(2,1) = "True" Then Response.Write "Checked" End If %> >
        Yes </td>
      <td width="169" class="standard-input-form">Iron/Ironing Board </td>
      <td width="82" class="standard-input-form"> 
        <input type="checkbox" name="Amenity17" value="checkbox"<%If Amenities(17,1) = "True" Then Response.Write "Checked" End If %>>
        Yes </td>
    </tr>
    <tr> 
      <td width="175" class="standard-input-form">56k Speed Dataport</td>
      <td width="74" class="standard-input-form"> 
        <input type="checkbox" name="Amenity3" value="checkbox"<%If Amenities(3,1) = "True" Then Response.Write "Checked" End If %>>
        Yes </td>
      <td width="169" class="standard-input-form">Modem Lines in Room</td>
      <td width="82" class="standard-input-form"> 
        <input type="checkbox" name="Amenity18" value="checkbox"<%If Amenities(18,1) = "True" Then Response.Write "Checked" End If %>>
        Yes </td>
    </tr>
    <%'*****************************************************%>
    <tr> 
      <td width="175" class="standard-input-form">Air Conditioning</td>
      <td width="74" class="standard-input-form"> 
        <input type="checkbox" name="Amenity4" value="checkbox"<%If Amenities(4,1) = "True" Then Response.Write "Checked" End If %>>
        Yes </td>
      <td width="169" class="standard-input-form">Smoking Room</td>
      <td width="82" class="standard-input-form"> 
        <input type="checkbox" name="Amenity19" value="checkbox"<%If Amenities(19,1) = "True" Then Response.Write "Checked" End If %>>
        Yes </td>
    </tr>
    <tr> 
      <td width="175" class="standard-input-form">Alarm Clock</td>
      <td width="74" class="standard-input-form"> 
        <input type="checkbox" name="Amenity5" value="checkbox"<%If Amenities(5,1) = "True" Then Response.Write "Checked" End If %>>
        Yes </td>
      <td width="169" class="standard-input-form">Non Smoking Rooms</td>
      <td width="82" class="standard-input-form"> 
        <input type="checkbox" name="Amenity21" value="checkbox"<%If Amenities(21,1) = "True" Then Response.Write "Checked" End If %>>
        Yes </td>
    </tr>
    <tr> 
      <td width="175" class="standard-input-form">Alarm Clock/Radio</td>
      <td width="74" class="standard-input-form"> 
        <input type="checkbox" name="Amenity6" value="checkbox"<%If Amenities(6,1) = "True" Then Response.Write "Checked" End If %>>
        Yes </td>
      <td width="169" class="standard-input-form">Bathrobes</td>
      <td width="82" class="standard-input-form"> 
        <input type="checkbox" name="Amenity20" value="checkbox"<%If Amenities(20,1) = "True" Then Response.Write "Checked" End If %>>
        Yes </td>
    </tr>
    <tr> 
      <td width="175" class="standard-input-form">Balcony</td>
      <td width="74" class="standard-input-form"> 
        <input type="checkbox" name="Amenity7" value="checkbox"<%If Amenities(7,1) = "True" Then Response.Write "Checked" End If %>>
        Yes </td>
      <td width="169" class="standard-input-form">Private Balcony</td>
      <td width="82" class="standard-input-form"> 
        <input type="checkbox" name="Amenity22" value="checkbox"<%If Amenities(22,1) = "True" Then Response.Write "Checked" End If %>>
        Yes </td>
    </tr>
    <tr> 
      <td width="175" class="standard-input-form">Black Out Drapes</td>
      <td width="74" class="standard-input-form"> 
        <input type="checkbox" name="Amenity8" value="checkbox"<%If Amenities(8,1) = "True" Then Response.Write "Checked" End If %>>
        Yes </td>
      <td width="169" class="standard-input-form">Soundproofed Rooms</td>
      <td width="82" class="standard-input-form"> 
        <input type="checkbox" name="Amenity23" value="checkbox"<%If Amenities(23,1) = "True" Then Response.Write "Checked" End If %>>
        Yes </td>
    </tr>
    <tr> 
      <td width="175" class="standard-input-form">Connecting Rooms</td>
      <td width="74" class="standard-input-form"> 
        <input type="checkbox" name="Amenity9" value="checkbox"<%If Amenities(9,1) = "True" Then Response.Write "Checked" End If %>>
        Yes </td>
      <td width="169" class="standard-input-form">Terraces</td>
      <td width="82" class="standard-input-form"> 
        <input type="checkbox" name="Amenity24" value="checkbox"<%If Amenities(24,1) = "True" Then Response.Write "Checked" End If %>>
        Yes </td>
    </tr>
    <tr> 
      <td width="175" class="standard-input-form">Desk</td>
      <td width="74" class="standard-input-form"> 
        <input type="checkbox" name="Amenity10" value="checkbox"<%If Amenities(10,1) = "True" Then Response.Write "Checked" End If %>>
        Yes </td>
      <td width="169" class="standard-input-form">Two Room Suite</td>
      <td width="82" class="standard-input-form"> 
        <input type="checkbox" name="Amenity26" value="checkbox"<%If Amenities(26,1) = "True" Then Response.Write "Checked" End If %>>
        Yes </td>
    </tr>
    <tr> 
      <td width="175" class="standard-input-form">Dining Room</td>
      <td width="74" class="standard-input-form"> 
        <input type="checkbox" name="Amenity11" value="checkbox"<%If Amenities(11,1) = "True" Then Response.Write "Checked" End If %>>
        Yes </td>
      <td width="169" class="standard-input-form">Three room Suite</td>
      <td width="82" class="standard-input-form"> 
        <input type="checkbox" name="Amenity25" value="checkbox"<%If Amenities(25,1) = "True" Then Response.Write "Checked" End If %>>
        Yes </td>
    </tr>
    <tr> 
      <td width="175" class="standard-input-form">Fireplace</td>
      <td width="74" class="standard-input-form"> 
        <input type="checkbox" name="Amenity12" value="checkbox"<%If Amenities(12,1) = "True" Then Response.Write "Checked" End If %>>
        Yes </td>
      <td width="169" class="standard-input-form">Four Room Suite</td>
      <td width="82" class="standard-input-form"> 
        <input type="checkbox" name="Amenity27" value="checkbox"<%If Amenities(27,1) = "True" Then Response.Write "Checked" End If %>>
        Yes </td>
    </tr>
    <tr> 
      <td width="175" class="standard-input-form">Guestroom</td>
      <td width="74" class="standard-input-form"> 
        <input type="checkbox" name="Amenity13" value="checkbox"<%If Amenities(13,1) = "True" Then Response.Write "Checked" End If %>>
        Yes </td>
      <td width="169" class="standard-input-form">Five Room Suite</td>
      <td width="82" class="standard-input-form"> 
        <input type="checkbox" name="Amenity69" value="checkbox"<%If Amenities(69,1) = "True" Then Response.Write "Checked" End If %>>
        Yes </td>
    </tr>
    <tr> 
      <td width="175" class="standard-input-form">Humidifiers</td>
      <td width="74" class="standard-input-form"> 
        <input type="checkbox" name="Amenity14" value="checkbox"<%If Amenities(14,1) = "True" Then Response.Write "Checked" End If %>>
        Yes </td>
      <td width="169" class="standard-input-form">Ocean View</td>
      <td width="82" class="standard-input-form"> 
        <input type="checkbox" name="Amenity70" value="checkbox"<%If Amenities(70,1) = "True" Then Response.Write "Checked" End If %>>
        Yes </td>
    </tr>
    <tr> 
      <td width="175" class="standard-input-form">In-Room Jacuzzi</td>
      <td width="74" class="standard-input-form"> 
        <input type="checkbox" name="Amenity28" value="checkbox"<%If Amenities(28,1) = "True" Then Response.Write "Checked" End If %>>
        Yes </td>
      <td width="169" class="standard-input-form">Ocean Front</td>
      <td width="82" class="standard-input-form"> 
        <input type="checkbox" name="Amenity71" value="checkbox"<%If Amenities(71,1) = "True" Then Response.Write "Checked" End If %>>
        Yes </td>
    </tr>
    <tr> 
      <td width="175" class="standard-input-form">In Room Safe</td>
      <td width="74" class="standard-input-form"> 
        <input type="checkbox" name="Amenity15" value="checkbox" <%If Amenities(15,1) = "True" Then Response.Write "Checked" End If %>>
        Yes</td>
      <td width="169" class="standard-input-form">Hair Dryer</td>
      <td width="82" class="standard-input-form">
      <input type="checkbox" name="Amenity72" value="checkbox" <%If Amenities(72,1) = "True" Then Response.Write "Checked" End If %>> Yes </td>
      
    </tr>
  </table>
  <table width="500" border="0" cellspacing="0" cellpadding="0" align="center">
    <tr bgcolor="#003399"> 
      <td colspan="4" class="standard-input-form"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><b><font color="#ffffff" class="headline-ffffff">&nbsp;In-Room 
        Entertainment</font></b></font></td>
    </tr>
    <tr> 
      <td width="175" class="standard-input-form">27+ Inch TV</td>
      <td width="74" class="standard-input-form"> 
        <input type="checkbox" name="Amenity29" value="checkbox"<%If Amenities(29,1) = "True" Then Response.Write "Checked" End If %>>
        Yes </td>
      <td width="169" class="standard-input-form">Color Tv/Cable</td>
      <td width="82" class="standard-input-form"> 
        <input type="checkbox" name="Amenity30" value="checkbox"<%If Amenities(30,1) = "True" Then Response.Write "Checked" End If %>>
        Yes </td>
    </tr>
    <tr> 
      <td width="175" class="standard-input-form">Color TV/Cable/Remote</td>
      <td width="74" class="standard-input-form"> 
        <input type="checkbox" name="Amenity31" value="checkbox"<%If Amenities(31,1) = "True" Then Response.Write "Checked" End If %>>
        Yes </td>
      <td width="169" class="standard-input-form">VCR</td>
      <td width="82" class="standard-input-form"> 
        <input type="checkbox" name="Amenity38" value="checkbox"<%If Amenities(38,1) = "True" Then Response.Write "Checked" End If %>>
        Yes </td>
    </tr>
    <tr> 
      <td width="175" class="standard-input-form">Movie Channel</td>
      <td width="74" class="standard-input-form"> 
        <input type="checkbox" name="Amenity32" value="checkbox"<%If Amenities(32,1) = "True" Then Response.Write "Checked" End If %>>
        Yes </td>
      <td width="169" class="standard-input-form">Radio</td>
      <td width="82" class="standard-input-form"> 
        <input type="checkbox" name="Amenity35" value="checkbox"<%If Amenities(35,1) = "True" Then Response.Write "Checked" End If %>>
        Yes </td>
    </tr>
    <tr> 
      <td width="175" class="standard-input-form">Pay Per View Movies </td>
      <td width="74" class="standard-input-form"> 
        <input type="checkbox" name="Amenity33" value="checkbox"<%If Amenities(33,1) = "True" Then Response.Write "Checked" End If %>>
        Yes </td>
      <td width="169" class="standard-input-form">Premium Channels</td>
      <td width="82" class="standard-input-form"> 
        <input type="checkbox" name="Amenity34" value="checkbox"<%If Amenities(34,1) = "True" Then Response.Write "Checked" End If %>>
        Yes </td>
    </tr>
  </table>
  <table width="500" border="0" cellspacing="0" cellpadding="0" align="center">
    <tr bgcolor="#5e5ebe"> 
      <td colspan="4" class="standard-input-form"><font color="#ffffff" class="headline-ffffff">&nbsp;In-Room 
        Telephones</font></td>
    </tr>
    <tr> 
      <td width="166" class="standard-input-form">2 Line Phones </td>
      <td width="72" class="standard-input-form"> 
        <input type="checkbox" name="Amenity65" value="checkbox"<%If Amenities(65,1) = "True" Then Response.Write "Checked" End If %>>
        Yes </td>
      <td width="180" class="standard-input-form">Telephone In Bathroom</td>
      <td width="82" class="standard-input-form"> 
        <input type="checkbox" name="Amenity44" value="checkbox"<%If Amenities(44,1) = "True" Then Response.Write "Checked" End If %>>
        Yes </td>
    </tr>
    <tr> 
      <td width="166" class="standard-input-form">2 Line Speakerphone </td>
      <td width="72" class="standard-input-form"> 
        <input type="checkbox" name="Amenity41" value="checkbox"<%If Amenities(41,1) = "True" Then Response.Write "Checked" End If %>>
        Yes </td>
      <td width="180" class="standard-input-form">Telephone/Voice Mail</td>
      <td width="82" class="standard-input-form"> 
        <input type="checkbox" name="Amenity45" value="checkbox"<%If Amenities(45,1) = "True" Then Response.Write "Checked" End If %>>
        Yes </td>
    </tr>
    <tr> 
      <td width="166" class="standard-input-form">Direct Dial Telephone</td>
      <td width="72" class="standard-input-form"> 
        <input type="checkbox" name="Amenity42" value="checkbox"<%If Amenities(42,1) = "True" Then Response.Write "Checked" End If %>>
        Yes </td>
      <td width="180" class="standard-input-form">Phone </td>
      <td width="82" class="standard-input-form"> 
        <input type="checkbox" name="Amenity46" value="checkbox"<%If Amenities(46,1) = "True" Then Response.Write "Checked" End If %>>
        Yes </td>
    </tr>
  </table>
  <table width="500" border="0" cellspacing="0" cellpadding="0" align="center">
    <tr bgcolor="#5e5ebe"> 
      <td colspan="4"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><b><font color="#ffffff" class="headline-ffffff">&nbsp;Room 
        Restrictions</font></b></font></td>
    </tr>
    <tr> 
      <td width="166" class="standard-input-form">Max # Of Rollaways</td>
      <td width="73" class="standard-input-form"> 
        <input name="AmenityText66" size="2" maxlength="2" <%If Amenities(66,1) = "True" Then Response.Write "Value=" & Amenities(66,2) End If %> >
      </td>
      <td width="179" class="standard-input-form">No Pets</td>
      <td width="82" class="standard-input-form"> 
        <input type="checkbox" name="Amenity47" value="checkbox"<%If Amenities(47,1) = "True" Then Response.Write "Checked" End If %>>
        Yes </td>
    </tr>
    <tr> 
      <td width="166" class="standard-input-form" height="22">Base Rate Occupancy</td>
      <td width="73" height="22" class="standard-input-form"> 
        <input name="AmenityText67" size="2" maxlength="2" <%If Amenities(67,1) = "True" Then Response.Write "Value=" & Amenities(67,2) End If %> >
      </td>
      <td width="179" class="standard-input-form" height="22">Pets /Deposit</td>
      <td width="82" class="standard-input-form" height="22"> 
        <input type="checkbox" name="Amenity48" value="checkbox"<%If Amenities(48,1) = "True" Then Response.Write "Checked" End If %>>
        Yes </td>
    </tr>
    <tr> 
      <td width="166" class="standard-input-form">Max # In party</td>
      <td width="73" class="standard-input-form"> 
        <input name="AmenityText68" size="2" maxlength="2" <%If Amenities(68,1) = "True" Then Response.Write "Value=" & Amenities(68,2) End If %>>
      </td>
      <td width="179" class="standard-input-form">Pets OK</td>
      <td width="82" class="standard-input-form"> 
        <input type="checkbox" name="Amenity49" value="checkbox"<%If Amenities(49,1) = "True" Then Response.Write "Checked" End If %>>
        Yes </td>
    </tr>
  </table>
  <table width="500" border="0" cellspacing="0" cellpadding="0" align="center">
    <tr bgcolor="#5e5ebe"> 
      <td colspan="4" height="10"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><b><font color="#ffffff" class="headline-ffffff">&nbsp;</font><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><b><font color="#ffffff" class="headline-ffffff">Dining 
        &amp; </font></b><b class="headline-ffffff">Kitchen</b><b><font color="#ffffff" class="headline-ffffff"> 
        Amenities</font></b></font></b></font></td>
    </tr>
    <tr> 
      <td width="165" class="standard-input-form">Coffee Maker</td>
      <td width="86" class="standard-input-form"> 
        <input type="checkbox" name="Amenity50" value="checkbox"<%If Amenities(50,1) = "True" Then Response.Write "Checked" End If %>>
        Yes </td>
      <td width="120" class="standard-input-form">Double Sink</td>
      <td width="129" class="standard-input-form"> 
        <input type="checkbox" name="Amenity54" value="checkbox"<%If Amenities(54,1) = "True" Then Response.Write "Checked" End If %>>
        Yes </td>
    </tr>
    <tr> 
      <td width="165" class="standard-input-form">Microwave</td>
      <td width="86" class="standard-input-form"> 
        <input type="checkbox" name="Amenity58" value="checkbox"<%If Amenities(58,1) = "True" Then Response.Write "Checked" End If %>>
        Yes </td>
      <td width="120" class="standard-input-form">Eating Utensils</td>
      <td width="129" class="standard-input-form"> 
        <input type="checkbox" name="Amenity73" value="checkbox"<%If Amenities(73,1) = "True" Then Response.Write "Checked" End If %>>
        Yes </td>
    </tr>
    <tr> 
      <td width="165" class="standard-input-form">Refrigerator</td>
      <td width="86" class="standard-input-form"> 
        <input type="checkbox" name="Amenity60" value="checkbox"<%If Amenities(60,1) = "True" Then Response.Write "Checked" End If %>>
        Yes </td>
      <td width="120" class="standard-input-form">Full Kitchen</td>
      <td width="129" class="standard-input-form"> 
        <input type="checkbox" name="Amenity56" value="checkbox"<%If Amenities(56,1) = "True" Then Response.Write "Checked" End If %>>
        Yes </td>
    </tr>
    <tr> 
      <td width="165" class="standard-input-form">Mini Refrigerators</td>
      <td width="86" class="standard-input-form"> 
        <input type="checkbox" name="Amenity59" value="checkbox"<%If Amenities(59,1) = "True" Then Response.Write "Checked" End If %>>
        Yes </td>
      <td width="120" class="standard-input-form">Dishwasher</td>
      <td width="129" class="standard-input-form"> 
        <input type="checkbox" name="Amenity57" value="checkbox"<%If Amenities(57,1) = "True" Then Response.Write "Checked" End If %>>
        Yes</td>
    </tr>
    <tr> 
      <td width="165" class="standard-input-form">Minibar</td>
      <td width="86" class="standard-input-form"> 
        <input type="checkbox" name="Amenity61" value="checkbox"<%If Amenities(61,1) = "True" Then Response.Write "Checked" End If %>>
        Yes</td>
      <td width="120" class="standard-input-form">Stove</td>
      <td width="129" class="standard-input-form"> 
        <input type="checkbox" name="Amenity62" value="checkbox"<%If Amenities(62,1) = "True" Then Response.Write "Checked" End If %>>
        Yes </td>
    </tr>
    <tr> 
      <td width="165" class="standard-input-form">Toaster</td>
      <td width="86" class="standard-input-form"> 
        <input type="checkbox" name="Amenity63" value="checkbox"<%If Amenities(63,1) = "True" Then Response.Write "Checked" End If %>>
        Yes </td>
      <td width="120" class="standard-input-form">Pots &amp; Pans</td>
      <td width="129" class="standard-input-form"> 
        <input type="checkbox" name="Amenity64" value="checkbox"<%If Amenities(64,1) = "True" Then Response.Write "Checked" End If %>>
        Yes</td>
    </tr>
    <tr> 
      <td width="165" class="standard-input-form">Plates &amp; Utensils</td>
      <td width="86" class="standard-input-form"> 
        <input type="checkbox" name="Amenity55" value="checkbox"<%If Amenities(55,1) = "True" Then Response.Write "Checked" End If %>>
        Yes </td>
      <td width="120" class="manage-menu">&nbsp;</td>
      <td width="129" class="manage-menu">&nbsp;</td>
    </tr>
  </table>
  <table width="525" border="0" cellspacing="0" cellpadding="0" align="center">
    <tr bgcolor="#5e5ebe"> 
      <td align="right" width="49%" bgcolor="#5e5ebe"><A onmouseover="MM_swapImage('submitchanges','','images/icon-submit-changes-2.gif',1)" onmouseout=MM_swapImgRestore() href="javascript:Sub_Form('1');" ><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)" onmouseout=MM_swapImgRestore() href="javascript:Sub_Form('2');" ><IMG height=15 src="images/icon-continue-wizard.gif" width=150 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>
