 |
 |
|
<% If Not rsTailorMadeSafaris.EOF Or Not rsTailorMadeSafaris.BOF Then %>
<%
While ((Repeat3__numRows <> 0) AND (NOT rsTailorMadeSafaris.EOF))
%>
|
|
" class="linkleftnav"><%=(rsTailorMadeSafaris.Fields.Item("TAILOR_TRIP_NAME").Value)%> |
|
<%
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
%>
| |
<%=(rsTailorMadeSafaris.Fields.Item("TAILOR_BLURB").Value)%>
<% If strCount > 0 Then %> <%=strCount%> Person<% If strCount > 1 Then %>s have <% Else %> has <% End If %>shown interest in this expedition.
<% End If %> |
<%
rsTailorMadeInterested.Close()
%>
| |
|
|
<%
Repeat3__index=Repeat3__index+1
Repeat3__numRows=Repeat3__numRows-1
rsTailorMadeSafaris.MoveNext()
Wend
%>
<% Else %>
|
|
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. |
|
<% End If ' end Not rsTailorMadeSafaris.EOF Or NOT rsTailorMadeSafaris.BOF %>
|
| |
|
 |
|
|
|
|
|
 |
| |
At Bundu Expeditions nothing is
impossible, but for most daytrips and safaris, we need a minimum
number of people to make the trip economically feasible. On
this page we invite visitors to this website to tell us about
their ideas for an exiting daytrip or safari.
We will then have a look at your proposal and post it on the home page and
on this page (see below left). Other visitors to the site
may then indicate their interest in the trip. Once we have
enough people interested, we will work out the logistics and
other detail, and publish the trip as a safari or daytrip
on this site. You will then be able to book your spot if you
wish to do so. |
| |
| Go ahead and tell us about your
idea for a daytrip or safari: |
|
| |
| |
|
|
|
<% 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
%>
| |
<%=(rsSafari.Fields.Item("SAF_BLURB").Value)%> |
|
<%
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()
%>
|
| |
<%
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%>> |
"> |
|
|
|
<% rsTestimonials.Close() %>
<%
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
%>
| |
<%=(rsDaytrips.Fields.Item("DAY_BLURB").Value)%> |
|
|
<%
rsTestimonials.Source = "SELECT DISTINCT TEST_ID FROM bundu_db1.tbl_testimonials WHERE TEST_TRIP LIKE '" + Replace(rsDaytrips.Fields.Item("DAY_SHORTNAME").Value, "'", "''") + "'"
rsTestimonials.Open()
%>
| |
<%
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
%>
|
