<% strdate="" Id=Request("tourid") set MyCommand=Server.CreateObject("ADODB.Command") set MyCommand.ActiveConnection=conn strQry = " SELECT tbl_TourDates.Id,tbl_TourDates.Id,tbl_TourDates.TourId,tbl_TourDates.DepartureDate,tbl_TourDates.ReturnDate,tbl_TourDates.Cost,tbl_TourDates.IsActive,tbl_Tours.Id,tbl_Tours.Duration,tbl_Tours.MapImage, tbl_Tours.IntroImage FROM tbl_Tours, tbl_TourDates WHERE tbl_TourDates.TourId=tbl_Tours.Id And tbl_TourDates.IsActive=true And tbl_Tours.Id=" & Id & " ORDER by tbl_TourDates.DepartureDate ASC" 'response.write(strQry) 'Response.end set rsCot = Server.CreateObject("ADODB.Recordset") rsCot.open strQry,conn strQry2 = " SELECT Id,MapImage,IntroImage FROM tbl_Tours WHERE Id=" & Id 'response.write(strQry2) 'Response.end set rsCot2 = Server.CreateObject("ADODB.Recordset") rsCot2.open strQry2,conn %>
<%imageName = trim(rsCot2("MapImage"))%> <%imageMapName = trim(rsCot2("IntroImage"))%> <% if (imageMapName <> "" ) then %> > <% end if %>


<% if NOT rsCot.EOF then %> <% do until rsCot.EOF %> <% rsCot.MoveNext loop rsCot.close else %> <% end if %>
" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image11','','images/intro_hover.gif',1)">Intro " onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image9','','images/book_hover.gif',1)">book Inq
   <% strdate = rsCot("DepartureDate") datemonth=month(strdate) if datemonth=12 then response.write("December") end if if datemonth=11 then response.write("November") end if if datemonth=10 then response.write("October") end if if datemonth=9 then response.write("September") end if if datemonth=8 then response.write("August") end if if datemonth=7 then response.write("July") end if if datemonth=6 then response.write("June") end if if datemonth=5 then response.write("May") end if if datemonth=4 then response.write("April") end if if datemonth=3 then response.write("March") end if if datemonth=2 then response.write("February") end if if datemonth=1 then response.write("January") end if %> <% a = FormatDateTime((rsCot.Fields("DepartureDate").value),1) %> <%Response.Write (Right((a),9))%>    <% strdate = rsCot("DepartureDate") strenddate = rsCot("Duration") //Response.Write (strenddate) //Response.Write ("
") //Response.Write ("
") strfinal= DateAdd("d", strenddate-1,strdate) //Response.Write (strfinal) //Response.Write ("
") datemonth=month(strfinal) if datemonth=12 then response.write("December ") end if if datemonth=11 then response.write("November ") end if if datemonth=10 then response.write("October ") end if if datemonth=9 then response.write("September ") end if if datemonth=8 then response.write("August ") end if if datemonth=7 then response.write("July ") end if if datemonth=6 then response.write("June ") end if if datemonth=5 then response.write("May ") end if if datemonth=4 then response.write("April ") end if if datemonth=3 then response.write("March ") end if if datemonth=2 then response.write("February ") end if if datemonth=1 then response.write("January ") end if %> <%strfinal = Replace(strfinal, "/", ", ")%> <%Response.Write (Right((strfinal),8))%>
$<%Response.Write(rsCot.Fields("Cost").value)%> ">Book Now
No tours dates available.