Welcome to Bundu Expeditions ::::

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim rsTailorMadeSafaris__MMColParam rsTailorMadeSafaris__MMColParam = "1" If (Request("MM_EmptyValue") <> "") Then rsTailorMadeSafaris__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rsTailorMadeSafaris Dim rsTailorMadeSafaris_numRows Set rsTailorMadeSafaris = Server.CreateObject("ADODB.Recordset") rsTailorMadeSafaris.ActiveConnection = MM_connBundu_STRING rsTailorMadeSafaris.Source = "SELECT TAILOR_ID, TAILOR_TRIP_NAME, TAILOR_BLURB, TAILOR_DISPLAY FROM bundu_db1.tbl_tailor_made WHERE TAILOR_DISPLAY = " + Replace(rsTailorMadeSafaris__MMColParam, "'", "''") + "" rsTailorMadeSafaris.CursorType = 0 rsTailorMadeSafaris.CursorLocation = 2 rsTailorMadeSafaris.LockType = 1 rsTailorMadeSafaris.Open() rsTailorMadeSafaris_numRows = 0 %> <% Dim rsHome Dim rsHome_numRows Set rsHome = Server.CreateObject("ADODB.Recordset") rsHome.ActiveConnection = MM_connBundu_STRING rsHome.Source = "SELECT * FROM bundu_db1.tbl_home_intro" rsHome.CursorType = 0 rsHome.CursorLocation = 2 rsHome.LockType = 1 rsHome.Open() rsHome_numRows = 0 %> <% Dim rsTailorMadeInterested__MMColParam rsTailorMadeInterested__MMColParam = "1" If (Request("MM_EmptyValue") <> "") Then rsTailorMadeInterested__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rsTailorMadeInterested Dim rsTailorMadeInterested_numRows Set rsTailorMadeInterested = Server.CreateObject("ADODB.Recordset") rsTailorMadeInterested.ActiveConnection = MM_connBundu_STRING rsTailorMadeInterested.CursorType = 0 rsTailorMadeInterested.CursorLocation = 2 rsTailorMadeInterested.LockType = 1 rsTailorMadeInterested_numRows = 0 %> <% Dim Repeat3__numRows Dim Repeat3__index Repeat3__numRows = -1 Repeat3__index = 0 rsTailorMadeSafaris_numRows = rsTailorMadeSafaris_numRows + Repeat3__numRows %> Welcome to Bundu Expeditions :::: <% 'Response.Redirect("suspend.htm") Dim rsSafari Dim rsSafari_numRows Set rsSafari = Server.CreateObject("ADODB.Recordset") rsSafari.ActiveConnection = MM_connBundu_STRING rsSafari.Source = "SELECT SAF_ID, SAF_RANKID, SAF_SHORTNAME, SAF_BLURB FROM bundu_db1.tbl_safari ORDER BY SAF_RANKID ASC" rsSafari.CursorType = 0 rsSafari.CursorLocation = 2 rsSafari.LockType = 1 rsSafari.Open() rsSafari_numRows = 0 %> <% Dim rsDaytrips Dim rsDaytrips_numRows Set rsDaytrips = Server.CreateObject("ADODB.Recordset") rsDaytrips.ActiveConnection = MM_connBundu_STRING rsDaytrips.Source = "SELECT * FROM bundu_db1.tbl_daytrips ORDER BY DAY_RANKID ASC" rsDaytrips.CursorType = 0 rsDaytrips.CursorLocation = 2 rsDaytrips.LockType = 1 rsDaytrips.Open() rsDaytrips_numRows = 0 %> <% Dim rsTestimonials Dim rsTestimonials_numRows Set rsTestimonials = Server.CreateObject("ADODB.Recordset") rsTestimonials.ActiveConnection = MM_connBundu_STRING rsTestimonials.CursorType = 0 rsTestimonials.CursorLocation = 2 rsTestimonials.LockType = 1 rsTestimonials_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rsSafari_numRows = rsSafari_numRows + Repeat1__numRows %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = -1 Repeat2__index = 0 rsDaytrips_numRows = rsDaytrips_numRows + Repeat2__numRows %> <% 'fileupload code - safaris Dim sDirectory, strRoot, strID, strURL strID = Request.QueryString("id") Request.ServerVariables("URL") strURL = "images/uploads/thumbs/safari_thumb" strRoot = Server.MapPath("/") & "/images/uploads/thumbs/" sDirectory = strRoot & "safari_thumb" & strID Dim oFM, oFolder, oSubFolders, oSubFolder, oFiles, oFile ' set stuff for files Set oFM = Server.CreateObject( "Scripting.FileSystemObject" ) %> <% 'fileupload code - daytrips Dim dDirectory, strRootD, strIDD, strURLD strURLD = "images/uploads/thumbs/daytrip_thumb" strRootD = Server.MapPath("/") & "/images/uploads/thumbs/" Dim oFMD, oFolderD, oSubFoldersD, oSubFolderD, oFilesD, oFileD ' set stuff for files Set oFMD = Server.CreateObject( "Scripting.FileSystemObject" ) %> <% Dim rsImage Dim rsImage_numRows rsImagePrefix = 0 rsImageID = 0 If Request.QueryString("id") <> "" Then rsImageID = Request.QueryString("id") End If If Request.QueryString("prefix") <> "" Then rsImagePrefix = Request.QueryString("prefix") End If Set rsImage = Server.CreateObject("ADODB.Recordset") rsImage.ActiveConnection = MM_connBundu_STRING rsImage.CursorType = 0 rsImage.CursorLocation = 2 rsImage.LockType = 1 rsImage_numRows = 0 %>

<% If Not rsTailorMadeSafaris.EOF Or Not rsTailorMadeSafaris.BOF Then %> <% While ((Repeat3__numRows <> 0) AND (NOT rsTailorMadeSafaris.EOF)) %> <% rsTailorMadeInterested.Source = "SELECT COUNT(*) AS INTERESTED_COUNT FROM tbl_interested WHERE INTERESTED_REF = " & rsTailorMadeSafaris.Fields.Item("TAILOR_ID").Value & "" rsTailorMadeInterested.Open() strCount = CInt(rsTailorMadeInterested.Fields.Item("INTERESTED_COUNT")) + 1 ' one added represents person who added the tailored trip %> <% rsTailorMadeInterested.Close() %> <% Repeat3__index=Repeat3__index+1 Repeat3__numRows=Repeat3__numRows-1 rsTailorMadeSafaris.MoveNext() Wend %> <% Else %> <% End If ' end Not rsTailorMadeSafaris.EOF Or NOT rsTailorMadeSafaris.BOF %>


	" class="linkleftnav"><%=(rsTailorMadeSafaris.Fields.Item("TAILOR_TRIP_NAME").Value)%>

	<%=(rsTailorMadeSafaris.Fields.Item("TAILOR_BLURB").Value)%> <% If strCount > 0 Then %> <%=strCount%> Persons <% If strCount > 1 Then %> have <% Else %> has <% End If %> shown interest in this expedition. <% End If %>
	I'm interested! Keep me posted... ">


	If our existing safaris and daytrips are not exactly what you're looking for, please feel free to propose a tailor-made trip by selecting the link above or clicking here.

	Currency Converter
	Unit Converter

<% RANDOMIZE Small = 1 High = 3 RandomNumber = INT((High-Small+1)*Rnd+Small) %>

<%=(rsHome.Fields.Item("HOME_CONTENT").Value)%>

<% If rsSafari.EOF And rsSafari.BOF Then %>

Watch this space for new safaris!

<% End If ' end rsSafari.EOF And rsSafari.BOF %> <% While ((Repeat1__numRows <> 0) AND (NOT rsSafari.EOF)) strID = rsSafari.Fields.Item("SAF_ID").Value rsImage.Source = "SELECT IMAGE_ID FROM bundu_db1.tbl_images WHERE IMAGE_PREFIX = 'safarithumb' AND REF_ID = " & strID rsImage.Open() %> <% sDirectory = strRoot & "safari_thumb" & strID If Not rsImage.EOF Then %> <%=vbCrLf%> <% Else %> <% End If %> <% rsImage.Close() rsImage.Source = "SELECT IMAGE_ID FROM bundu_db1.tbl_images WHERE IMAGE_PREFIX = 'safarislide' AND REF_ID = " & strID rsImage.Open() rsTestimonials.Source = "SELECT DISTINCT TEST_ID FROM bundu_db1.tbl_testimonials WHERE TEST_TRIP LIKE '" + Replace(rsSafari.Fields.Item("SAF_SHORTNAME").Value, "'", "''") + "'" rsTestimonials.Open() %> <% rsTestimonials.Close() %>

" class="linkTripThumbs"><%=(rsSafari.Fields.Item("SAF_SHORTNAME").Value)%>

&prefix=safarithumb" alt="Click to find out more about this safari" width="150" border="0" title="Click to find out more about this safari">

No image available...

<%=(rsSafari.Fields.Item("SAF_BLURB").Value)%>

<% strSlidePathSafari = Server.MapPath("/") & "/images/uploads/slides/safari_slides" & rsSafari.Fields.Item("SAF_ID").Value & "/" Set sFM = Server.CreateObject("Scripting.FileSystemObject") strSafSlide = "no" If sFM.FolderExists(strSlidePathSafari) Then Set sFolder = sFM.GetFolder(strSlidePathSafari) 'Return a collection of all files and info in strFolder Set sFiles = sFolder.Files 'If there are any files in strFolder, display the slideshow icon If sFiles.Count > 0 Then strSafSlide = "yes" Else strSafSlide = "no" End If End If %> <% ' Set source and action for safari slide icons strSAFID = rsSafari.Fields.Item("SAF_ID").Value If strSafSlide = "yes" Then strImgSrcS = "images/utility/slide_safari.gif" strAltS = "View slide show" strJScriptS = "onClick=""MM_openBrWindow('slide.asp?id=" & strSAFID & "&prefix=safari','slide','status=yes,scrollbars=yes,resizable=yes,width=600,height=400')""" Else strImgSrcS = "images/utility/slide_safari2.gif" strAltS = "No slide show available" strJScriptS = "" End If ' Set source and action for safari testimonials icon strSAFsn = rsSafari.Fields.Item("SAF_SHORTNAME").value If Not rsTestimonials.EOF Or Not rsTestimonials.BOF Then strImgSrcST = "images/utility/say_safari.gif" strAltST = "What they say..." strJScriptST = "onClick=""MM_openBrWindow('whattheysay.asp?sn=" & strSAFsn & "','say','status=yes,scrollbars=yes,resizable=yes,width=600,height=400')""" Else strImgSrcST = "images/utility/say_safari2.gif" strAltST = "No testimonials available" strJScriptST = "" End If %>

alt=<%=strAltS%> title="<%=strAltS%>" width="33" height="24" border="0" class="cursorHand" <%=strJScriptS%>>

alt=<%=strAltST%> title="<%=strAltST%>" width="18" height="24" class="cursorHand" <%=strJScriptST%>>

<% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rsSafari.MoveNext() rsImage.Close() Wend %>

<% If rsDaytrips.EOF And rsDaytrips.BOF Then %>

Watch this space for new daytrips!

<% End If ' end rsDaytrips.EOF And rsDaytrips.BOF %> <% While ((Repeat2__numRows <> 0) AND (NOT rsDaytrips.EOF)) strIDD = rsDaytrips.Fields.Item("DAY_ID").Value rsImage.Source = "SELECT IMAGE_ID FROM bundu_db1.tbl_images WHERE IMAGE_PREFIX = 'daytripthumb' AND REF_ID = " & strIDD rsImage.Open() %> <% dDirectory = strRootD & "daytrip_thumb" & strIDD If Not rsImage.EOF Then %> <%=vbCrLf%> <% Else %> <% End If %> <% rsTestimonials.Source = "SELECT DISTINCT TEST_ID FROM bundu_db1.tbl_testimonials WHERE TEST_TRIP LIKE '" + Replace(rsDaytrips.Fields.Item("DAY_SHORTNAME").Value, "'", "''") + "'" rsTestimonials.Open() %>

" class="linkTripThumbs"><%=(rsDaytrips.Fields.Item("DAY_SHORTNAME").Value)%>

&prefix=daytripthumb" alt="Click to find out more about this daytrip" title="Click to find out more about this daytrip" width="150" border="0">

No image available...

<%=(rsDaytrips.Fields.Item("DAY_BLURB").Value)%>

<% strSlidePathDaytrip = Server.MapPath("/") & "/images/uploads/slides/daytrip_slides" & rsDaytrips.Fields.Item("DAY_ID").Value & "/" Set dFM = Server.CreateObject("Scripting.FileSystemObject") strDaySlide = "no" If dFM.FolderExists(strSlidePathDaytrip) Then Set dFolder = dFM.GetFolder(strSlidePathDaytrip) 'Return a collection of all files and info in strFolder Set dFiles = dFolder.Files 'If there are any files in strFolder, display the slideshow icon If dFiles.Count > 0 Then strDaySlide = "yes" Else strDaySlide = "no" End If End If %> <% ' Set source and action for daytrip slide icons strDayID = rsDaytrips.Fields.Item("DAY_ID").Value If strDaySlide = "yes" Then strImgSrcD = "images/utility/slide_daytrip.gif" strAltD = "View slide show" strJScriptD = "onClick=""MM_openBrWindow('slide.asp?id=" & strDayID & "&prefix=daytrip','slide','status=yes,scrollbars=yes,resizable=yes,width=600,height=400')""" Else strImgSrcD = "images/utility/slide_daytrip2.gif" strAltD = "No slide show available" strJScriptD = "" End If ' Set source and action for daytrip testimonials icon strDAYsn = rsDaytrips.Fields.Item("DAY_SHORTNAME").value If Not rsTestimonials.EOF Or Not rsTestimonials.BOF Then strImgSrcDT = "images/utility/say_daytrip.gif" strAltDT = "What they say..." strJScriptDT = "onClick=""MM_openBrWindow('whattheysay.asp?sn=" & strDAYsn & "','say','status=yes,scrollbars=yes,resizable=yes,width=600,height=400')""" Else strImgSrcDT = "images/utility/say_daytrip2.gif" strAltDT = "No testimonials available" strJScriptDT = "" End If %>

alt=<%=strAltD%> title="<%=strAltD%>" width="33" height="24" border="0" class="cursorHand" <%=strJScriptD%>>

alt=<%=strAltDT%> title="<%=strAltDT%>" width="18" height="24" border="0" class="cursorHand" <%=strJScriptDT%>>

<% rsTestimonials.Close() %> <% Repeat2__index=Repeat2__index+1 Repeat2__numRows=Repeat2__numRows-1 rsDaytrips.MoveNext() rsImage.Close() Wend %>

site by Dumel

<% rsSafari.Close() Set rsSafari = Nothing %> <% rsDaytrips.Close() Set rsDaytrips = Nothing %> <% Set rsTestimonials = Nothing %> <% rsTailorMadeSafaris.Close() Set rsTailorMadeSafaris = Nothing %> <% rsHome.Close() Set rsHome = Nothing %> <% Set rsTailorMadeInterested = Nothing %>