<%response.expires = -1 thisfile = "main.asp" '******************************************************************************************* '***** Program Name : main.asp '***** Module Name : code '***** Summary Of The Page : This is main page of the merchant or home page '***** '***** '***** Calling Pages : '***** '***** Prepared By : paul '***** Modified By : Mark '***** Creation Date : 18/12/00 '***** Modification Date : 28/11/03 '***** Version : 4.0 '******************************************************************************************* %> <% if session("useurchin") = "YES" then %> <% end if %> link="#<%= LinkColour %>" alink="#<%= ALinkColour %>" vlink="#<%= VLinkColour %>" topmargin="<%= PageTop %>" leftmargin="<%= PageLeft %>" marginwidth="<%= PageLeft %>" marginheight="<%= PageTop %>"> <%= PageAlign & chr(10) & chr(13) %> <% if not hideheader = "Y" then %> <%=chr(10)&chr(13)%> <%=chr(10)&chr(13)%> <%end if%> <%=chr(10)&chr(13)%> <% 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 %> <%=chr(10)&chr(13)%> <%=chr(10)&chr(13)%> <%if navorientation = 0 and not hidesidebar = "Y" then %> <%=chr(10)&chr(13)%> <% if marginspace > 0 then %> <%end if%> <%end if%> <%=chr(10)&chr(13)%> <%=chr(10)&chr(13)%> <% if navorientation = 1 and not hidesidebar = "Y" then %> <%end if%>

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

<% if len(request("sitepages")) > 0 then 'Display Site Page %> <% elseif len(request("quotepage")) > 0 then %> <% elseif request("listdownload") = "YES" then %> <% else If catid = 0 then 'show home page %> <% Else 'DISPLAY CATEGORY PAGE 'Display Category Page subcatid = 0 'ensures the category page is shown. %> <% end if response.write(chr(10) & chr(13) & "" & chr(10) & chr(13)) %> <% End if %>

<% if not hidefooter = "Y" then %> <%end if%> <% if trim(PageAlign) = "" then response.write chr(10) & chr(13) & "" end if %>