<% set cnPubs = server.createobject("adodb.connection") cnPubs.open connString dim arrTours(99,5) dim count dim strTour dim strSubject dim strLogo dim strbgImage dim strbgColour dim strTableBorder dim strHiLo dim strHires dim strDisplayRes dim strWindowWidth dim strWindowHeight dim strThisPage dim strLocation dim strLocationDisp dim numberofbreaks dim strTextHeight dim strViewer dim strGenre dim strEmail dim strDir dim strSnippet dim strClient dim strClientDisp dim strImageback dim strIpixColour dim strFullScreen strTour = request.querystring("tour") strHiLo = trim(request.querystring("res")) strLocation = request.querystring("location") strViewer = request.querystring("viewer") strGenre = request.querystring("genre") strClient = trim(request.querystring("client")) if strClient <> "" then strSQL = "select clientId, clientName,clientEmail, genreId, clientLogoAlt, clientBgColor, clientTableBorder, clientipixcolor, clientImageback from tbl_client where clientname = '" & strClient & "';" set rsClient = server.createobject("adodb.recordset") rsClient.open strSQL, cnPubs if not rsClient.eof then strEmail = trim(rsClient("clientEmail")) strLogo = trim(rsClient("clientLogoAlt")) strbgColour = trim(rsClient("clientBgColor")) strTableBorder = trim(rsClient("clientTableBorder")) strIpixColour = trim(rsClient("clientipixcolor")) strImageback = trim(rsClient("clientImageback")) end if rsClient.close set rsClient = nothing end if if strLocation <> "" then strSQL = "select locationID, locationName, locationDisp, locationSnippet, locationDir,locationNoBreaks from tbl_location where locationName = '" & strLocation & "';" set rsLocation = server.createobject("adodb.recordset") rsLocation.open strSQL, cnPubs if not rsLocation.eof then strLocationID = rsLocation("locationID") strLocation = trim(rsLocation("locationName")) strLocationDisp = trim(rsLocation("locationDisp")) strSnippet = trim(rsLocation("locationSnippet")) strDir = trim(rsLocation("locationDir")) numberofbreaks = rsLocation("locationNoBreaks") end if rsLocation.close set rsLocation = nothing end if ' resolution stuff, and defaults, all hardcoded ======================================== if strHiLo = "hi" then strHires = "hi" strDisplayRes = "large images" strWindowWidth = "500" strWindowHeight = "375" strTextHeight = "23" end if if strHiLo = "md" then strHires = "md" strDisplayRes = "medium images" strWindowWidth = "400" strWindowHeight = "300" strTextHeight = "30" end if if strHiLo = "lo" then strHires = "lo" strDisplayRes = "small images" strWindowWidth = "320" strWindowHeight = "240" strTextHeight = "18" end if if trim(strTour) = "" then strTour = 0 end if if trim(strViewer) = "" then strViewer = "java" end if strThisPage = "vtourmayer" ' load the tour array strSQL = "select tourId, tourSort, tourName, tourNameDisp, tourDesc, locationId, initialTour from tbl_tour where locationID = " & strLocationID & " order by tourSort;" set rsTours = server.createobject("adodb.recordset") rsTours.open strSQL, cnPubs count = 0 do while not rsTours.eof arrTours(count,0) = trim(rsTours("tourNameDisp")) arrTours(count,1) = strDir & trim(rsTours("tourName")) & strHires & ".ipx" arrTours(count,2) = trim(rsTours("tourDesc")) arrTours(count,3) = strDir & trim(rsTours("tourName")) & "qt" & strHires & ".mov" arrTours(count,4) = strDir & trim(rsTours("tourName")) & "vr.wrl" count = count + 1 rsTours.movenext loop strFullScreen = arrTours(strTour,3) strFullScreen = replace(strFullScreen,"lo.mov","hi.mov") strFullScreen = replace(strFullScreen,"md.mov","hi.mov") rsTours.close set rsTours = nothing %> Virtual Tour Group | Mayer Luz Beach Apartments | <%=strLocationDisp%> Virtual Tour
 Scene Selection
Welcome to the Mayer Luz Beach Apartments Virtual Tours.
Please take a moment to view the accommodation and resort. Please allow the images to download fully.
Image size:
Large
Medium
Small
Currently viewing <%=strDisplayRes%>

Select a scene:
<% for count = 0 to numberofbreaks %> <%=arrTours(count,0)%>
<%next%>
 Virtual Tour Viewer Viewer:   Quicktime
<%if strViewer="java" then%>
<%end if%> <%if strViewer="ipix" then%>
<%end if%> <%if strViewer="quicktime" then%> <%end if%>
<%=arrTours(strTour,2)%>
 Instructions for Use?
Click and hold your mouse button on the image, then move left, right, up or down - any direction.
<% if strLocation = "stjames" then %>
  Copyright © 2005 Virtual Tour Group [Close Window]  
<%elseif strLocation = "bentley" or strLocation = "seaham" or strLocation = "belette" or strLocation="fireworks" then %>
  Copyright © 2005 Virtual Tour Group [Close Window]  
<% else%> <%end if%>
  Copyright © 2005 Virtual Tour Group