<%
'if UCase(request.ServerVariables("SERVER_NAME")) = "BATMAN" OR UCase(request.ServerVariables("SERVER_NAME")) = "DEMO.ONTHEWEB.CO.ZA" OR UCase(request.ServerVariables("SERVER_NAME")) = "DEMO.ONLINEINNOVATIONS.CO.ZA" OR UCase(request.ServerVariables("SERVER_NAME")) = "DEMO.ONLINEINNOVATIONS.COM" then
'else
' if request.ServerVariables("HTTPS") = "off" then
'
'
' For each Field in Request.Form
' TheString = TheString & Field & "="&Request.Form(Field)&"&"
' Next
' if len(TheString) > 0 then
' TheForm = Left(TheString, len(TheString)-1)
' end if
'
' TheString = ""
' For each Field in Request.Querystring
' TheString= TheString & Field & "="& Request.Querystring(Field) &"&"
' Next
' if len(TheString) > 0 then
' TheQuerystring =TheString
' end if
'
' if TheForm = empty and TheQuerystring = empty then
' strVars = ""
' elseif TheForm <> empty and TheQuerystring = empty then
' strVars = "?"&TheForm
' elseif TheForm = empty and TheQuerystring <> empty then
' strVars = "?"&TheQuerystring
' elseif TheForm <> empty and TheQuerystring <> empty then
' strVars = "?"&TheForm &"&"&TheQuerystring
' end if
'
' response.Redirect("https://www.justreservations.com"&strVars)
' response.end
' end if
'end if
i_AffiliateCookieID = Request.Cookies("JustReservations")("AffiliateCookieID")
'Get a session value is availible if we have a value the user has already been tracked
i_AffiliateSessionID =session("AffiliateID")
'Only track information if the Affiliate session value does not exist i.o.w. this session has not been captured
if i_AffiliateSessionID = empty OR NOT IsNumeric(i_AffiliateSessionID) OR ISNULL(i_AffiliateSessionID) then
'First lets check if the users has an Affiliate stored as a cookie on his/her machine
if i_AffiliateCookieID = empty OR NOT IsNumeric(i_AffiliateCookieID) OR ISNULL(i_AffiliateCookieID) then
'No coockie set, so now we check if the user came from an affiliate site...
i_AffiliateRequestID = request("AffiliateID")
'If the user has come from an Affiliate site we store the AffiliateID for future reference
if i_AffiliateRequestID <> empty AND IsNumeric(i_AffiliateRequestID) AND NOT ISNULL(i_AffiliateRequestID) then
Response.Cookies("JustReservations")("AffiliateCookieID") = i_AffiliateRequestID
Response.Cookies("JustReservations")("AffiliateReferer") = request.ServerVariables("HTTP_REFERER")
Response.Cookies("JustReservations").Expires = DateAdd("M", 12, Date())
'Capure Vistor info
s_AffiliateReferer=""
TrackInfo i_AffiliateRequestID,s_AffiliateReferer
session("AffiliateID") = i_AffiliateRequestID
else
'The user did not come from an Affiliate so se t session = 1
session("AffiliateID") = 1
end if
else
'If the User has an AffiliateCooksie set we need to check if the user came from a different affiliate this
'time round and update the cookie accordingly'
i_AffiliateRequestID = request("AffiliateID")
if i_AffiliateRequestID <> empty AND IsNumeric(i_AffiliateRequestID) AND NOT ISNULL(i_AffiliateRequestID) then
Response.Cookies("JustReservations")("AffiliateCookieID") = i_AffiliateRequestID
Response.Cookies("JustReservations").Expires = DateAdd("M", 12, Date())
s_AffiliateReferer = ""
TrackInfo i_AffiliateRequestID,s_AffiliateReferer
session("AffiliateID") = i_AffiliateRequestID
else
'The user did not come from a different Affiliate so set session to the stored cookie value and track the user again
s_AffiliateReferer = Request.Cookies("JustReservations")("AffiliateReferer")
TrackInfo i_AffiliateCookieID,s_AffiliateReferer
session("AffiliateID") = i_AffiliateCookieID
end if
end if
end if
Function TrackInfo(AffiliateID,AffiliateReferer)
set con = server.createobject("ADODB.Connection")
con.open Application("CString")
set rsAffiliateData = server.createobject("ADODB.Recordset")
rsAffiliateData.open "SELECT * FROM SiteTrack Where 1=2", con, 1, 3
rsAffiliateData.AddNew()
rsAffiliateData("TDate") = Now()
rsAffiliateData("AffiliateID") = AffiliateID
rsAffiliateData("ALL_HTTP") = request.ServerVariables("ALL_HTTP")
rsAffiliateData("ALL_RAW") = request.ServerVariables("ALL_RAW")
rsAffiliateData("APPL_MD_PATH") = request.ServerVariables("APPL_MD_PATH")
rsAffiliateData("APPL_PHYSICAL_PATH") = request.ServerVariables("APPL_PHYSICAL_PATH")
rsAffiliateData("CONTENT_LENGTH") = request.ServerVariables("CONTENT_LENGTH")
rsAffiliateData("CONTENT_TYPE") = request.ServerVariables("CONTENT_TYPE")
rsAffiliateData("GATEWAY_INTERFACE") = request.ServerVariables("GATEWAY_INTERFACE")
rsAffiliateData("HTTP_ACCEPT") = request.ServerVariables("HTTP_ACCEPT")
rsAffiliateData("HTTP_ACCEPT_ENCODING") = request.ServerVariables("HTTP_ACCEPT_ENCODING")
rsAffiliateData("HTTP_ACCEPT_LANGUAGE") = request.ServerVariables("HTTP_ACCEPT_LANGUAGE")
rsAffiliateData("HTTP_CONNECTION") = request.ServerVariables("HTTP_CONNECTION")
rsAffiliateData("HTTP_COOKIE") = request.ServerVariables("HTTP_COOKIE")
rsAffiliateData("HTTP_HOST") = request.ServerVariables("HTTP_HOST")
if AffiliateReferer <> empty AND NOT ISNULL(AffiliateReferer) then
rsAffiliateData("HTTP_REFERER") = AffiliateReferer
else
rsAffiliateData("HTTP_REFERER") = request.ServerVariables("HTTP_REFERER")
Response.Cookies("JustReservations")("AffiliateReferer") = request.ServerVariables("HTTP_REFERER")
end if
rsAffiliateData("HTTP_USER_AGENT") = request.ServerVariables("HTTP_USER_AGENT")
rsAffiliateData("HTTP_UA_PIXELS") = request.ServerVariables("HTTP_UA_PIXELS")
rsAffiliateData("HTTP_UA_COLOR") = request.ServerVariables("HTTP_UA_COLOR")
rsAffiliateData("HTTP_UA_OS") = request.ServerVariables("HTTP_UA_OS")
rsAffiliateData("HTTP_UA_CPU") = request.ServerVariables("HTTP_UA_CPU")
rsAffiliateData("HTTPS") = request.ServerVariables("HTTPS")
rsAffiliateData("HTTPS_KEYSIZE") = request.ServerVariables("HTTPS_KEYSIZE")
rsAffiliateData("HTTPS_SECRETKEYSIZE") = request.ServerVariables("HTTPS_SECRETKEYSIZE")
rsAffiliateData("HTTPS_SERVER_ISSUER") = request.ServerVariables("HTTPS_SERVER_ISSUER")
rsAffiliateData("HTTPS_SERVER_SUBJECT") = request.ServerVariables("HTTPS_SERVER_SUBJECT")
rsAffiliateData("INSTANCE_ID") = request.ServerVariables("INSTANCE_ID")
rsAffiliateData("INSTANCE_META_PATH") = request.ServerVariables("INSTANCE_META_PATH")
rsAffiliateData("LOCAL_ADDR") = request.ServerVariables("LOCAL_ADDR")
rsAffiliateData("LOGON_USER") = request.ServerVariables("LOGON_USER")
rsAffiliateData("PATH_INFO") = request.ServerVariables("PATH_INFO")
rsAffiliateData("PATH_TRANSLATED") = request.ServerVariables("PATH_TRANSLATED")
rsAffiliateData("QUERY_STRING") = request.ServerVariables("QUERY_STRING")
rsAffiliateData("REMOTE_ADDR") = request.ServerVariables("REMOTE_ADDR")
rsAffiliateData("REMOTE_HOST") = request.ServerVariables("REMOTE_HOST")
rsAffiliateData("REMOTE_USER") = request.ServerVariables("REMOTE_USER")
rsAffiliateData("REQUEST_METHOD") = request.ServerVariables("REQUEST_METHOD")
rsAffiliateData("SCRIPT_NAME") = request.ServerVariables("SCRIPT_NAME")
rsAffiliateData("SERVER_NAME") = request.ServerVariables("SERVER_NAME")
rsAffiliateData("SERVER_PORT") = request.ServerVariables("SERVER_PORT")
rsAffiliateData("SERVER_PORT_SECURE") = request.ServerVariables("SERVER_PORT_SECURE")
rsAffiliateData("SERVER_PROTOCOL") = request.ServerVariables("SERVER_PROTOCOL")
rsAffiliateData("SERVER_SOFTWARE") = request.ServerVariables("SERVER_SOFTWARE")
rsAffiliateData("URL") = request.ServerVariables("URL")
rsAffiliateData.Update()
session("TLogID") =rsAffiliateData("LogID")
End Function
if i_AffiliateID <> empty and IsNumeric(i_AffiliateID) then
end if
%>
<%
Server.ScriptTimeout = 10000
Response.Buffer = true
Set con = Server.CreateObject("ADODB.Connection")
con.Open Application("CString")
b_CarRental = true
Set UploadProgress = Server.CreateObject("Persits.UploadProgress")
PID = "PID=" & UploadProgress.CreateProgressID()
barref = "UploadMonitor/FRAMEBAR.ASP?to=10&"& PID
set browObj = Server.CreateObject("cyScape.browserObj")
browObj.CookieDetector "noredirect"
if browObj.cookiesEnabled = "False" then
%>
<%
response.end
end if
if request.ServerVariables("REQUEST_METHOD") = "POST" then
strHTML = ""
strHTML = strHTML &"
"& vbcrlf
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "127.0.0.1"
Mail.From = "admin@justreservations.com"
Mail.FromName = "Just Reservations"
Mail.Subject = "Special offers / Competitions"
Mail.IsHTML = True
Mail.Body = strHTML
Mail.AddAddress "andre@onlineinnovations.com"
' Mail.AddAddress "admin@justreservations.com"
'Check first BookingAddress
b_Valid = false
ent_BookingsEmail1 = request("email")
if InStr(ent_BookingsEmail1, "@") > 1 then
if InStr(InStr(ent_BookingsEmail1, "@"), ent_BookingsEmail1, ".") > InStr(ent_BookingsEmail1, "@") then
arrTMP = split(ent_BookingsEmail1, ".")
if Len(arrTMP(UBound(arrTMP))) = 2 or Len(arrTMP(UBound(arrTMP))) = 3 then
b_Valid = true
end if
end if
end if
if b_Valid then
Mail.AddReplyTo ent_BookingsEmail1
end if
On Error Resume Next
Mail.Send
if Err.Number <> 0 then
Mail.Host = "mail.onlineinnovations.co.za"
Mail.Send
end if
Set Mail = nothing
b_Sent = true
end if
i_PageID = 405
if Request("PageID") <> Empty and IsNumeric(Request("PageID")) then
i_PageID = Request("PageID")
end if
strSQL = "SELECT Heading, FileName, Redirect, ImageName, ImageDesc, FileContent FROM CMS_Page WHERE PageID = "& i_PageID
set rsPage = con.execute(strSQL)
s_Heading = ""
s_FileName = ""
s_Redirect = ""
s_ImageName = NULL
s_ImageDesc = ""
s_Content = ""
if not rsPage.EOF then
rsPage.MoveFirst()
s_Heading = rsPage("Heading")
s_FileName = rsPage("FileName")
s_Redirect = rsPage("Redirect")
s_ImageName = rsPage("ImageName")
s_ImageDesc = rsPage("ImageDesc")
s_Content = rsPage("FileContent")
end if
set rsPage = Nothing
if not IsNull(s_Redirect) and s_Redirect <> Empty then
response.redirect(s_Redirect)
elseif not IsNull(s_FileName) and Trim(s_FileName) <> Empty then
Response.Redirect("Uploads/"& s_FileName)
end if
' response.Write("SessionAffiliateID : " & session("AffiliateID")&" ")
' response.Write("CookiesAffiliateID : " & Request.Cookies("JustReservations")("AffiliateCookieID"))
strSQL = "SELECT * FROM Page_Images WHERE PageID = "& i_PageID
set rsDispPhotos = server.createobject("ADODB.Recordset")
rsDispPhotos.open strSQL, con, 3, 1
%>
Car Hire Ireland - Rent a cheap car in Dublin and IrelandHotels in Ireland - Book Ireland Hotels with Just Reservations
Choose your car rental for Ireland with our partner Irish Car Rentals. You can hire your car in Ireland with our secure Irish car rental reservation system. Booking Irish car hire with Just Reservations has never been so easy.
Just Reservations, 55
Merrion Square, Dublin 2, Ireland - Tel. Freephone from UK, Europe, USA
- 08000 183 133 - Freephone from Rep of Ireland
1800 930 595
Top of the page
