<%=str_title%> - Edinburgh apartment to rent - self catering accommodation Edinburgh

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% dim KT_relPath KT_relPath = "../../" %> <% function ConvertTextDate(str_date) if str_date <> "" then dim date_array date_array = split(str_date,"-") dim str_month Select Case date_array(1) case "Jan" str_month = "01" case "Feb" str_month = "02" case "Mar" str_month = "03" case "Apr" str_month = "04" case "May" str_month = "05" case "Jun" str_month = "06" case "Jul" str_month = "07" case "Aug" str_month = "08" case "Sep" str_month = "09" case "Oct" str_month = "10" case "Nov" str_month = "11" case "Dec" str_month = "12" end select ConvertTextDate = date_array(2) & "-" & str_month & "-" & date_array(0) else ConvertTextDate = "" end if end function %> <% dim objXML, objXSL, strURL if request("altcurrency") <> "" then session("altcurrency") = request("altcurrency") end if strURL = "https://secure.supercontrol.co.uk/xml/property_xml.asp?id=" & request.querystring("id") & "&startdate=" & ConvertTextDate(session("startdate")) & "&numbernights=" & session("numbernights") & "&altcurrency=" & session("altcurrency") & "&desc_detail=" & request("desc_detail") & "&tid=" & request.cookies("tid") & "&siteID=84" set objXML=server.CreateObject("MSXML2.DOMDocument") set objXSL=server.CreateObject("MSXML2.DOMDocument") objXML.async=False objXSL.async=False objXML.setProperty "ServerHTTPRequest",true objXML.load strURL objXSL.load Server.MapPath("xsl/property_detail.xsl") 'objXSL.load Server.MapPath("../../xsl/xmldisplay.xsl") 'Response.write strURL dim str_content str_content = objXML.transformNode(objXSL) dim str_title str_title = objXML.selectSingleNode("//scdata/property/propertyname").text dim propertycode propertycode = objXML.selectSingleNode("//scdata/property/propertycode").text dim str_overview str_overview = "" & objXML.selectSingleNode("//scdata/property/cottageweblocation").text & "" & vbcrlf dim str_postcode str_postcode = objXML.selectSingleNode("//scdata/property/propertypostcode").text dim str_map_label str_map_label = "" & objXML.selectSingleNode("//scdata/property/propertyname").text & "" 'str_map_label = str_map_label & "
" & objXML.selectSingleNode("//scdata/property/cottageweblocation").text if objXML.selectSingleNode("//scdata/property/sleeps").text <> "" then str_overview = str_overview & "Sleeps: " & objXML.selectSingleNode("//scdata/property/sleeps").text & "" & vbcrlf end if if objXML.selectSingleNode("//scdata/property/overviewdata/totalbedrooms").text <> "" then str_overview = str_overview & "" & objXML.selectSingleNode("//scdata/property/overviewdata/totalbedrooms").text & "" & vbcrlf end if dim str_map str_map = "" if objXML.selectSingleNode("//scdata/property/map").text <> "" then str_map = objXML.selectSingleNode("//scdata/property/map").text end if dim str_testimonials str_testimonials = false if objXML.selectSingleNode("//scdata/property/testimonials").text <> "" then str_testimonials = true end if dim str_prices str_prices = false if objXML.selectSingleNode("//scdata/property/prices/price/@startdate").text <> "" then str_prices = true end if dim str_booklink str_booklink = "https://secure.supercontrol.co.uk/availability/availability_weekly.asp?siteID=67&ownerID=50&cottageID=cottageID_" & propertycode & "&tid=" & request.cookies("tid") if objXML.selectSingleNode("//scdata/property/prices/booklink").text <> "" then str_booklink = objXML.selectSingleNode("//scdata/property/prices/booklink").text end if dim str_pricestay str_pricestay = "" if objXML.selectSingleNode("//scdata/property/prices/pricestay/@week").text <> "" then str_pricestay = objXML.selectSingleNode("//scdata/property/prices/pricestay/@week").text if objXML.selectSingleNode("//scdata/property/prices/latediscount").text <> "" then str_pricestay = cdbl(str_pricestay) - (cdbl(str_pricestay) * (objXML.selectSingleNode("//scdata/property/prices/latediscount").text / 100)) end if end if set objXML=nothing set objXSL=nothing %> <%=str_title%> - Edinburgh apartment to rent - self catering accommodation Edinburgh <% if request("altcurrency") <> "" then %> <% end if %> <% if str_postcode <> "" then %> <% end if %>

<% dim str_action str_action = "index.asp" %>

<%=str_content%> <% if str_postcode <> "" then %>

Location map

<% end if %>

<% if str_testimonials = true then %> <% end if %> <% 'Check if property is already in shortlist if instr(request.cookies("rcv_shortlist"),propertycode) = 0 then %> <% else %> <% end if %> <% if str_postcode <> "" then %> <% end if %> <% if str_prices = true then %> <% else %> <% end if %>

In brief
<%=str_overview%>
Testimonials
Add to shortlist		In your shortlist - view list
Print this page
Location map
">
<% if str_pricestay <> "" then %> £<%=formatnumber(str_pricestay,2)%> <% end if %>
">