<!--#include file="ewconfig.asp"-->
<!--#include file="db.asp"-->
<!--#include file="nilecruisesinfo.asp"-->
<!--#include file="advsecu.asp"-->
<!--#include file="aspmkrfn.asp"-->
<%
Response.Expires = 0
Response.ExpiresAbsolute = Now() - 1
Response.AddHeader "pragma", "no-cache"
Response.AddHeader "cache-control", "private, no-cache, no-store, must-revalidate"
%>
<%
If Not IsLoggedIn And Request.Cookies(ewProjectName)("autologin") = "autologin" And Request.Cookies(ewProjectName)("password") <> "" Then Response.Redirect "login.asp"
Call LoadUserLevel()
If IsLoggedIn Then
	ewCurSec = CurrentUserLevelPriv("nilecruises")
Else
	ewCurSec = GetAnonymousPriv("nilecruises")
End If
If (ewCurSec And ewAllowSearch) <> ewAllowSearch Then Response.Redirect "nilecruiseslist.asp"
%>
<%

' Initialize common variables
x_NileCruiseID = Null: ox_NileCruiseID = Null: z_NileCruiseID = Null
x_NileCruiseLogo = Null: ox_NileCruiseLogo = Null: z_NileCruiseLogo = Null
fs_x_NileCruiseLogo = 0: fn_x_NileCruiseLogo = "": ct_x_NileCruiseLogo = ""
wd_x_NileCruiseLogo = 0: ht_x_NileCruiseLogo = 0: a_x_NileCruiseLogo = ""
x_NileCruiseName = Null: ox_NileCruiseName = Null: z_NileCruiseName = Null
x_CruiseCategory = Null: ox_CruiseCategory = Null: z_CruiseCategory = Null
x_CruiseItinerary = Null: ox_CruiseItinerary = Null: z_CruiseItinerary = Null
x_CruiseDescription = Null: ox_CruiseDescription = Null: z_CruiseDescription = Null
x_Photo1 = Null: ox_Photo1 = Null: z_Photo1 = Null
fs_x_Photo1 = 0: fn_x_Photo1 = "": ct_x_Photo1 = ""
wd_x_Photo1 = 0: ht_x_Photo1 = 0: a_x_Photo1 = ""
x_Photo2 = Null: ox_Photo2 = Null: z_Photo2 = Null
fs_x_Photo2 = 0: fn_x_Photo2 = "": ct_x_Photo2 = ""
wd_x_Photo2 = 0: ht_x_Photo2 = 0: a_x_Photo2 = ""
x_Photo3 = Null: ox_Photo3 = Null: z_Photo3 = Null
fs_x_Photo3 = 0: fn_x_Photo3 = "": ct_x_Photo3 = ""
wd_x_Photo3 = 0: ht_x_Photo3 = 0: a_x_Photo3 = ""
x_Photo4 = Null: ox_Photo4 = Null: z_Photo4 = Null
fs_x_Photo4 = 0: fn_x_Photo4 = "": ct_x_Photo4 = ""
wd_x_Photo4 = 0: ht_x_Photo4 = 0: a_x_Photo4 = ""
x_Photo5 = Null: ox_Photo5 = Null: z_Photo5 = Null
fs_x_Photo5 = 0: fn_x_Photo5 = "": ct_x_Photo5 = ""
wd_x_Photo5 = 0: ht_x_Photo5 = 0: a_x_Photo5 = ""
x_Cabinfacilities = Null: ox_Cabinfacilities = Null: z_Cabinfacilities = Null
x_Cruisefacilities = Null: ox_Cruisefacilities = Null: z_Cruisefacilities = Null
%>
<%
Response.Buffer = True

' Get action
sAction = Request.Form("a_search")
Select Case sAction
	Case "S": ' Get Search Criteria

	' Build search string for advanced search, remove blank field
	sSrchStr = ""

	' Field NileCruiseID
	x_NileCruiseID = Request.Form("x_NileCruiseID")
	z_NileCruiseID = Request.Form("z_NileCruiseID")
	sSrchWrk = ""
	If x_NileCruiseID <> "" Then
		sSrchWrk = sSrchWrk & "x_NileCruiseID=" & Server.URLEncode(x_NileCruiseID)
		sSrchWrk = sSrchWrk & "&z_NileCruiseID=" & Server.URLEncode(z_NileCruiseID)
	End If
	If sSrchWrk <> "" Then
		If sSrchStr <> "" Then sSrchStr = sSrchStr & "&"
		sSrchStr = sSrchStr & sSrchWrk
	End If

	' Field NileCruiseName
	x_NileCruiseName = Request.Form("x_NileCruiseName")
	z_NileCruiseName = Request.Form("z_NileCruiseName")
	sSrchWrk = ""
	If x_NileCruiseName <> "" Then
		sSrchWrk = sSrchWrk & "x_NileCruiseName=" & Server.URLEncode(x_NileCruiseName)
		sSrchWrk = sSrchWrk & "&z_NileCruiseName=" & Server.URLEncode(z_NileCruiseName)
	End If
	If sSrchWrk <> "" Then
		If sSrchStr <> "" Then sSrchStr = sSrchStr & "&"
		sSrchStr = sSrchStr & sSrchWrk
	End If

	' Field CruiseCategory
	x_CruiseCategory = Request.Form("x_CruiseCategory")
	z_CruiseCategory = Request.Form("z_CruiseCategory")
	sSrchWrk = ""
	If x_CruiseCategory <> "" Then
		sSrchWrk = sSrchWrk & "x_CruiseCategory=" & Server.URLEncode(x_CruiseCategory)
		sSrchWrk = sSrchWrk & "&z_CruiseCategory=" & Server.URLEncode(z_CruiseCategory)
	End If
	If sSrchWrk <> "" Then
		If sSrchStr <> "" Then sSrchStr = sSrchStr & "&"
		sSrchStr = sSrchStr & sSrchWrk
	End If

	' Field CruiseItinerary
	x_CruiseItinerary = Request.Form("x_CruiseItinerary")
	z_CruiseItinerary = Request.Form("z_CruiseItinerary")
	sSrchWrk = ""
	If x_CruiseItinerary <> "" Then
		sSrchWrk = sSrchWrk & "x_CruiseItinerary=" & Server.URLEncode(x_CruiseItinerary)
		sSrchWrk = sSrchWrk & "&z_CruiseItinerary=" & Server.URLEncode(z_CruiseItinerary)
	End If
	If sSrchWrk <> "" Then
		If sSrchStr <> "" Then sSrchStr = sSrchStr & "&"
		sSrchStr = sSrchStr & sSrchWrk
	End If

	' Field CruiseDescription
	x_CruiseDescription = Request.Form("x_CruiseDescription")
	z_CruiseDescription = Request.Form("z_CruiseDescription")
	sSrchWrk = ""
	If ((Left(LCase(x_CruiseDescription), 3) = "<p>") And (Right(LCase(x_CruiseDescription), 4) = "</p>")) Then x_CruiseDescription = Trim(Mid(x_CruiseDescription, 4, Len(x_CruiseDescription)-7)) ' Remove <p></p>
	If x_CruiseDescription <> "" Then
		sSrchWrk = sSrchWrk & "x_CruiseDescription=" & Server.URLEncode(x_CruiseDescription)
		sSrchWrk = sSrchWrk & "&z_CruiseDescription=" & Server.URLEncode(z_CruiseDescription)
	End If
	If sSrchWrk <> "" Then
		If sSrchStr <> "" Then sSrchStr = sSrchStr & "&"
		sSrchStr = sSrchStr & sSrchWrk
	End If

	' Field Cabinfacilities
	x_Cabinfacilities = Request.Form("x_Cabinfacilities")
	z_Cabinfacilities = Request.Form("z_Cabinfacilities")
	sSrchWrk = ""
	If x_Cabinfacilities <> "" Then
		sSrchWrk = sSrchWrk & "x_Cabinfacilities=" & Server.URLEncode(x_Cabinfacilities)
		sSrchWrk = sSrchWrk & "&z_Cabinfacilities=" & Server.URLEncode(z_Cabinfacilities)
	End If
	If sSrchWrk <> "" Then
		If sSrchStr <> "" Then sSrchStr = sSrchStr & "&"
		sSrchStr = sSrchStr & sSrchWrk
	End If

	' Field Cruisefacilities
	x_Cruisefacilities = Request.Form("x_Cruisefacilities")
	z_Cruisefacilities = Request.Form("z_Cruisefacilities")
	sSrchWrk = ""
	If x_Cruisefacilities <> "" Then
		sSrchWrk = sSrchWrk & "x_Cruisefacilities=" & Server.URLEncode(x_Cruisefacilities)
		sSrchWrk = sSrchWrk & "&z_Cruisefacilities=" & Server.URLEncode(z_Cruisefacilities)
	End If
	If sSrchWrk <> "" Then
		If sSrchStr <> "" Then sSrchStr = sSrchStr & "&"
		sSrchStr = sSrchStr & sSrchWrk
	End If
	If sSrchStr <> "" Then
		Response.Clear
		Response.Redirect "nilecruiseslist.asp" & "?" & sSrchStr
	End If
	Case Else ' Restore search settings
		x_NileCruiseID = Session(ewSessionTblAdvSrch & "_x_NileCruiseID")
		x_NileCruiseName = Session(ewSessionTblAdvSrch & "_x_NileCruiseName")
		x_CruiseCategory = Session(ewSessionTblAdvSrch & "_x_CruiseCategory")
		x_CruiseItinerary = Session(ewSessionTblAdvSrch & "_x_CruiseItinerary")
		x_CruiseDescription = Session(ewSessionTblAdvSrch & "_x_CruiseDescription")
		x_Cabinfacilities = Session(ewSessionTblAdvSrch & "_x_Cabinfacilities")
		x_Cruisefacilities = Session(ewSessionTblAdvSrch & "_x_Cruisefacilities")
End Select

' Open connection to the database
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open xDb_Conn_Str
%>
<!--#include file="header.asp"-->
<script type="text/javascript">
<!--
EW_LookupFn = "ewlookup.asp"; // ewlookup file name
EW_AddOptFn = "ewaddopt.asp"; // ewaddopt.asp file name
//-->
</script>
<script type="text/javascript" src="ew.js"></script>
<script type="text/javascript">
<!--
EW_dateSep = "/"; // set date separator
EW_UploadAllowedFileExt = "gif,jpg,jpeg,bmp,png,doc,xls,pdf,zip"; // allowd upload file extension
//-->
</script>
<script type="text/javascript">
<!--
function EW_checkMyForm(EW_this) {
if (EW_this.x_NileCruiseID && !EW_checkinteger(EW_this.x_NileCruiseID.value)) {
	if (!EW_onError(EW_this, EW_this.x_NileCruiseID, "NO", "Incorrect integer - Nile Cruise ID"))
		return false; 
}
return true;
}
//-->
</script>
<script type="text/javascript" src="fckeditor/fckeditor.js"></script>
<script type="text/javascript">
<!--
_width_multiplier = 16;
_height_multiplier = 60;
var EW_DHTMLEditors = [];
function EW_UpdateTextArea() {
	if (typeof EW_DHTMLEditors != 'undefined' &&
		typeof FCKeditorAPI != 'undefined') {			
			var inst;			
			for (inst in FCKeditorAPI.__Instances)
				FCKeditorAPI.__Instances[inst].UpdateLinkedField();
	}
}
//-->
</script>
<p><span class="aspmaker">Search TABLE: nilecruises<br><br><a href="nilecruiseslist.asp">Back to List</a></span></p>
<form name="fnilecruisessearch" id="fnilecruisessearch" action="nilecruisessrch.asp" method="post">
<p>
<input type="hidden" name="a_search" value="S">
<table class="ewTable">
	<tr>
		<td class="ewTableHeader"><span>Nile Cruise ID</span></td>
		<td class="ewTableAltRow"><span class="aspmaker">=<input type="hidden" name="z_NileCruiseID" value="=,,"></span></td>
		<td class="ewTableAltRow"><span class="aspmaker">
<input type="text" name="x_NileCruiseID" value="<%= x_NileCruiseID %>">
</span></td>
	</tr>
	<tr>
		<td class="ewTableHeader"><span>Nile Cruise Name</span></td>
		<td class="ewTableAltRow"><span class="aspmaker">contains<input type="hidden" name="z_NileCruiseName" value="LIKE,'%,%'"></span></td>
		<td class="ewTableAltRow"><span class="aspmaker">
<input type="text" name="x_NileCruiseName" id="x_NileCruiseName" size="30" value="<%= Server.HTMLEncode(x_NileCruiseName&"") %>">
</span></td>
	</tr>
	<tr>
		<td class="ewTableHeader"><span>Cruise Category</span></td>
		<td class="ewTableAltRow"><span class="aspmaker">contains<input type="hidden" name="z_CruiseCategory" value="LIKE,'%,%'"></span></td>
		<td class="ewTableAltRow"><span class="aspmaker">
<%
lst_x_CruiseCategory = "<select id='x_CruiseCategory' name='x_CruiseCategory'>"
lst_x_CruiseCategory = lst_x_CruiseCategory & "<option value=''>Please Select</option>"
sSqlWrk = "SELECT `HotelCategory` FROM `hotelcategory`"
Set rswrk = Server.CreateObject("ADODB.Recordset")
rswrk.Open sSqlWrk, conn
If Not rswrk.Eof Then
	datawrk = rswrk.GetRows
	rowswrk = UBound(datawrk, 2)
	For rowcntwrk = 0 To rowswrk
		lst_x_CruiseCategory = lst_x_CruiseCategory & "<option value='" & datawrk(0, rowcntwrk) & "'"
		If CStr(datawrk(0, rowcntwrk)&"") = CStr(x_CruiseCategory&"") Then
			lst_x_CruiseCategory = lst_x_CruiseCategory & " selected"
		End If
		lst_x_CruiseCategory = lst_x_CruiseCategory & ">" & datawrk(0, rowcntwrk) & "</option>"
	Next
End If
rswrk.Close
Set rswrk = Nothing
lst_x_CruiseCategory = lst_x_CruiseCategory & "</select>"
Response.Write lst_x_CruiseCategory
%>
</span></td>
	</tr>
	<tr>
		<td class="ewTableHeader"><span>Cruise Itinerary</span></td>
		<td class="ewTableAltRow"><span class="aspmaker">contains<input type="hidden" name="z_CruiseItinerary" value="LIKE,'%,%'"></span></td>
		<td class="ewTableAltRow"><span class="aspmaker">
<textarea cols="35" rows="4" id="x_CruiseItinerary" name="x_CruiseItinerary"><%= x_CruiseItinerary %></textarea>
</span></td>
	</tr>
	<tr>
		<td class="ewTableHeader"><span>Cruise Description</span></td>
		<td class="ewTableAltRow"><span class="aspmaker">contains<input type="hidden" name="z_CruiseDescription" value="LIKE,'%,%'"></span></td>
		<td class="ewTableAltRow"><span class="aspmaker">
<textarea cols="35" rows="6" id="x_CruiseDescription" name="x_CruiseDescription"><%= x_CruiseDescription %></textarea>
<script type="text/javascript">
<!--
var editor = new EW_DHTMLEditor("x_CruiseDescription");
editor.create = function() {
	var sBasePath = 'fckeditor/';
	var oFCKeditor = new FCKeditor('x_CruiseDescription', 35*_width_multiplier, 6*_height_multiplier);
	oFCKeditor.BasePath = sBasePath;
	oFCKeditor.ReplaceTextarea();
	this.active = true;
}
EW_DHTMLEditors[EW_DHTMLEditors.length] = editor;
-->
</script>
</span></td>
	</tr>
	<tr>
		<td class="ewTableHeader"><span>Cabinfacilities</span></td>
		<td class="ewTableAltRow"><span class="aspmaker">=<input type="hidden" name="z_Cabinfacilities" value="=,','"></span></td>
		<td class="ewTableAltRow"><span class="aspmaker">
<%
sSqlWrk = "SELECT `CabinFacilities` FROM `cabinfacilities`"
chk_x_Cabinfacilities = ""
Set rswrk = Server.CreateObject("ADODB.Recordset")
rswrk.Open sSqlWrk, conn
If Not rswrk.Eof Then
	datawrk = rswrk.GetRows
	rowswrk = UBound(datawrk, 2)
	ar_x_Cabinfacilities = split(x_Cabinfacilities&"",",")
	For rowcntwrk = 0 To rowswrk
		chk_x_Cabinfacilities = chk_x_Cabinfacilities & RenderControl(rowswrk, rowcntwrk, 3, 1) & "<input type='checkbox' name='x_Cabinfacilities' value='" & datawrk(0, rowcntwrk) & "'"
		For ari_x_Cabinfacilities = 0 to UBound(ar_x_Cabinfacilities)
			If CStr(datawrk(0, rowcntwrk)&"") = Trim(ar_x_Cabinfacilities(ari_x_Cabinfacilities)&"") Then
				chk_x_Cabinfacilities = chk_x_Cabinfacilities & " checked"
				Exit For
			End If
		Next
		chk_x_Cabinfacilities = chk_x_Cabinfacilities & ">" & datawrk(0, rowcntwrk) & RenderControl(rowswrk, rowcntwrk, 3, 2)
	Next
End If
rswrk.Close
Set rswrk = Nothing
Response.Write chk_x_Cabinfacilities
%>
</span></td>
	</tr>
	<tr>
		<td class="ewTableHeader"><span>Cruisefacilities</span></td>
		<td class="ewTableAltRow"><span class="aspmaker">contains<input type="hidden" name="z_Cruisefacilities" value="LIKE,'%,%'"></span></td>
		<td class="ewTableAltRow"><span class="aspmaker">
<%
sSqlWrk = "SELECT `CruiseFacilities` FROM `cruisefacilities`"
chk_x_Cruisefacilities = ""
Set rswrk = Server.CreateObject("ADODB.Recordset")
rswrk.Open sSqlWrk, conn
If Not rswrk.Eof Then
	datawrk = rswrk.GetRows
	rowswrk = UBound(datawrk, 2)
	ar_x_Cruisefacilities = split(x_Cruisefacilities&"",",")
	For rowcntwrk = 0 To rowswrk
		chk_x_Cruisefacilities = chk_x_Cruisefacilities & RenderControl(rowswrk, rowcntwrk, 3, 1) & "<input type='checkbox' name='x_Cruisefacilities' value='" & datawrk(0, rowcntwrk) & "'"
		For ari_x_Cruisefacilities = 0 to UBound(ar_x_Cruisefacilities)
			If CStr(datawrk(0, rowcntwrk)&"") = Trim(ar_x_Cruisefacilities(ari_x_Cruisefacilities)&"") Then
				chk_x_Cruisefacilities = chk_x_Cruisefacilities & " checked"
				Exit For
			End If
		Next
		chk_x_Cruisefacilities = chk_x_Cruisefacilities & ">" & datawrk(0, rowcntwrk) & RenderControl(rowswrk, rowcntwrk, 3, 2)
	Next
End If
rswrk.Close
Set rswrk = Nothing
Response.Write chk_x_Cruisefacilities
%>
</span></td>
	</tr>
</table>
<p>
<input type="button" name="Action" value="Search" onClick="EW_submitForm(this.form);">
<input type="button" name="Reset" value="Reset" onclick="EW_clearForm(this.form);">
</form>
<script type="text/javascript">
<!--
EW_createEditor();  // Create DHTML editor(s)
//-->
</script>
<!--#include file="footer.asp"-->
<%
conn.Close ' Close Connection
Set conn = Nothing
%>