Crawl of the Ireland web domain, .ie, performed for the National Library of Ireland in 2007. This data is currently not publicly accessible.
TIMESTAMPS
The Wayback Machine - https://web.archive.org/all/20021230063826/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("
