<%response.expires=-1 response.buffer = true thisfile = "search.asp" '******************************************************************************************* '***** Program Name : search.asp '***** Module Name : code '***** Summary Of The Page : This is the search page '***** '***** '***** Calling Pages : '***** '***** Prepared By : paul '***** Modified By : mark '***** Creation Date : 18/12/00 '***** Modification Date : 06/06/01 '***** Version : 4.0 '******************************************************************************************* %> " /> link="#<%= LinkColour %>" alink="#<%= ALinkColour %>" vlink="#<%= VLinkColour %>" topmargin="<%= PageTop %>" leftmargin="<%= PageLeft %>" marginwidth="<%= PageLeft %>" marginheight="<%= PageTop %>"> <%= PageAlign %> <%=chr(10)&chr(13)%> <% if not hideheader = "Y" then response.Write chr(10)&chr(13) 'sees first whether site header needs to be processed processheaderandfooter("header") ' get quadrants from featuredsectors table created by implement changes in back end headertext = fp_getquadrants("headerfooter","header") ' replaces {ifloggedon} tags etc headertext = logonreplace(headertext) ' replaces cart summary information (eg {noitemsincart} headertext = cartsummary(headertext) 'replaces cart buttons headertext = scartbuttonreplacer(headertext,"header") response.Write headertext response.Write chr(10)&chr(13) end if if not hidenav = "Y" then response.Write(coolmenu) response.Write(chr(10)&chr(13)) response.Write(coolmenu2) response.Write(chr(10)&chr(13)) end if response.flush %> <%=CHR(10)&CHR(13)%> <%=CHR(10)&CHR(13)%> <% if navorientation = 0 and not hidesidebar = "Y" then %> <%=chr(10)&chr(13)%> <% response.flush if marginspace > 0 and not hidesidebar = "Y" then %> <%end if end if%> <%=CHR(10)&CHR(13)%> <%=chr(10)&chr(13)%> <% if navorientation = 1 and not hidesidebar = "Y" then %> <%=chr(10)&chr(13)%> <%end if%>

" width="<%=MarginSpace%>" height="1">

" id="searchcontent" name="searchcontent">

<% if not hidefooter = "Y" then response.Write chr(10)&chr(13) 'sees first whether site footer needs to be processed processheaderandfooter("footer") ' get quadrants from featuredsectors table created by implement changes in back end headertext = fp_getquadrants("headerfooter","footer") ' replaces {ifloggedon} tags etc headertext = logonreplace(headertext) ' replaces cart summary information (eg {noitemsincart} headertext = cartsummary(headertext) response.Write headertext response.Write chr(10)&chr(13) %> <%end if%>