<%@LANGUAGE="VBSCRIPT"%> <% dim xmlReq, xmlRsp, http_obj dim today 'open connection to rezcentral for posting set http_obj=createObject("Microsoft.XMLHTTP") call http_obj.Open("POST", Session("RezUrl"), false) 'post xml request Set xmlReq = Server.CreateObject("Microsoft.XMLDOM") xmlReq.async = False xmlReq.Load(Server.MapPath("reqloc.xml")) 'set properties xmlReq.getElementsByTagName("Dategmtime").item(0).text=Now() xmlReq.getElementsByTagName("SenderID").item(0).text="TSD01" xmlReq.getElementsByTagName("RecipientID").item(0).text="TRN" xmlReq.getElementsByTagName("TradingPartnerCode").item(0).text="WEB" xmlReq.getElementsByTagName("CustomerNumber").item(0).text="12083" xmlReq.getElementsByTagName("Passcode").item(0).text="ALASKA" xmlReq.getElementsByTagName("SID").item(0).text=Session.SessionID xmlReq.getElementsByTagName("RemoteAddress").item(0).text=Trim(Request.ServerVariables("REMOTE_ADDR")) call http_obj.Send(xmlReq) Set xmlRsp = Server.CreateObject("Microsoft.XMLDOM") xmlRsp.async = False 'xmlRsp.LoadXml(http_obj.responseText) xmlRsp.LoadXml(replace(http_obj.responseText,"<","<")) 'replace '<:' with '<' today = now() dMon = datepart("m",today) if len(dMon)=1 then dMon = "0" & dMon dDay = datepart("d",today) if len(dDay)=1 then dDay = "0" & dDay dYear = datepart("yyyy",today) today = dMon & "/" & dDay & "/" & dYear later = dateadd("d",1,today) dMon = datepart("m",later) if len(dMon)=1 then dMon = "0" & dMon dDay = datepart("d",later) if len(dDay)=1 then dDay = "0" & dDay dYear = datepart("yyyy",later) later = dMon & "/" & dDay & "/" & dYear %> High Country Car & Truck Rental <% If(Request("puDate") <> "") Then toDay = Request("puDate") If(Request("doDate") <> "") Then later = Request("doDate") %>
able
 


Thank You for Visiting High Country Car & Truck Rental of Anchorage Alaska!

Please Make Your Reservation.

<% If xmlRsp.parseError.errorCode <> 0 Then Response.Write("Error Code: " & xmlRsp.parseError.errorCode & "
") Response.Write("Error Reas: " & xmlRsp.parseError.reason & "
") Response.Write("Error Line: " & xmlRsp.parseError.line & "
") Response.write (http_obj.responseText) else if xmlRsp.getElementsByTagName("MessageID").item(0).text="RSPERR" then Response.Write(xmlRsp.getElementsByTagName("MessageDescription").item(0).text) else Set xmlLst = Server.CreateObject("Microsoft.XMLDOM") set xmlLst = xmlRsp.getElementsByTagName("RentalLocation") %> <%end if%> <%end if%>

High Country Car and Truck Rental has been serving Alaskans since 1988. We are a locally owned and operated organization providing automotive services for locals and visitors alike. We rent to all kinds of tourist groups, travel agents, long term rentals, insurance replacement rentals, corporate clients, airline employees, military, and various companies in and out of the state of Alaska.

 

 

 

High Country
Car & Truck Rental
Conveniently located
minutes from the
airport, or downtown.

Call for more information.
1-888-685-1155 Toll Free
1-907-562-8078 Local

3609 Spenard Road
Anchorage, Alaska 99503