
<link rel="stylesheet" href="/Style-sheets/Profile-layout.css" type="text/css">
<link rel="stylesheet" href="/Style-sheets/atrraction-set.css" type="text/css">
<link rel="stylesheet" href="/Style-sheets/page-formatting.css" type="text/css">
<link rel="stylesheet" href="/Style-sheets/Lodging-display.css" type="text/css">
<link rel="stylesheet" href="/Style-sheets/headline.css" type="text/css">
<link rel="stylesheet" href="/Style-sheets/standard-input-form.css" type="text/css">

<table border="0" cellspacing="0" cellpadding="0" width="231">
  <tr>
    <td valign="top" width="231"><img height="20" src="/images/lodging-hdln-header-210.gif" width="210"><table width="210" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td bgcolor="#2A2F88" width="1" height="255"><img src="/images/shim.gif" width="1" height="1"></td>
          <td width="208" bgcolor="#FFFFFF" align="center" valign="top" height="255">
<%
City = Session("City")
If Session("City") = "" Then City = "%"

SQL = "Get_Packages_Today @Package_City='" & City & "', @Package_State='" & Session("State") & "', @Package_Country='" & Session("Country") & "', @Realm_ID='" & Session("Site_Realm") & "'"
If IsObject(Conn) Then
	Set RSPack = Conn.Execute(SQL)
Else
	Set Conn = Server.CreateObject("ADODB.Connection")
	Conn.Open Application("conn_string")
	Set RSPack = Conn.Execute(SQL)
End If

Max_Results = 5

Pack_Loop = 1

If RSPack.EOF Then
	SQL = "Get_Packages_Today @Package_State='" & Session("State") & "', @Package_Country='" & Session("Country") & "', @Realm_ID='" & Session("Site_Realm") & "'"
	If IsObject(Conn) Then
		Set RSPack = Conn.Execute(SQL)
	Else
		Set Conn = Server.CreateObject("ADODB.Connection")
		Conn.Open Application("conn_string")
		Set RSPack = Conn.Execute(SQL)
	End If

	Max_Results = 5

	Pack_Loop = 1
End If

If Not RSPack.EOF Then

	Do While Not RSPack.EOF And Not Pack_Loop > Max_Results
		
		If InStr(1, Dupe_Str, "|" & RSPack("Package_Duration_ID") & ":" & RSPack("Package_Type_ID") & "|") = 0 Then
			Dupe_Str = Dupe_Str & "|" & RSPack("Package_Duration_ID") & ":" & RSPack("Package_Type_ID") & "|"
		
	%>
	            <table width="98%" border="0" cellspacing="0" cellpadding="0" bgcolor="#ffffff">
	              <tr bgcolor="#FFFFCC"> 
	                <td colspan="2" align="middle" height="6" class="hotel-layer-hdln"><%=RSPack("Name")%></td>
	              </tr>
	              <tr> 
	                <td width="34%" align="center" height="50"><%=Get_Image_Brand_By_Group(RSPack("Group_ID"), 43,False)%></td>
	                <td width="66%" class="standard-input-form-small" height="50"> 
	                  <table width="100%" border="0" cellspacing="0" cellpadding="0">
	                    <tr>
	                      <td class="standard-input-form-small"><span class="sm-hdln"><%=RSPack("Package_Name")%></span><br>
	                        <%=RSPack("Package_Headline")%></td>
	                    </tr>
	                    <tr>
	                      <td class="link"><a class="link" href="/main-packages-list.asp?Package_Type_ID=<%=RSPack("Package_Type_ID")%>&Package_Duration_ID=<%=RSPack("Package_Duration_ID")%>">more packages</a></td>
	                    </tr>
	                  </table>
	                </td>
	              </tr>
	            </table>
	<%
			Pack_Loop = Pack_Loop + 1
		End If
	RSPack.MoveNext
	Loop
End If
	Set RSPack = Nothing
	%>        </td>
          <td bgcolor="#2A2F88" width="1" height="255"><img src="/images/shim.gif" width="1" height="1"></td>
        </tr>
      </table><img height="10" src="/images/lodging-hdln-footer-210.gif" width="210"></td>
  </tr>
</table>
