<% ' Hvis brugeren ikke er logget rigtigt på sendes vedkommende til det nye site If Session("key") <> "affirmative" Then Response.Redirect "http://www.planetscifi.dk" End if %> //Planet SciFi <% ' funktion til at bestemme hvilken side der er aktiv ' først defineres en masse variabler (det kunne gøres lettere hvis man bare hentydede til linksne via et links array, men du skal jo også have lidt at lave hehe. Det her er tilgengæld mere overskuelig) ' Tak til Jarne Beutnagel for den uvuderlige hjælp med dette script! dim vHome, vArtikler, vLinks, vSalg, vKontakt, vOmsiden, vForum ' variablerne tømmes for alt indhold vHome = "" vArtikler = "" vLinks = "" vSalg = "" vKontakt = "" vOmsiden = "" vForum = "" ' casen giver den aktive side's variable en inline style regel, de sider som ikke er aktive forbliver tomme Select Case Request.Querystring("id") Case "artikler" vArtikler = "style='background-color: #CCC;'" Case "links" vLinks = "style='background-color: #CCC;'" Case "salg" vSalg = "style='background-color: #CCC;'" Case "kontakt" vKontakt = "style='background-color: #CCC;'" Case "omsiden" vOmsiden = "style='background-color: #CCC;'" Case "forum" vForum = "style='background-color: #CCC;'" Case Else vHome = "style='background-color: #CCC;'" End Select %> <% If request.QueryString("id") = "afmeld_nyhedsbrev" then else %>

Planet SciFis Nyhedsbrev

<% End if %> <% If Request.QueryString("tilmeldingsstatus") = "true" then %>

Din email-addresse er blevet registreret. Tak for din tilmelding!

<% Else End if %>
<% Select Case Request.Querystring("id") Case "artikler" %> <% Case "links" %> <% Case "salg" %> <% Case "nyhedsbrev" %> <% Case "afmeld_nyhedsbrev" %> <% Case "kontakt" %> <% Case "omsiden" %> <% Case Else %> <% End Select %>

Kontakt webmasteren på mail: Planet.SciFi@KrokoHunter.dk.