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


<%	' Call to SQL for Current List
	Dim SQL1, Conn, RS
	
	Set Conn = Server.CreateObject("ADODB.Connection")
	Conn.Open "DRIVER={SQL Server};SERVER=WEBSRV01;UID=web;pwd=w3bs1t3;DATABASE=AVANTE"
	
	SQL1 = "List_Amenity_Packages"
		
	Set RS=Conn.Execute(SQL1)
%>

<HTML>
<TITLE>Current Amenity Package List</TITLE>
<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></HEAD>
<BODY>
<P>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0 id=TABLE1>
  <TR>
	<TD colSpan=4>
		<P Align=center> 
			<INPUT id=CloseWindow onclick=window.close(); type=button value="Close Window" name=CloseWindow>
		</P>
	</TD>
  </TR>
  <TR style="BACKGROUND-COLOR: skyblue">
    <TD></TD>
    <TD colSpan=4>
      <P align=center><FONT face=Verdana><STRONG>Current Amenity Package List</STRONG></FONT>   </P></TD></TR>
<%
	'Checking for No Data
    if rs.eof then
		'Response.Write "<TR><Center><h1> No Data Available </h1></center></TR>"  
%>
	<TR>
		<TD colSpan=4>
			<P align=center>
				<FONT face=Verdana Color=red>
					<STRONG>No Data Available</STRONG>
				</FONT>
			</P>
		</TD>
	</TR>
<%
	'Writting Header if Data is Available
	Else
%>
  <TR vAlign=center borderColor=black>
    <TD></TD>
    <TD>
      <P align=center><FONT face=Verdana size=1><STRONG>Amenity ID</STRONG></FONT></P></TD>
    <TD style="BACKGROUND-COLOR: lightblue">
      <P align=center><STRONG><FONT face=Verdana size=1>Group, Amenity Name</FONT> </STRONG> </P> </TD>
    <TD>
      <P align=center><FONT face=Verdana size=1><STRONG>Description</STRONG> 
      </FONT> </P> </TD>
    <TD><FONT face=Verdana></FONT></TD></TR>
<%
	' Writting Data if Data Present to Table
		Do while not rs.eof
%>
  <TR>
		<TD></TD>
		<TD>
		    <P align=Center><FONT face=Verdana size=1><%=RS("Amenity_ID")%></FONT></P>
		</TD>
		<TD style="BACKGROUND-COLOR: lightblue">
			<P align=left><FONT face=Verdana size=2><%=RS("GName")%>, <%=RS("AName")%></FONT></p>
		</TD>
		<TD>
			<P align=Left><FONT face=Verdana size=1><%=RS("Description")%></FONT></p>
		</TD>
		<TD></TD>
    </TR>
<%
			rs.movenext
		Loop
	End If	
%>
</TABLE>
</P>
</BODY>
</HTML>

