<!--#include virtual="/includes/topofpage.asp"-->
<%
	Dim Page
	Page="46"

	Session("Default_Page") = "default-events.asp"

	Dim Conn, SQL, RS_Events

	Set Conn = Server.CreateObject("ADODB.Connection")
	Conn.Open Application("Conn_String")

	SQL = "Get_Events_By_Realm @Realm_ID='" & Session("Admin_Realm") & "'"
	Set RS_Events = Conn.Execute(SQL)

%>

<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">
<link rel="stylesheet" href="../Style-sheets/no-underline.css" type="text/css">
<link rel="stylesheet" href="../Style-sheets/headline.css" type="text/css">

<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 MM_jumpMenu(targ,selObj,restore){ //v3.0
  eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");
  if (restore) selObj.selectedIndex=0;
}

function Submit_Form(win) {
  form1.action = win;
  form1.submit();
}

function MM_openBrWindow(theURL,winName,features) { //v2.0
  window.open(theURL,winName,features);
}

function Submit_Form_BrWindow(theURL,winName,features) {
  window.open('',winName,features);
  form1.target = winName;
  form1.action = theURL;
  form1.submit();
}
//-->
</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')">
<form name="form1" method="post" action="">
<input type="hidden" name="page" value="<%=Page%>">
  <table width="525" border="0" cellspacing="0" cellpadding="2" align="center">
    <tr> 
    <td width="81%">&nbsp;</td>
    <td align="left" width="19%">&nbsp;</td>
  </tr>
  <tr> 
    <td bgcolor="#5e5ebe" class="headline-ffffff" align="center">Event 
      Administration</td>
    <td bgcolor="#5e5ebe" align="right" width="187"><a href="default-lodging.asp" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image1','','images/icon-return-to-main-2.gif',1)"><img src="images/icon-return-to-main.gif" width="75" height="17" usemap="#returntomain" border="0" name="Image1"></a></td>
  </tr>
  <tr> 
    <td width="81%">&nbsp;</td>
    <td width="19%">&nbsp;</td>
  </tr>
</table>
  <table width="525" border="0" cellspacing="0" cellpadding="2" align="center">
    <tr> 
      <td width="525" colspan="3" align="center"> 
        <select name="admin_event_id" id="admin_event_id" class="input-box-blue">
          <option value="" selected>Select or Create a New Attraction</option>
          <% 
If Not RS_Events.EOF Then
   RS_Events.MoveFirst 
   Do Until RS_Events.EOF 
%>
          <option value="<%=RS_Events("Event_ID")%>"><%=RS_Events("Name")& " (" & RS_Events("Begin_Date") & ")"%></option>
          <% 
   RS_Events.MoveNext 
   Loop 
End IF
%>
        </select>
      </td>
    </tr>
    <tr> 
      <td width="30" class="manage-menu-bold" align="left">&nbsp;</td>
      <td width="395">&nbsp;</td>
      <td width="200">&nbsp;</td>
    </tr>
    <tr> 
      <td>&nbsp;</td>
      <td class="manage-menu-bold" align="left">Event Information</td>
    </tr>
<!--    <tr> 
      <td></td>
      <td><a class=manage-menu href="javascript:Submit_Form_BrWindow('entity_create-frame.asp?Redir=contacts_admin.asp&From=<%=Session("Default_Page")%>&Lookup=3','entity','scrollbars=yes,resizable=yes,width=800,top=100,left=100')">- 
        Address and Phone Information</a></td>
    </tr>
    <tr> 
      <td>&nbsp;</td>
      <td class="manage-menu">- <A class=manage-menu href="javascript:Submit_Form('contacts_admin.asp');">Contacts 
        Information</a></td>
    </tr>
    <tr> 
      <td>&nbsp;</td>
      <td class="manage-menu" align="left">&nbsp;</td>
    </tr>
-->
    <tr> 
      <td>&nbsp;</td>
      <td class="manage-menu-indent" align="left"><a href="javascript:Submit_Form('/Admin/event-create.asp?Next=<%=Request.QueryString("Next")%>')" class="manage-menu">Create a new Event</a></td>
    </tr>
    <tr> 
      <td>&nbsp;</td>
      <td class="manage-menu-indent" align="left"><a href="javascript:Submit_Form('/Admin/event-edit.asp?Next=<%=Request.QueryString("Next")%>')" class="manage-menu">Manage Selected Event</a></td>
    </tr>
    <tr> 
      <td>&nbsp;</td>
      <td class="manage-menu-indent"><A  href="javascript:Submit_Form('events_calender.asp');" class="manage-menu">Calendar of Events</a></td>
    </tr>
<!--
    <tr> 
      <td>&nbsp;</td>
      <td class="manage-menu-bold" align="left">&nbsp;</td>
    </tr>
    <tr> 
      <td>&nbsp;</td>
      <td class="manage-menu-bold" align="left"><a href="javascript:Submit_Form('/Admin/attraction-images-redir.asp')" class="manage-menu-bold">Images</a></td>
    </tr>
    <tr> 
      <td>&nbsp;</td>
      <td class="manage-menu-bold" align="left">&nbsp;</td>
    </tr>
    <tr> 
      <td>&nbsp;</td>
      <td class="manage-menu-bold" align="left"><a href="javascript:Submit_Form('/Admin/attraction-rates_seasonality_define.asp')" class="manage-menu-bold">Seasons</a></td>
    </tr>
    <tr> 
      <td>&nbsp;</td>
      <td class="manage-menu-bold" align="left"><a href="javascript:Submit_Form('/Admin/attraction-ticket-types.asp')" class="manage-menu-bold">Tickets</a></td>
    </tr>
    <tr> 
      <td>&nbsp;</td>
      <td class="manage-menu-bold" align="left"><a href="javascript:Submit_Form('/Admin/attraction-pricing.asp')" class="manage-menu-bold">Rates</a></td>
    </tr>
    <tr> 
      <td>&nbsp;</td>
      <td align="left"><a href="/Admin/attraction-inventory.asp" class="manage-menu-bold">Inventory</a></td>
    </tr>
    <tr> 
      <td>&nbsp;</td>
      <td class="manage-menu-bold" align="left">Attraction Reporting</td>
    </tr>
-->
    <tr> 
      <td>&nbsp;</td>
      <td>&nbsp;</td>
    </tr>
    <tr> 
      <td>&nbsp;</td>
      <td>&nbsp;</td>
    </tr>
    <tr> 
      <td>&nbsp;</td>
      <td>&nbsp;</td>
    </tr>
  </table>
<% If Request.QueryString("Next") = "1" Then %>
<table width="525" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr bgcolor="#5e5ebe"> 
    <td align="right" width="49%" height="18"><a href="default-lodging.asp" 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="room-types_add.asp" 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>
<% End If %>
</form>
</body>
</html>
<%
Set Conn = Nothing
%>