Her er koden...
'Hvis det er første gang siden hentes vil Querystring("uID") være tom og...
If Request.Querystring("uID") = "" Then
'Danner et DateTimeStamp (DatoTidsStempel) for brugeren og lægger brugerens IP-adresse efter
struID = DateTimeStamp(Now()) & Replace(Request.ServerVariables("Remote_Addr"), ".", "")
'Ellers har siden været hentet før og Querystring("uID") vil ikke være tom og....
Else
'Viderfører Querystring("uID")
struID = Request.Querystring("uID")
'kontrollere om der allerede findes en fil med det unikke nummer
If (objFSO.FileExists(SafeFolder & "/uID/" & struID & ".txt")) Then
'Beder brugeren hente siden(forsiden) en gang til
EndPage()
Response.Redirect "index.asp"
End If
End If
'Opbygger gundlink der skal sættes i toppen
str_Link1 = "index.asp?TL=1&uID=" & struID
str_Link2 = "index.asp?TL=2&uID=" & struID
str_Link3 = "index.asp?TL=3&uID=" & struID
str_Link4 = "index.asp?TL=4&uID=" & struID
str_Link5 = "index.asp?TL=5&uID=" & struID
str_Lang = "DK"
str_Style = "Normal"
'Hvis brugeren allerede har en fil oprettet med link og deres værdier overskrives grundlinks
If (objFSO.FileExists(SafeFolder & "/uID/" & struID & ".txt")) Then
'Henter værdierne fra filen
Set uIDFile = objFSO.GetFile(SafeFolder & "/uID/" & struID & ".txt")
Set uIDRead = uIDFile.OpenAsTextStream(1, -2)
str_Link1 = uIDRead.ReadLine
str_Link2 = uIDRead.ReadLine
str_Link3 = uIDRead.ReadLine
str_Link4 = uIDRead.ReadLine
str_Link5 = uIDRead.ReadLine
str_Lang = uIDRead.ReadLine
str_Style = uIDRead.ReadLine
uIDRead.Close
Set uIDRead = Nothing
Set uIDFile = Nothing
End If
'Finder ud af hvilken side der er blevet hentet
str_Page_Reqeusted = Mid(Request.ServerVariables("Path_Info"), InstrRev(Request.ServerVariables("Path_Info"), "/") + 1, Len(Request.ServerVariables("Path_Info")))
'2 muligheder for hvad der sker når musen kører over et menupunkt som ikke er aktivt
strStyleBehavior1 = "onmouseover=""this.style.background='#990000';this.style.color='#ffffff'"" onmouseout=""this.style.background='#cccccc';this.style.color='#000000'"""
strStyleBehavior2 = "onmouseover=""this.style.background='#990000';this.style.color='#ffffff'"" onmouseout=""this.style.background='#003366';this.style.color='#000000'"""
'Opretter grundmodul for de 5 toplink (dvs. deres class og deres onmouseover og onmouseout
str_Link1_Basic = "class=""divpagetopmenu2"" " & strStyleBehavior1
str_Link2_Basic = "class=""divpagetopmenu2"" " & strStyleBehavior1
str_Link3_Basic = "class=""divpagetopmenu2"" " & strStyleBehavior1
str_Link4_Basic = "class=""divpagetopmenu2"" " & strStyleBehavior1
str_Link5_Basic = "class=""divpagetopmenu2"" " & strStyleBehavior1
'Finder ud af hvilket menupunkt siden der er hentet hører under for henholdsvis at opdatere linkværdien samt at ændre class til den markerede samt at sætte hoveropførsel
If Request.Querystring("TL") = 1 Then
str_Link1 = str_Page_Reqeusted & BuildQuerystringsInLink(Request.ServerVariables("Query_String"))
str_Link1_Basic = "class=""divpagetopmenu3"" " & strStyleBehavior2
End If
If Request.Querystring("TL") = 2 Then
str_Link2 = str_Page_Reqeusted & BuildQuerystringsInLink(Request.ServerVariables("Query_String"))
str_Link2_Basic = "class=""divpagetopmenu3"" " & strStyleBehavior2
End If
If Request.Querystring("TL") = 3 Then
str_Link3 = str_Page_Reqeusted & BuildQuerystringsInLink(Request.ServerVariables("Query_String"))
str_Link3_Basic = "class=""divpagetopmenu3"" " & strStyleBehavior2
End If
If Request.Querystring("TL") = 4 Then
str_Link4 = str_Page_Reqeusted & BuildQuerystringsInLink(Request.ServerVariables("Query_String"))
str_Link4_Basic = "class=""divpagetopmenu3"" " & strStyleBehavior2
End If
If Request.Querystring("TL") = 5 Then
str_Link5 = str_Page_Reqeusted & BuildQuerystringsInLink(Request.ServerVariables("Query_String"))
str_Link5_Basic = "class=""divpagetopmenu3"" " & strStyleBehavior2
End If
'Opretter en .txt-fil over brugeren, hvor forskellige nødvendige elementer og valg kan gemmes
Set uIDFile = objFSO.CreateTextFile(SafeFolder & "/uID/" & struID & ".txt", True)
uIDFile.WriteLine ("Link1:" & str_Link1)
uIDFile.WriteLine ("Link2:" & str_Link2)
uIDFile.WriteLine ("Link3:" & str_Link3)
uIDFile.WriteLine ("Link4:" & str_Link4)
uIDFile.WriteLine ("Link5:" & str_Link5)
uIDFile.WriteLine ("Lang:" & str_Lang)
uIDFile.WriteLine ("Style:" & str_Style)
uIDFile.Close
Set uIDFile = Nothing
str_Page_Top_Menu_HTML = str_Page_Top_Menu_HTML & "<div class=""divpagetopmenu1""> </div>" & vbCrLf
str_Page_Top_Menu_HTML = str_Page_Top_Menu_HTML & " <div onclick=""document.location.href='" & str_Link1 & "'"" " & str_Link1_Basic & ">Forside</div>" & vbCrLf
str_Page_Top_Menu_HTML = str_Page_Top_Menu_HTML & " <div class=""divpagetopmenu1""> </div>" & vbCrLf
str_Page_Top_Menu_HTML = str_Page_Top_Menu_HTML & " <div onclick=""document.location.href='" & str_Link2 & "'"" " & str_Link2_Basic & ">Log ind</div>" & vbCrLf
str_Page_Top_Menu_HTML = str_Page_Top_Menu_HTML & " <div class=""divpagetopmenu1""> </div>" & vbCrLf
str_Page_Top_Menu_HTML = str_Page_Top_Menu_HTML & " <div onclick=""document.location.href='" & str_Link3 & "'"" " & str_Link3_Basic & ">Om Corpus Humanum</div>" & vbCrLf
str_Page_Top_Menu_HTML = str_Page_Top_Menu_HTML & " <div class=""divpagetopmenu1""> </div>" & vbCrLf
str_Page_Top_Menu_HTML = str_Page_Top_Menu_HTML & " <div onclick=""document.location.href='" & str_Link4 & "'"" " & str_Link4_Basic & ">Kontakt</div>" & vbCrLf
str_Page_Top_Menu_HTML = str_Page_Top_Menu_HTML & " <div class=""divpagetopmenu1""> </div>" & vbCrLf
str_Page_Top_Menu_HTML = str_Page_Top_Menu_HTML & " <div onclick=""document.location.href='" & str_Link5 & "'"" " & str_Link5_Basic & ">Hjælp</div>" & vbCrLf
str_Page_Top_Menu_HTML = str_Page_Top_Menu_HTML & " <div class=""divpagetopmenu1"" style=""border-right: 0px; ""> </div>" & vbCrLf
