<%@ Language=VBScript %> <% Option Explicit %> <% ' 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 %> Stichting dassenwerkgroep Limburg
 
 

<%=HomeName%>
<% if pidRoot = 99999 then %>

<% end if %> <% if pidRoot <> 99999 then %>

<% else %><% end if %>

Dode das melden

<% 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 %>
Administration admin <% if w = "pages" then %> () <% else %> <% end if %>