<% Option Explicit %> <% ' fipsCMS light : Copyright fipsASP - Johann Piber, 9020 Klagenfurt, Funderstrasse 26, Austria ' http://www.fipsasp.com / support@fipsasp.com ' You may not edit or delete any Copyright Notices when you are using this Software for free. ' Sie d?rfen keine Copyright Informationen ?ndern oder l?schen, wenn Sie diese Software kostenlos verwenden. %> <% ' Abfrage der per Link ?bergebenen IDs etc ' pidRoot = Root (Hauptseite) der jeweiligen Seite ' pid = ID der jeweiligen Seite ' w = was soll angezeigt werden - pages (Datenbank) oder andere Module Dim pidRoot, pid, pageName, w pidRoot = Request.QueryString("r") pid = Request.QueryString("pid") w = Request.QueryString("w") ' wenn w nicht angegeben wird, dann wird die Datenbank angezeigt if w = "" then w = "pages" end if ' wenn kein Root angegeben wurde, dann wird die Startseite angezeigt if pidRoot = "" then pidRoot = 99999 end if ' wenn keine Seiten-ID angegeben wurde, dann wird die ID "1" = erste Seite angezeigt if pid = "" then pid = 1 end if %> 14214 English Writing 1
Home
<%=HomeName%> <% if pidRoot = 99999 then %>
<% end if %> <% if pidRoot <> 99999 then %>

::
<% else %> <% end if %>
<% if w = "pages" then %> <% elseif w = "news" then %> <% elseif w = "search" then %> <% elseif w = "contact" then %> <% elseif w = "thx" then %> <% elseif w = "map" then %> <% end if %>

 

<% if w = "pages" then %> :: <% else %> <% end if %>

Administration admin