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
%>
|