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

If (Request.Form("Destination") = "" And Request.Form("State") = "") And Not (UCase(Request.ServerVariables("REQUEST_METHOD")) = "POST") Then
	Session("State") = ""
	Session("Dest_ID") = ""
	Dim RS2, SQL2, RS3, SQL3
	Set RS2 = Server.CreateObject("ADODB.Recordset")
	SQL2 = "Select * from States where country_id = '2'"
	RS2.Open SQL2, Conn	
End If

	
If (UCase(Request.ServerVariables("REQUEST_METHOD")) = "POST" And (Session("Dest_ID") = "") And Not (Request.Form("State") = "")) Then
Session("State") = Request.Form("State")
	SQL3 = "Select * From Destination Where State = '" & Session("State") & "'"
	Set RS3 = Server.CreateObject("ADODB.Recordset")
	RS3.Open SQL3, Conn
End If

If (UCase(Request.ServerVariables("REQUEST_METHOD")) = "POST" And Not (Request.Form("Destination") = "") And Not (Session("State") = "")) Then
Session("Dest_ID") = Request.Form("Destination")
	'Conn.Open Application("conn_string")
	'SQL3 = "Select * From Destination Where State = '" & Session("State") & "'"
	'Set RS3 = Server.CreateObject("ADODB.Recordset")
	'RS3.Open SQL3, Conn
End If

If Not (Session("Dest_ID") = "") Then
	Dim RS1, SQL1, RS4, SQL4, SQLCounty, RSCounty
	SQL1 = "Select * from Destination Where Dest_ID = '" & Session("Dest_ID") & "'"
	Set RS1 = Server.CreateObject("ADODB.Recordset")
	RS1.Open SQL1, Conn
	SQL4 = "Exec Find_Natural_Wonders '" & RS1("Name") & "', '" & RS1("State") & "'"
	Set RS4 = Server.CreateObject("ADODB.Recordset")
	RS4.Open SQL4, Conn
	SQLCounty = "Exec GetLatLonCounty_PPL '" & RS1("State") & "', '" & RS1("Name") & "'"
	Set RSCounty = Server.CreateObject("ADODB.Recordset")
	RSCounty.Open SQLCounty, Conn
End If

	If (UCase(Request.ServerVariables("REQUEST_METHOD")) = "POST" And Not (Session("Dest_ID") = "")) And Not (Session("State") = "") And Not (Request.Form("cont") = "") Then
      
    For each Item in Request.Form("select")
		Dim SQLEntry
		SQLEntry = "Insert_Dest_Content '" & Session("Dest_ID") & "', '" & Item & "', '2', '1'"
		Conn.Execute (SQLEntry)
	Next
	
	For each Item in Request.Form("select1")
		SQLEntry = "Insert_Dest_Content '" & Session("Dest_ID") & "', '" & Item & "', '1', '2'"
		Conn.Execute (SQLEntry)
	Next

	For each Item in Request.Form("select2")
		SQLEntry = "Insert_Dest_Content '" & Session("Dest_ID") & "', '" & Item & "', '1', '2'"
		Conn.Execute (SQLEntry)
	Next      
      
	For each Item in Request.Form("select3")
		SQLEntry = "Insert_Dest_Content '" & Session("Dest_ID") & "', '" & Item & "', '1', '3'"
		Conn.Execute (SQLEntry)
	Next      

	For each Item in Request.Form("select4")
		SQLEntry = "Insert_Dest_Content '" & Session("Dest_ID") & "', '" & Item & "', '1', '4'"
		Conn.Execute (SQLEntry)
	Next

	For each Item in Request.Form("select5")
		SQLEntry = "Insert_Dest_Content '" & Session("Dest_ID") & "', '" & Item & "', '1', '5'"
		Conn.Execute (SQLEntry)
	Next
	
	For each Item in Request.Form("select6")
		SQLEntry = "Insert_Dest_Content '" & Session("Dest_ID") & "', '" & Item & "', '1', '6'"
		Conn.Execute (SQLEntry)
	Next
	
	For each Item in Request.Form("select7")
		SQLEntry = "Insert_Dest_Content '" & Session("Dest_ID") & "', '" & Item & "', '1', '7'"
		Conn.Execute (SQLEntry)
	Next
	
	For each Item in Request.Form("select8")
		SQLEntry = "Insert_Dest_Content '" & Session("Dest_ID") & "', '" & Item & "', '1', '8'"
		Conn.Execute (SQLEntry)
	Next
	
	    If Request.Form("cont") = "1" Then Response.Redirect "default-lodging.asp"
	    If Request.Form("cont") = "2" Then Response.Redirect "destination-target-create.asp"
	    
	End If

%>



<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>Untitled Document</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/headline.css" type="text/css">
<SCRIPT ID=clientEventHandlersJS LANGUAGE=javascript>
<!--

function State_onchange() {
form1.submit()
}

function destination_onchange() {
form1.submit()
}

//-->
</SCRIPT>
<SCRIPT LANGUAGE=javascript FOR=Destination EVENT=onchange>
<!--
 destination_onchange()
//-->
</SCRIPT>
</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="destination-page-content-create.asp">
<input type="hidden" name="cont" value="">
  <table width="525" border="0" cellspacing="0" cellpadding="2" align="center">
  <tr bgcolor="#FFFFFF"> 
    <td width="467">&nbsp;</td>
    <td align="right" width="58">&nbsp;</td>
  </tr>
  <tr bgcolor="#5e5ebe"> 
      <td width="467" align="center" class="headline-ffffff">Destination Content 
        Creation</td>
    <td bgcolor="#5e5ebe" align="right" width="58"><a href="javascript:;" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image1','','images/icon-return-to-main-2.gif',1)" onClick="MM_goToURL('parent','default-lodging.asp');return document.MM_returnValue"><img src="images/icon-return-to-main.gif" width="75" height="17" usemap="#returntomain" border="0" name="Image1"></a></td>
  </tr>
  <tr> 
    <td width="467">&nbsp;</td>
    <td width="58">&nbsp;</td>
  </tr>
</table>
  <table width="500" border="0" cellspacing="0" cellpadding="0" align="center">
    <tr> 
      <td width="162">&nbsp;</td>
      <td width="228">&nbsp;</td>
      <td width="110">&nbsp;</td>
    </tr>
    <tr> 
      <td width="162" class="manage-menu-bold">State:</td>
      <td width="228"> <% If Not (Session("State") = "") Then%>
      <%Response.Write(Session("State"))
      Else%>
        <select name="State" LANGUAGE=javascript onchange="return State_onchange()" id=State>
        <OPTION value="" selected>Select</OPTION>
        <% Do While Not RS2.EOF%>
        <OPTION value="<%=RS2("State_Abbr")%>"><%=RS2("State_Abbr")%></OPTION>
        <%RS2.MoveNext()
        Loop%>
        </select>
        <%End If%>
      </td>
      <td width="110">&nbsp;</td>
    </tr>

    <tr> 
      <td width="162" class="manage-menu-bold">&nbsp;</td>
      <td width="228">&nbsp;</td>
      <td width="110">&nbsp;</td>
    </tr>
    <tr> 
    <% If Not (Session("Dest_ID") = "") Then%>
      <td width="162" class="manage-menu-bold">Destination:</td>
      <td width="228">      
      <%Response.Write(RS1("Name"))
      ElseIf (Session("Dest_ID") = "") And Not (Session("State") = "") Then%>
      <td width="162" class="manage-menu-bold">Destination:</td>
      <td width="228">  
        <select name="Destination">
        <OPTION value="" selected>Select</OPTION>
        <% Do While Not RS3.EOF%>
        <OPTION value="<%=RS3("Dest_ID")%>"><%=RS3("Name")%></OPTION>
        <%RS3.MoveNext()
        Loop%>
        </select>
      </td>
      <td width="110">&nbsp;</td>
    </tr>
    <%End If%>
    <% If Not (Session("Dest_ID") = "") And Not (Session("State") = "") Then%>
    <tr> 
      <td width="162" class="manage-menu-bold">&nbsp;</td>
      <td width="228">&nbsp;</td>
      <td width="110">&nbsp;</td>
    </tr>
    <tr> 
      <td width="162" class="manage-menu-bold">Natural Wonders</td>
      <td width="228">
        <select name="select" size="3" multiple>
        <% Do While Not RS4.EOF%>
        <OPTION value="<%=RS4("FeatureID")%>"><%=RS4("FeatureName")%></OPTION>
        <%RS4.MoveNext()
        Loop%>
        </select>
      </td>
      <td width="110">&nbsp;</td>
    </tr>
    <tr> 
      <td width="162" class="manage-menu-bold">&nbsp;</td>
      <td width="228">&nbsp;</td>
      <td width="110">&nbsp;</td>
    </tr>
    <tr> 
      <td width="162" class="manage-menu-bold">The Arts</td>
      <td width="228">
        <select name="select2" size="3" multiple>
         <%			
					Dim SQLArts, RSArts
					
					' To Change Search type, enter SIC Search code after @Type_Code='xxxxx'	
					SQLArts = "Select * from Entity E inner join Entity_Detail ED on E.Entity_ID = ED.Entity_ID Where ED.State = 'FL' and ED.City = '" & RS1("Name") & "'"
					Set RSArts = Server.CreateObject("ADODB.Recordset")
					RSArts.Open SQLArts, Conn
					
					Do while not RSArts.EOF%>
					
					<OPTION value="<%=RSArts("Entity_ID")%>"><%=RSArts("Name")%></OPTION>
					
					<%RSArts.movenext()
					Loop%>
		</select>
      </td>
      <td width="110">&nbsp;</td>
    </tr>
    <tr> 
      <td width="162" class="manage-menu-bold">&nbsp;</td>
      <td width="228">&nbsp;</td>
      <td width="110">&nbsp;</td>
    </tr>
    <tr> 
      <td width="162" class="manage-menu-bold">Theme Parks</td>
      <td width="228">
        <select name="select3" size="3" multiple>
         <%			
					Dim SQLParks, RSParks
					
					' To Change Search type, enter SIC Search code after @Type_Code='xxxxx'	
					SQLParks = "Select * from Entity E inner join Entity_Detail ED on E.Entity_ID = ED.Entity_ID Where ED.State = 'FL' and ED.City = '" & RS1("Name") & "'"
					Set RSParks = Server.CreateObject("ADODB.Recordset")
					RSParks.Open SQLParks, Conn
					
					Do while not RSParks.EOF%>
					
					<OPTION value="<%=RSParks("Entity_ID")%>"><%=RSParks("Name")%></OPTION>
					
					<%RSParks.movenext()
					Loop%>
		</select>
      </td>
      <td width="110">&nbsp;</td>
    </tr>
    <tr> 
      <td width="162">&nbsp;</td>
      <td width="228">&nbsp;</td>
      <td width="110">&nbsp;</td>
    </tr>
    <tr> 
      <td width="162" class="manage-menu-bold">Science &amp; Technology</td>
      <td width="228">
        <select name="select4" size="3" multiple>
         <%			
					Dim SQLScience, RSScience
					
					' To Change Search type, enter SIC Search code after @Type_Code='xxxxx'	
					SQLScience = "Select * from Entity E inner join Entity_Detail ED on E.Entity_ID = ED.Entity_ID Where ED.State = 'FL' and ED.City = '" & RS1("Name") & "'"
					Set RSScience = Server.CreateObject("ADODB.Recordset")
					RSScience.Open SQLScience, Conn
					
					Do while not RSScience.EOF%>
					
					<OPTION value="<%=RSScience("Entity_ID")%>"><%=RSScience("Name")%></OPTION>
					
					<%RSScience.movenext()
					Loop%>
		</select>
      </td>
      <td width="110">&nbsp;</td>
    </tr>
    <tr> 
      <td width="162" class="manage-menu-bold">&nbsp;</td>
      <td width="228">&nbsp;</td>
      <td width="110">&nbsp;</td>
    </tr>
    <tr> 
      <td width="162" class="manage-menu-bold">Sports</td>
      <td width="228">
        <select name="select5" size="3" multiple>
         <%			
					Dim SQLSports, RSSports
					
					' To Change Search type, enter SIC Search code after @Type_Code='xxxxx'	
					SQLSports = "Select * from Entity E inner join Entity_Detail ED on E.Entity_ID = ED.Entity_ID Where ED.State = 'FL' and ED.City = '" & RS1("Name") & "'"
					Set RSSports = Server.CreateObject("ADODB.Recordset")
					RSSports.Open SQLSports, Conn
					
					Do while not RSSports.EOF%>
					
					<OPTION value="<%=RSSports("Entity_ID")%>"><%=RSSports("Name")%></OPTION>
					
					<%RSSports.movenext()
					Loop%>
		</select>
      </td>
      <td width="110">&nbsp;</td>
    </tr>
    <tr> 
      <td width="162" class="manage-menu-bold">&nbsp;</td>
      <td width="228">&nbsp;</td>
      <td width="110">&nbsp;</td>
    </tr>
    <tr> 
      <td width="162" class="manage-menu-bold">Night Life</td>
      <td width="228">
        <select name="select6" size="3" multiple>
         <%			
					Dim SQLNight, RSNight
					
					' To Change Search type, enter SIC Search code after @Type_Code='xxxxx'	
					SQLNight = "Select * from Entity E inner join Entity_Detail ED on E.Entity_ID = ED.Entity_ID Where ED.State = 'FL' and ED.City = '" & RS1("Name") & "'"
					Set RSNight = Server.CreateObject("ADODB.Recordset")
					RSNight.Open SQLNight, Conn
					
					Do while not RSNight.EOF%>
					
					<OPTION value="<%=RSNight("Entity_ID")%>"><%=RSNight("Name")%></OPTION>
					
					<%RSNight.movenext()
					Loop%>
		</select>
      </td>
      <td width="110">&nbsp;</td>
    </tr>
    <tr> 
      <td width="162" class="manage-menu-bold">&nbsp;</td>
      <td width="228">&nbsp;</td>
      <td width="110">&nbsp;</td>
    </tr>
    <tr> 
      <td width="162" class="manage-menu-bold">Dining &amp; Entertainment</td>
      <td width="228">
        <select name="select7" size="3" multiple>
         <%			
					Dim SQLDine, RSDine
					
					' To Change Search type, enter SIC Search code after @Type_Code='xxxxx'	
					SQLDine = "Select * from Entity E inner join Entity_Detail ED on E.Entity_ID = ED.Entity_ID Where ED.State = 'FL' and ED.City = '" & RS1("Name") & "'"
					Set RSDine = Server.CreateObject("ADODB.Recordset")
					RSDine.Open SQLDine, Conn
					
					Do while not RSDine.EOF%>
					
					<OPTION value="<%=RSDine("Entity_ID")%>"><%=RSDine("Name")%></OPTION>
					
					<%RSDine.movenext()
					Loop%>
		</select>
      </td>
      <td width="110">&nbsp;</td>
    </tr>
    <tr> 
      <td width="162" class="manage-menu-bold">&nbsp;</td>
      <td width="228">&nbsp;</td>
      <td width="110">&nbsp;</td>
    </tr>
    <tr> 
      <td width="162" class="manage-menu-bold">Fun &amp; Adventure</td>
      <td width="228">
        <select name="select8" size="3" multiple>
         <%			
					Dim SQLFun, RSFun
					
					' To Change Search type, enter SIC Search code after @Type_Code='xxxxx'	
					SQLFun = "Select * from Entity E inner join Entity_Detail ED on E.Entity_ID = ED.Entity_ID Where ED.State = 'FL' and ED.City = '" & RS1("Name") & "'"
					Set RSFun = Server.CreateObject("ADODB.Recordset")
					RSFun.Open SQLFun, Conn
					
					Do while not RSFun.EOF%>
					
					<OPTION value="<%=RSFun("Entity_ID")%>"><%=RSFun("Name")%></OPTION>
					
					<%RSFun.movenext()
					Loop%>
		</select>
      </td>
      <td width="110">&nbsp;</td>
    </tr>
    <tr> 
      <td width="162">&nbsp;</td>
      <td width="228">&nbsp;</td>
      <td width="110">&nbsp;</td>
    </tr>
    <tr> 
      <td width="162">&nbsp;</td>
      <td width="228">&nbsp;</td>
      <td width="110">&nbsp;</td>
    </tr>
    <% End If%>
  </table>
  
<table width="525" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr bgcolor="#5e5ebe"> 
    <td align="right" width="49%" height="18"><a href="javascript:Sub_Form('1');" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('submitchanges','','images/icon-submit-changes-2.gif',1)"><img src="images/icon-submit-changes.gif" width="200" height="15" name="submitchanges" border="0"></a></td>
      <td width="51%" height="18"><a href="javascript:Sub_Form('2');" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image2','','images/icon-continue-wizard-2.gif',1)"><img src="images/icon-continue-wizard.gif" width="150" height="15" 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>
