
<link rel="stylesheet" href="/Style-sheets/Profile-layout.css" type="text/css">
<link rel="stylesheet" href="/Style-sheets/Profile-layout.css" type="text/css">
<link rel="stylesheet" href="/Style-sheets/page-formatting.css" type="text/css">
<link rel="stylesheet" href="/Style-sheets/headline-large.css" type="text/css">
<link rel="stylesheet" href="/includes/image-margins.css" type="text/css">
<link rel="stylesheet" href="/Style-sheets/atrraction-set.css" type="text/css">
<table width="210" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td class="rule-tiny"><img src="/images/destination-snapshot-top.gif" width="212" height="33"></td>
  </tr>
</table>
<table border="0" cellspacing="0" cellpadding="0" width="212">
  <tr align="center" valign="top"> 
    <td colspan="4" width="212"> 
      <table width="208" border="0" cellspacing="0" cellpadding="0" align="center">
        <tr>
          <td bgcolor="#2A2F88" width="1"><img src="/images/shim.gif" width="1" height="1"></td>
          <td width="208" bgcolor="#FFFFFF" valign="top"> 
            <table border="0" cellspacing="0" cellpadding="0" width="210">
              <tr> 
                <td width="210" background="/images/destination-header_r2_c1.gif" align="center" valign="top" > 
                  <span class="attraction-hdln"></span></td>
              </tr>
              <tr align="center"> 
                <td width="210" bgcolor="#FFFFFF" class="row-space"><br>
                  <applet codebase="http://www.hamweather.com/hwscroll" code="HWTextScroll.class"
        width=200 height=35>
                    <param name="leftwidth" value="120">
                    <param name='leftbackground' value="255,255,255">
                    <param name='leftforeground' value="42,47,136">
                    <param name='rightforeground' value="42,47,136">
                    <param name='rightbackground' value="255,255,255">
                    <param name='forecast' value='hourly'>
                    <param name='state' value="fl">
                    <param name='template' value='nfjava'>
                    <param name="hwurl" value="http://www.hamweather.com/cgi-bin/hwscroll.cgi">
                  </applet><br>
                </td>
              </tr>
              <tr align="center"> 
                <td width="210" bgcolor="#FFFFFF"><img src="/images/nearby-attractions.gif" width="206" height="20"></td>
              </tr>
            </table>
            <table width="210" border="0" cellspacing="0" cellpadding="0" background="/images/destination-table-new.gif">
            <%	Dim SQLDest, RSDest, count, record1, record2
'            			SQLDest = "Select * from [group] g join group_entity_map gem on g.group_id = gem.group_id join entity e on gem.entity_id = e.entity_id"
'				SQLDest = SQLDest & " join entity_detail ed on e.entity_id=ed.entity_id where group_type_id = '10' order by e.name"
'            			SQLDest = "Select * from Lookup_Lookup_Map LLM Inner Join ([Group] G inner join (Group_Entity_Map GEM inner join (Entity E inner join Entity_Detail ED on E.Entity_ID = ED.Entity_ID)"
'				SQLDest = SQLDest & " on GEM.Entity_ID = E.Entity_ID) on G.Group_ID = GEM.Group_ID) on LLM.Lookup_ID_2 = G.Lookup_ID where LLM.Lookup_ID_1 = '3'"

SQLDest = SQLDest & "Select GEM.Entity_ID, G.Group_ID, AGM.[Variable], G.[Name] "
'SQLDest = SQLDest & "(Select Top 1 I.[Image_Ext] from [Image] I Inner Join Group_Image_Map GIM On GIM.Group_ID = G.Group_ID And GIM.Image_ID = I.[Image_ID] Where I.Image_Type_ID='44' And GIM.Status='1' Order By I.Image_ID DESC) ""Image_Ext"", "
'SQLDest = SQLDest & "(Select Top 1 I.[Image_ID] from [Image] I Inner Join Group_Image_Map GIM On GIM.Group_ID = G.Group_ID And GIM.Image_ID = I.[Image_ID] Where I.Image_Type_ID='44' And GIM.Status='1' Order By I.Image_ID DESC) ""Image_ID"" "
SQLDest = SQLDest & "from Att_Group_Map AGM "
SQLDest = SQLDest & "	Inner Join (Lookup_Lookup_Map LLM "
SQLDest = SQLDest & "	Inner Join ([Group] G "
SQLDest = SQLDest & "	inner join (Group_Entity_Map GEM "
SQLDest = SQLDest & "	inner join Entity E "
SQLDest = SQLDest & "/*	inner join Entity_Detail ED "
SQLDest = SQLDest & "	on E.Entity_ID = ED.Entity_ID) */ "
SQLDest = SQLDest & "	on GEM.Entity_ID = E.Entity_ID) "
SQLDest = SQLDest & "	on G.Group_ID = GEM.Group_ID) "
SQLDest = SQLDest & "	on LLM.Lookup_ID_2 = G.Lookup_ID) "
SQLDest = SQLDest & "	On AGM.Group_ID = G.Group_ID "
SQLDest = SQLDest & "where LLM.Lookup_ID_1 = '3' And AGM.Att_ID = '542' "

' attractions.. based on cities....

				Set RSDest = Server.CreateObject("ADODB.Recordset")
				RSDest.CursorType = 1
				RSDest.Open SQLDest, Conn
If Not RSDest.EOF Then
				count = RSDest.RecordCount
				Randomize()
				record1 = Int((count) * Rnd + 1)
				RSDest.AbsolutePosition = record1
				Att_Image = Get_Image_By_Group_No_Str(RSDest("Group_ID"), 44)
				%>				
              <tr> 
                <td width="10" height="22">&nbsp;</td>
                <td width="181" valign="top" height="22" ><span class="headline-tab"><a href="main-attractions-TP-profile.asp?Name=<%=RSDest("Entity_ID")%>" class="headline-tab"><%=RSDest("Name")%></a></span></td>
                <td colspan="2" width="19" valign="top" align="right" height="22">&nbsp;</td>
              </tr>
              <tr valign="top"> 
                <td colspan="4"> 
                  <table width="99%" border="0" cellspacing="0" cellpadding="0">
                    <tr> 
<% If Not Att_Image = "" Then %>
                      <td width="1" align="center" class="row-spacing2px"> 
                        <table border="0" cellspacing="0" cellpadding="1" width="1" height="1">
			  <tr><td width="1"></td><td></td><td width="1"></td></tr>
                          <tr> 
                            <td colspan="3" class="row-spacing2px">&nbsp;</td>
                          </tr>
                          <tr><td></td>
                            <td bgcolor="#000099" align="center" valign="middle">
				<%= Att_Image 
				%></td>
			  </tr>
			  <tr><td colspan="3" class="row-spacing2px">&nbsp;</td></tr>
                        </table></td>
<% End If %>

                      <td><span class="tab-text-body" align="justify"><%= RSDest("Variable")%></span> 
                        <span class="headline-tab"></span></td>
                    </tr>
                  </table>
                </td>
              </tr>
            </table>
            <table width="210" border="0" cellspacing="0" cellpadding="0" background="/images/destination-table-intersection.gif">
            <%
            	record2 = Int((count) * Rnd + 1)
            	Do until Not record1 = record2
            	record2 = Int((count) * Rnd + 1)
            	Loop
				RSDest.AbsolutePosition = record2
				
		Att_Image = Get_Image_By_Group_No_Str(RSDest("Group_ID"), 44)
	     %>
              <tr> 
                <td height="16" width="10">&nbsp;</td>
                <td width="181" height="16" valign="top" ><span class="headline-tab"><a href="main-attractions-TP-profile.asp?Name=<%=RSDest("Entity_ID")%>" class="headline-tab"><%=RSDest("Name")%></a></span></td>
                <td height="16" colspan="2" width="19" valign="top" align="right">&nbsp;</td>
              </tr>
              <tr> 
                <td height="47" colspan="4"> 
                  <table width="99%" border="0" cellspacing="0" cellpadding="0">
                    <tr> 
<% If Not Att_Image = "" Then %>
                      <td width="1" align="center" class="row-spacing2px"> 
                        <table border="0" cellspacing="0" cellpadding="1" width="1" height="1">
			  <tr><td width="1"></td><td></td><td width="1"></td></tr>
                          <tr> 
                            <td colspan="3" class="row-spacing2px">&nbsp;</td>
                          </tr>
                          <tr><td></td>
                            <td bgcolor="#000099" align="center" valign="middle">
				<%= Att_Image 
				%></td>
			  </tr>
			  <tr><td colspan="3" class="row-spacing2px">&nbsp;</td></tr>
                        </table></td>
<% End If %>
                      <td><span class="profile-text-tab" align="justify"><%= RSDest("Variable")%></span> 
                        <span class="headline-tab"></span></td>
                    </tr>
                  </table>
              </tr>
<% End If %>
            </table>
            <table width="210" border="0" cellspacing="0" cellpadding="0">
              <tr align="center" valign="top"> 
                <td width="210" align="left" height="2"><img src="/images/bottom-snapshots.gif" width="210"></td>
              </tr>
            </table>
            <img src="/images/upcoming-events.gif" width="208" height="20"> 
            <table width="210" border="0" cellspacing="0" cellpadding="0" background="/images/destination-table-new.gif">
            <%	Dim SQLEvent, RSEvent
            	SQLEvent = "Select * from Event E inner join Event_Detail ED on E.Event_ID = ED.Event_ID where (ED.City Like '" & Session("City") & "' "

	SQL4 = "Get_Combo_City @State_Abbr='" & Session("State") & "', @Child_City= '" & Session("City") & "', @Realm_ID='" & Session("Site_Realm") & "'"
	Set RS4=Conn.Execute(SQL4)
	While Not RS4.EOF
		SQLEvent = SQLEvent & "Or ED.City like '" & RS4("Parent_City") & "' "
		RS4.MoveNext
	Wend
	Set RS4 = Nothing

				SQLEvent = SQLEvent & ") And ED.State = 'FL' And E.Begin_Date >= '" & Date() & "' Order By E.Begin_Date"

				Set RSEvent = Server.CreateObject("ADODB.Recordset")
				RSEvent.CursorType = 1
				RSEvent.Open SQLEvent, Conn

				IF Not RSEvent.EOF Then
				count = RSEvent.RecordCount
				Randomize()
				record1 = Int((count) * Rnd + 1)
				RSEvent.AbsolutePosition = record1
				Event_Image = Get_Image_By_Event_No_Str(RSEvent("Event_ID"), 44)
				%>				
              <tr> 
                <td width="10" height="22">&nbsp;</td>
                <td width="182" valign="middle" height="22" ><span class="headline-tab"><a href="Main-Events-List.asp?Event_ID=<%=RSEvent("Event_ID")%>" class="headline-tab"><%=RSEvent("Name")%></a></span></td>
                <td colspan="2" width="18" valign="top" align="right" height="22">&nbsp;</td>
              </tr>
              <tr valign="top"> 
                <td colspan="4"> 
                  <table width="99%" border="0" cellspacing="0" cellpadding="0">
                    <tr> 
<% If Not Event_Image = "" Then %>
                      <td width="1" align="center" class="row-spacing2px"> 
                        <table border="0" cellspacing="0" cellpadding="1" width="1" height="1">
			  <tr><td width="1"></td><td></td><td width="1"></td></tr>
                          <tr> 
                            <td colspan="3" class="row-spacing2px">&nbsp;</td>
                          </tr>
                          <tr><td></td>
                            <td bgcolor="#000099" align="center" valign="middle">
				<%= Event_Image 
				%></td>
			  </tr>
			  <tr><td colspan="3" class="row-spacing2px">&nbsp;</td></tr>
                        </table></td>
<% Else %>
		      <td width="1">&nbsp;</td>
<% End If %>
                      <td valign="top"><span class="headline-event-tiny"><%=Month(RSEvent("Begin_Date")) & "/" & day(RSEvent("Begin_Date"))%> 
                        - <%=Month(RSEvent("End_Date")) & "/" & day(RSEvent("End_Date")) & "/" & Year(RSEvent("End_Date"))%></span><br>
                        <span class="tab-text-body"><%=RSEvent("Description")%></span> 
                        <span class="headline-tab"></span></td>
                    </tr>
                  </table>
                </td>
              </tr>
              <%End If%>
            </table>
            <table width="210" border="0" cellspacing="0" cellpadding="0" background="/images/destination-table-intersection.gif">
            <%
		Dim Idd
            	record2 = Int((count) * Rnd + 1)
		Idd = 0
            	Do While Idd < 1000 And record1 = record2
		Idd = Idd + 1
            	record2 = Int((count) * Rnd + 1)
            	Loop
            	If Not RSEvent.EOF Then
				RSEvent.AbsolutePosition = record2
				Event_Image = Get_Image_By_Event_No_Str(RSEvent("Event_ID"), 44)
				%>
              <tr> 
                <td height="18" width="10">&nbsp;</td>
                <td width="182" height="18" valign="top" ><span class="headline-tab"><a href="Main-Events-List.asp?Event_ID=<%=RSEvent("Event_ID")%>" class="headline-tab"><%=RSEvent("Name")%></a></span></td>
                <td height="18" colspan="2" width="18" valign="top" align="right">&nbsp;</td>
              </tr>
              <tr> 
                <td height="47" colspan="4"> 
                  <table width="99%" border="0" cellspacing="0" cellpadding="0">
                    <tr> 
<% If Not Event_Image = "" Then %>
                      <td width="1" align="center" class="row-spacing2px"> 
                        <table border="0" cellspacing="0" cellpadding="1" width="1" height="1">
			  <tr><td width="1"></td><td></td><td width="1"></td></tr>
                          <tr> 
                            <td colspan="3" class="row-spacing2px">&nbsp;</td>
                          </tr>
                          <tr><td></td>
                            <td bgcolor="#000099" align="center" valign="middle">
				<%= Event_Image 
				%></td>
			  </tr>
			  <tr><td colspan="3" class="row-spacing2px">&nbsp;</td></tr>
                        </table></td>
<% Else %>
		      <td width="1">&nbsp;</td>
<% End If %>

                      <td class="headline-event-tiny" valign="top"><span class="headline-event-tiny"><%=Month(RSEvent("Begin_Date")) & "/" & day(RSEvent("Begin_Date"))%> 
                        - <%=Month(RSEvent("End_Date")) & "/" & day(RSEvent("End_Date")) & "/" & Year(RSEvent("End_Date"))%><br>
                        </span><span class="tab-text-body"><%=RSEvent("Description")%></span> 
                      </td>
                    </tr>
                  </table>
              </tr>
              <%End If%>
            </table>
            <%
            RSDest.Close()
            Set RSDest = Nothing
            RSEvent.Close()
            Set RSEvent = Nothing
            
            %>
          </td>
          <td bgcolor="#2A2F88" width="1"><img src="/images/shim.gif" width="1" height="1"></td>
        </tr>
      </table>
    </td>
  </tr>
 </table>
<img src="/images/bottom-snapshots.gif" width="212" align="top"> 
<table width="212" border="0" cellspacing="0" cellpadding="0">
  <tr> 
    <td class="rule-tiny" height="11">&nbsp;</td>
  </tr>
</table>