|
|
<%
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
%>
|
|
 |
The area around the lodge is home for thousands of Ring-neck Pheasants,
Canada Geese, White-tail Deer, Sharp-tail Grouse, Mourning Doves,
and several species of Ducks. With this variety of wildlife to
hunt, we hunt all day every day!
After an adventurous hunt at Rolling Plains Adventures, relax in one of our two lodges located on
the ranch. If you enjoy having a BBQ on the deck, watching a dvd
from our collection, relaxing in the spa, witnessing
one of the spectacular sunsets, learning about the ranch history, or anything else we accommodate to, we
are your hunting paradise. Experience what Rolling Plains
Adventures has to offer and see why others keep returning year after
year. We are your hunting hot spot! |
|
