%@ 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
%>