|
|
|
 |
 |
| |
| Welcome to our online booking facility where you will be able
to book your seat on one of our safaris or daytrips. Please
select the type of trip you would like to book below: |
| |
|
| |
|
|
|
<% 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
%>
|
