<% ' Comersus 5.0x Sophisticated Cart ' Developed by Rodrigo S. Alhadeff for Comersus Open Technologies ' United States ' Open Source License can be found at License.txt ' http://www.comersus.com ' Details: list all the products added last 7 days %> Error processing SSI file
<% On Error Resume Next ' Developed by Rodrigo S. Alhadeff for Comersus Open Technologies ' USA - 2003 ' Open Source License can be found at documentation/readme.txt ' http://www.comersus.com ' Details: all session functions %> <% ' Comersus 5.0x Sophisticated Cart ' Developed by Rodrigo S. Alhadeff for Comersus Open Technologies ' USA - 2003 ' Open Source License can be found at documentation/readme.txt ' http://www.comersus.com ' Details: date functions %> <% function MediumDate (str) Dim aDay, aMonth, aYear aDay = Day(str) aMonth = Monthname(Month(str),True) aYear = Year(str) MediumDate = aDay & "-" & aMonth & "-" & aYear end Function function formatDate(str) if uCase(pDateFormat)="DD/MM/YY" then formatDate=day(str)&"/"&month(str)&"/"&year(str) else formatDate=month(str)&"/"&day(str)&"/"&year(str) end if end function %> <% ' Comersus 5.0x Sophisticated Cart ' Developed by Rodrigo S. Alhadeff for Comersus Open Technologies ' USA - 2003 ' Open Source License can be found at documentation/readme.txt ' http://www.comersus.com ' Details: miscellaneous functions %> <% ' discount code Generator (65^n) function DiscountCodeGenerator(n) dim s randomize() s="1234567890AaBbCcDdEeFfGgHhIiJjKkLlMmNnOoPpQqRrSsTtUuVvWwXxYyZz" do a="" for i = 1 to n a = a + mid(s,cint(rnd()*len(s))+1,1) next ' search if the code is being used mySQL = "SELECT discountCode FROM discounts WHERE discountCode='" &a& "'" call getFromDatabase (mySql, rsTemp3, "miscFunctions") ' eof implies that the code is available loop until rstemp3.eof DiscountCodeGenerator = cstr(a) end function ' randomNumber function, generates a number between 1 and limit function randomNumber(limit) randomize randomNumber=int(rnd*limit)+1 end function ' min value function min(byval value1, byval value2) if value1>value2 then min = value2 else min = value1 end if end function function getMax(arrProducts) dim tempMax, k tempMax=0 for k=0 to uBound(arrProducts) if arrProducts(k,7)>tempMax then tempMax=arrProducts(k,7) next getMax=tempMax end function function getPopularity(currentPopularity, maxPopularity) ' to avoid errors if maxPopularity=0 then maxPopularity=1 getPopularity=int(currentPopularity*4/maxPopularity) end function function removePrefix(input,prefix) removePrefix="" if input<>"" and prefix<>"" then dim longPrefix longPrefix =len(prefix)+1 removePrefix =mid(input,longPrefix) end if end function function saveCookie() response.cookies("test")="-1" end function function readCookie() if request.cookies("test")<>"-1" then readCookie=0 else readCookie=-1 end if end function function writeLog(line, file) set FSO = Server.CreateObject("scripting.FileSystemObject") set myFile = fso.OpenTextFile(file, 8, true) myFile.WriteLine(line) myFile.Close end function sub parseShipmentMethod(pPlainString, pShipmentDesc, pShipmentPrice) dim cutPoint, longpRealTimeShipment cutPoint = instr(pPlainString, "|") longpRealTimeShipment = len(pPlainString) pShipmentPrice = left(pPlainString,cutPoint-1) pShipmentDesc = right(pPlainString,longpRealTimeShipment-cutPoint) if pChangeDecimalPoint="-1" then pShipmentPrice=replace(pShipmentPrice,".",",") end sub sub checkRentalAvailability(pIdProduct, pFrom, pUntil, pIsAvailable, pReason, pQuantity) pQuantity =datediff("d",pFrom,pUntil) if pQuantity<1 then pReason="Rental interval is not correct. Please check date format." pIsAvailable=0 end if ' get availability mySQL="SELECT * FROM rentals WHERE idProduct="&pIdProduct call getFromDatabase(mySQL, rstemp, "comersus_rentalListAvailability.asp") do while not rstemp.eof pLimitFF=datediff("d",pFrom,rstemp("fromDate")) pLimitFU=datediff("d",pFrom,rstemp("untilDate")) pLimitUF=datediff("d",pUntil,rstemp("fromDate")) pLimitUU=datediff("d",pUntil,rstemp("untilDate")) if pLimitFF<=0 and pLimitFU>=0 then pReason="From date reserved" pIsAvailable=0 end if if pLimitUF<=0 and pLimitUU>=0 then if pReason<>"" then pReason=pReason&" and " pReason="End date reserved" pIsAvailable=0 end if rstemp.movenext loop end sub %> <% function sessionInit() ' makes an init over all session variables used if session("idCustomer")="" or isNull(session("idCustomer")) then session("language") = pDefaultLanguage session("idAffiliate") = Cint(1) session("idCustomer") = Cint(0) session("idCustomerType") = Cint(1) session("cartItems") = Cint(0) session("cartSubTotal") = CDbl(0) session("idDbSession") = Cint(0) session("idDbSessionCart") = Cint(0) ' now check if the client browser supports session variables if session("idCustomer")<>0 then response.redirect "comersus_message.asp?message="&Server.Urlencode(dictLanguage.Item(Session("language")&"_additem_1") ) end if sessionInit=-1 else sessionInit=0 end if end function function getSessionVariable(pSessionVariable, pDefault) ' try to get one session variable, if is empty, returns default value if session(pSessionVariable)="" or isNull(session(pSessionVariable)) then getSessionVariable=pDefault else getSessionVariable=session(pSessionVariable) end if end function function checkSessionData() pIdDbSession = getSessionVariable("idDbSession", 0) if Cdbl(pIdDbSession)=0 then ' dbSession not defined pRandomKey = randomNumber(99999999) pDbSessionDate = formatDate(Date()) mySQL="INSERT INTO dbSession (randomKey, sessionType, dbSessionDate) VALUES (" &pRandomKey& ",'web','" &pDbSessionDate& "')" call updateDatabase(mySQL, rsTemp, "sessionFunctions, checkSessionData") ' retrieve idDbSession if lcase(pDatabase)="mysql" then mySQL="SELECT idDbSession AS maxIdDbSession FROM dbSession WHERE idDbSession=last_insert_id()" else mySQL="SELECT MAX(idDbSession) AS maxIdDbSession FROM dbSession WHERE randomKey=" &pRandomKey& " AND dbSessionDate='" &pDbSessionDate& "'" end if call getFromDatabase(mySQL, rsTemp, "sessionFunctions, checkSessionData") if rsTemp.eof then ' try again mySQL="SELECT MAX(idDbSession) AS maxIdDbSession FROM dbSession WHERE randomKey=" &pRandomKey& " AND dbSessionDate='" &pDbSessionDate& "'" call getFromDatabase(mySQL, rsTemp, "sessionFunctions, checkSessionData") end if pIdDbSession=rstemp("maxIdDbSession") end if ' not NULL ' load in session session("idDbSession")=pIdDbSession checkSessionData = pIdDbSession end function function checkDbSessionCartOpen() dim pIdDbSession2 ' check if there is some cart open for current dbSession pIdDbSession2=getSessionVariable("idDbSession", 0) mySQL="SELECT idDbSessionCart FROM dbSessionCart WHERE idDbSession=" &pIdDbSession2& " AND cartOpen=-1 ORDER BY idDbSessionCart" call getFromDatabase(mySQL, rsTemp, "sessionFunctions") if rstemp.eof then checkDbSessionCartOpen = 0 else session("idDbSessionCart") = rstemp("idDbSessionCart") checkDbSessionCartOpen = rstemp("idDbSessionCart") end if end function function createNewDbSessionCart() pIdDbSession=getSessionVariable("idDbSession", 0) if pIdDbSession=0 then response.redirect "comersus_supportError.asp?error="&Server.UrlEncode(" idDbSession was not defined while creating dbSessionCart. idDbSession:"&session("idDbSession")&" - Type:"&varType(session("idDbSession"))) end if mySQL="INSERT INTO dbSessionCart (idDbSession, cartOpen) VALUES (" &pIdDbSession& ",-1)" call updateDatabase(mySQL, rsTemp, "sessionFunctions, createNewDbSessionCart") ' retrieve idDbSession mySQL="SELECT MAX(idDbSessionCart) AS maxIdDbSessionCart FROM dbSessionCart WHERE idDbSession=" &pIdDbSession call getFromDatabase(mySQL, rsTemp, "sessionFunctions, createNewDbSessionCart") pIdDbSessionCart=rstemp("maxIdDbSessionCart") createNewDbSessionCart = pIdDbSessionCart end function function getSessionData(dictQueryString) pIdDbSession = getSessionVariable("idDbSession", 0) if pIdDbSession=0 then response.redirect "comersus_supportError.asp?error="&Server.Urlencode("Error in sessionFunctions,idDbSession not defined in session") end if mySQL="SELECT sessionData FROM dbSession WHERE idDbSession=" &pIdDbSession call getFromDatabase(mySQL, rstemp, "sessionFunctions") if not rstemp.eof then pSessionData = rstemp("sessionData") else pSessionData = "" end if if pSessionData="" or isNull(pSessionData) then ' clear sessionData session("IdDbSession") ="" session("IdDbSessionCart") ="" ' clear header cart vars session("cartSubTotal") = Cdbl(0) session("cartItems") = Cint(0) response.redirect "comersus_message.asp?message="&Server.UrlEncode(dictLanguage.Item(Session("language")&"_getsessiondata_1")) end if ' obtain fields from sessionData dim arrayQueryString ' check if last char is & if right(pSessionData,1)="&" then pSessionData=left(pSessionData, len(pSessionData)-1) end if ' insert into one dimensional array arrayQueryString = split(pSessionData, "&") ' insert all values in one dictionary object passed as parameter for f=0 to ubound(arrayQueryString) ' determine = position pEqualPosition = instr(arrayQueryString(f),"=") 'response.write "
Item : "&left(arrayQueryString(f),pEqualPosition-1) 'response.write "
value : "& right(arrayQueryString(f),len(arrayQueryString(f))-pEqualPosition) dictQueryString.Add left(arrayQueryString(f),pEqualPosition-1), right(arrayQueryString(f),len(arrayQueryString(f))-pEqualPosition) next end function function sessionLost() pIdDbSession = getSessionVariable("idDbSession", 0) if pIdDbSession=0 then sessionLost=-1 else sessionLost=0 end if end function %> <% site = Request.ServerVariables("HTTP_REFERER") if site <> "" AND left(site, 33) <> "http://www.theway.org.uk/comersus" Then user_agent = request.servervariables("HTTP_USER_AGENT") if instr(1, user_agent, "Mac") <> 0 then %> <% end if end if %> The Way Ignatian Book Service <%if pHeaderKeywords<>"" then%> <%else%> <%end if%> "> <% ' Offer Box Display if logged in and some random conditions if pCustomerName<>"" then pBoxOpen=left(request.querystring("bop"),2) %> <%else%> <%end if%>

THE WAY
IGNATIAN BOOK SERVICE

search by

Advanced Search

Error processing SSI file
<%=dictLanguage.Item(Session("language")&"_header_1")%> BOOK SERVICE HOME CATEGORIES <%=dictLanguage.Item(Session("language")&"_header_9")%> <%=dictLanguage.Item(Session("language")&"_footer_16")%> <%=dictLanguage.Item(Session("language")&"_footer_11")%> TERMS & CONDITIONS <%=dictLanguage.Item(Session("language")&"_header_5")%> <%=dictLanguage.Item(Session("language")&"_header_8")%> Checkout<%=dictLanguage.Item(Session("language")&"_header_6")%>
You will need to enable JavaScript in order to shop on this site. Please e-mail us if you have any problems: the.way@campion.ox.ac.uk.

Thank you for your WorldPay payment

Return to BOOK SERVICE HOMEPAGE

Return to THE WAY HOMEPAGE

 
Website Security Test