<%@ Language=VBScript %> <% option explicit %> <% ' Copyright by fipsASP (Johann Piber) ' http://www.fipsasp.com / support@fipsasp.com ' You may not delete these Lines! %> <% '---------------------------------------------------------------------------------- ' Dies ist die Hauptdatei, in welche alle anderen Dateien des Shops inkludiert sind ' In this main file of the shop all other files are included '---------------------------------------------------------------------------------- %> <% Dim page, SubKat, SubKats, sortItems, sort1, sort2, sort3, sort4, sort5, sort6 page = Request.QueryString("page") if page = "" then page = "home" end if SubKats = request.querystring("kat") if SubKats = "" then SubKats = 0 end if SubKat = request.querystring("kat") sortItems = request.querystring("sort") if sortItems = "" then sortItems = "ArtName ASC" elseIf sortItems = "sort1" then sortItems = "ArtName ASC" elseIf sortItems = "sort2" then sortItems = "ArtName DESC" elseIf sortItems = "sort3" then sortItems = "Preis ASC" elseIf sortItems = "sort4" then sortItems = "Preis DESC" elseIf sortItems = "sort5" then sortItems = "DateAdded ASC" elseIf sortItems = "sort6" then sortItems = "DateAdded DESC" end if %> <%=txt_ShopName%> <% ' AIDS WAS HERE ..used to be left below - this centres the whole page %>
<% ' AIDS WAS HERE ..used to be 35x80 logo.gif below %>
<%=txt_ShopName%>
 [The Bug]
<% If page = "" or page = "home" then %> <% elseIf page = "items" then %> <% elseIf page = "list" then %> <% elseIf page = "agb" then %> <% elseIf page = "help" then %> <% elseIf page = "contact" then %> <% elseIf page = "search" then %> <% elseIf page = "cart" then %> <% end If %>
<%=txt_navTop%><%=txt_navTop%>