<%
If Max_Budget = "" Or Max_Budget = 0 Then
	Max_Budget = 8
End If
%>

<link rel="stylesheet" href="../Style-sheets/input-form-small.css" type="text/css">

<link rel="stylesheet" href="../Style-sheets/headline.css" type="text/css">
<table width="258" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td valign="bottom" width="258"><img src="/images/lodging-hdln-family.gif" width="250" height="29"></td>
              </tr>
              <tr> 
                <td valign="top" width="258"> 
                  <table width="250" border="0" cellspacing="0" cellpadding="0" height="200" bgcolor="#FFFFFF">
                    <tr> 
                      <td bgcolor="#2A2F88" width="1"><img src="/images/shim.gif" width="1" height="1"></td>
                      <td valign="top" align="center"> 
                        <table width="241" border="0" cellspacing="0" cellpadding="0" bgcolor="#FFFFFF">



<%
SQL = "Get_Packages_Today @Budget='1', @Realm_ID='" & Session("Site_Realm") & "'"
Set RSPack = Conn.Execute(SQL)
Dim Budget_Loop
Budget_Loop = 1
Do While Not RSPack.EOF And Not Budget_Loop > Max_Budget
%>
                          <tr> 
                            <td width="241" class="headline"><%=RSPack("City")%> - <%=RSPack("Package_Name")%></td>
                          </tr>
                          <tr> 
                            <td width="241" class="input-form-small"><%=RSPack("Package_Headline")%></td>
                          </tr>
                          <tr> 
                            <td width="241"align="right"> 
                              <table width="95%" border="0" cellspacing="0" cellpadding="0">
                                <tr> 
                                  
                      <td width="27%" valign="middle" class="sm-hdln" align="right">Package:</td>
                                  <td width="6%" valign="middle"><a href="/main-package-profile.asp?Name=<%=RSPack("Package_ID")%>"><img src="/images/lodging-hdln-details.gif" width="36" height="11" border="0"></a></td>
                                  <td width="39%" valign="middle" align="left"> 
                                    <hr size="1" width="90%" noshade align="left">
                                  </td>
                                  <td width="28%" class="sub-head"><%=FCurrency(RSPack("Package_Cost"),4)%></td>
                                </tr>
                              </table>
                            </td>
                          </tr>
                          <tr> 
                            <td width="241" class="input-form-small"></td>
                          </tr>
                          <tr> 
                            <td width="241" height="11"> 
                              <hr width="80%" noshade size="1" align="center">
                            </td>
                          </tr>
<%
RSPack.MoveNext
Budget_Loop = Budget_Loop + 1
Loop
%>

                          <tr> 
                            <td width="241" align="center" class="sm-hdln"><a href="/main-packages-full.asp" class="sm-hdln">More 
                              Great Packages</a></td>
                          </tr>
                        </table>
                      </td>
                      <td bgcolor="#2A2F88" width="1"><img src="/images/shim.gif" width="1" height="1"></td>
                    </tr>
                  </table>
                  <img src="/images/lodging-hdln-footer.gif" width="250" height="10"></td>
              </tr>
            </table>