<%=strBannerText%>

Portugal Special Offers 2012 <% j = 0 mySQL = "SELECT tblDestinations.*, tblDestinationLocations.DestinationLocationName FROM tblDestinationLocations INNER JOIN tblDestinations ON tblDestinationLocations.DestinationLocation_ID = tblDestinations.DestinationLocation_ID Where tblDestinations.DestinationLocation_ID = 21 AND tblDestinations.Status='Live' Order By tblDestinations.DisplayOrder ASC" 'response.write(mySQL) 'mySQL = "SELECT * From tblUsers Order By FirstName, Surname" call updateDatabase(mySQL, rsTemp, "alumni_list.asp") if rstemp.eof then strOffersAvaialble = "No" else rstemp.moveFirst strCount = 0 yRow = 0 Dim DistinationArray(7, 50) do while not rstemp.eof DistinationArray(0,yRow) = rsTemp.Fields("Destination_ID") DistinationArray(1,yRow) = rsTemp.Fields("DestinationName") DistinationArray(2,yRow) = rsTemp.Fields("DestinationSummary") DistinationArray(3,yRow) = rsTemp.Fields("Stars") DistinationArray(4,yRow) = rsTemp.Fields("PageLink") DistinationArray(5,yRow) = rsTemp.Fields("PhotoList") DistinationArray(6,yRow) = rsTemp.Fields("BookBy") yRow = yRow + 1 strCount = strCount + 1 rstemp.moveNext loop 'response.write("Number of Desinations: " & strCount) end if %>

<%if strCount <> "" then%>

<% i = 0 do while i <= strCount %> <%if j < strCount then%> <%end if%> <% Loop%>

<% if DistinationArray(0,i) <> "" then%> <%=DistinationArray(1,i)%> <%=DistinationArray(2,i)%> <%strBookBy=DistinationArray(6,i)%> <%end if i = i +1 %>		<% if DistinationArray(0,i) <> "" then%> <%=DistinationArray(1,i)%> <%=DistinationArray(2,i)%> <%strBookBy=DistinationArray(6,i)%> <%end if i = i +1 %>		<% if DistinationArray(0,i) <> "" then%> <%=DistinationArray(1,i)%> <%=DistinationArray(2,i)%> <%strBookBy=DistinationArray(6,i)%> <%end if i = i +1 %>
<% response.write(DistinationArray(6,j)) j = j +1 %>		<% response.write(DistinationArray(6,j)) j = j +1 %>		<% response.write(DistinationArray(6,j)) j = j +1 %>

<%else%> There are no Special Offers available at the moment. Please call for Latest Prices. <%end if%>