Starting in 1996, Alexa Internet has been donating their crawl data to the Internet Archive. Flowing in every day, these data are added to the Wayback Machine after an embargo period.
Crawl data donated by Alexa Internet. This data is currently not publicly accessible
TIMESTAMPS
The Wayback Machine - https://web.archive.org/all/20030826072901/http://www.shannon-fishery-board.ie:80/shopping/hotels.htm
Welcome to Our Hotels Online
We are
pleased to be able to bring you Hotels Online. There are great deals
to be had. IT'S SECURE- IT'S CONVENIENT
and IT'S A WORLDWIDE ENGINE. Hope you get something to suit you and there is up to 60%
discount offered at times. Happy Browsing.
<%
'======================================================================================='
'This file contains everything needed to integrate CNG booking Engine. '
'It is NOT to be edited. '
'Created 24 january 2002 '
'Example function call for dates display '
'CNG_Integrated_HBE ,hbe_displayDates,"","","ListOfRooms.asp" '
'Version 1.0 '
'======================================================================================='
%>
<%
'*** Constants
Const hbe_displayDates = 1
Const hbe_displayRooms = 2
Const hbe_displayBookingForm = 3
Const hbe_displayConfirmation = 4
Const hbe_displayCountryCityDateSelect = 5
Const hbe_displayHotelList = 6
Const hbe_displayHotelInfo = 7
Const hbe_displayDetailsCancellation = 8
Const hbe_displayConfirmCancellation = 9
Const hbe_hotelDetailsON = 1
Const hbe_hotelDetailsOFF = 0
'*** Wrapper Function
Sub CNGIntegratedHBE (longCID, constFunctionality, strParam1, strParam2, strParam3, strTarget)
'*** strParam2 currently unused
'*** Validate CID
if len(longCID) = 0 then
response.write("
Invalid call to function CNG_Integrated_HBE(). CID not specified.
")
Exit Sub
end if
'*** Declarations
dim objXmlHttp
dim strParameters
strParameters = "cid=" & longCID
dim strUrl
strUrl = "www.CnGHotels.com/IntegratedBE/"
'*** Build Parameters
Select Case constFunctionality
case hbe_displayDates
'*** Display dates, strParam1 contains the HotelID
if len(strParam1) = 0 then
response.write("
Invalid call to function CNG_Integrated_HBE(). HotelID not specified.
")
Exit Sub
end if
if len(strTarget) = 0 then
response.write("
Invalid call to function CNG_Integrated_HBE(). Target file not specified.
")
Exit Sub
end if
strUrl = strUrl & "displayDates.asp"
strParameters = strParameters & "&HotelID;=" & strParam1 & "&Action;=" & strTarget
case hbe_displayRooms
'*** Display rooms
if len(strTarget) = 0 then
response.write("
Invalid call to function CNG_Integrated_HBE(). Target file not specified.
")
Exit Sub
end if
if len(strParam1) = 0 then
response.write("
Invalid call to function CNG_Integrated_HBE(). Incorrect value specified for display of hotel details.
")
Exit Sub
end if
strUrl = strUrl & "displayRooms.asp"
strParameters = strParameters & "&HotelID;=" & request("HotelID") & "&am;=" & request("am") & "&ad;=" & request("ad") & "&dm;=" & request("dm") & "ⅆ=" & request("dd") & "&na;=" & request("na") & "&Action;=" & strTarget & "&Details;=" & strParam1
case hbe_displayBookingForm
'*** Display booking form
if len(strTarget) = 0 then
response.write("
Invalid call to function CNG_Integrated_HBE(). Target file not specified.
Invalid call to function CNG_Integrated_HBE(). Target file not specified.
")
Exit Sub
end if
strUrl = strUrl & "displayCountryCityDateSelect.asp"
'*** Get country code
dim strCountryCode
if request("CCODE") = "" then
strCountryCode = strParam1
else
strCountryCode = request("CCODE")
end if
if len(strCountryCode) = 0 then
response.write("
Invalid call to function CNG_Integrated_HBE(). Country Code not specified.
")
Exit Sub
end if
strParameters = strParameters & "&CCODE;=" & strCountryCode
'*** Check for preselected city
if len(strParam2) > 0 then
strParameters = strParameters & "&City;=" & strParam2
end if
'*** Check for preselected arrival date
if len(strParam3) > 0 then
dim dashPos
dim intArrivalDay
dim intArrivalMonth
dashPos = InStr(1, strParam3, "-")
intArrivalDay = Left(strParam3,dashPos - 1)
intArrivalMonth = Right(strParam3,len(strParam3) - dashPos)
strParameters = strParameters & "&ad;=" & intArrivalDay & "&am;=" & intArrivalMonth
end if
strParameters = strParameters & "&Action;=" & strTarget
case hbe_displayHotelList
'*** Display list of available hotels
if len(strTarget) = 0 then
response.write("
Invalid call to function CNG_Integrated_HBE(). Target file not specified.
")
Exit Sub
end if
strUrl = strUrl & "displayHotelList.asp"
'*** Get Page Number
dim intPageNumber
intPageNumber = 0
if len(request("pageNumber")) <> 0 then
intPageNumber = request("pageNumber")
end if
strParameters = strParameters & "&am;=" & request("am") & "&ad;=" & request("ad") & "&dm;=" & request("dm") & "ⅆ=" & request("dd") & "&na;=" & request("na") & "&pageNumber;=" & intPageNumber & "&city;=" & request("city") & "&CCODE;=" & request("CCODE")
strParameters = strParameters & "&infoPage;=" & strParam1 & "&Action;=" & strTarget
case hbe_displayHotelInfo
'*** Display Hotel Information
strUrl = strUrl & "displayHotelInfo.asp"
strParameters = strParameters & "&am;=" & request("am") & "&ad;=" & request("ad") & "&dm;=" & request("dm") & "ⅆ=" & request("dd") & "&na;=" & request("na") & "&hotelID;=" & request("hotelID") & "&supplier;=" & request("supplier")
strParameters = strParameters & "&listRooms;=" & strParam1
case hbe_displayDetailsCancellation
'*** Display Hotel Cancellation Details
if len(strTarget) = 0 then
response.write("
Invalid call to function CNG_Integrated_HBE(). Target file not specified.
")
Exit Sub
end if
strUrl = strUrl & "displayDetailsCancellation.asp"
strParameters = strParameters & "&Action;=" & strTarget
case hbe_displayConfirmCancellation
'*** Display Hotel cancellation result
strUrl = strUrl & "displayConfirmCancellation.asp"
strParameters = strParameters & "&ItineraryNo;=" & request("ItineraryNo") & "&confirmNo;=" & request("confirmNo") & "&EmailRes;=" & request("EmailRes")
case else
'*** Invalid call
response.write("
Invalid call to function CNG_Integrated_HBE(). Functionality undefined.
")
Exit Sub
End Select
'*** Escape spaces
strParameters = replace(strParameters, " ", "%20")
'*** Send query
Set objXmlHttp = CreateObject("msxml2.serverXMLHTTP")
objXmlHttp.Open "POST", strURL, False
objXmlHttp.SetRequestHeader "Content-Type", "application/x-www-form-urlencoded"
objXmlHttp.send strParameters
'*** Check for status
if (objXmlHttp.Status <> 200) Then
response.write("
