<html>
<head>
<SCRIPT language="VBScript" runat="Server">

FUNCTION fValidPath (ByVal strPath)
   strFilename = Server.MapPath(strVirtualPath)
   ' modifiera för din katalog
   If InStr(1, strFilename, "\enges" ,1) Or InStr(1, strFilename, "\anders.enges\" ,1) Or InStr(1, strFilename, "\aspkurs\" ,1) Or InStr(1, strFilename, "\www\" ,1) Then
      if InStr(1, strFilename, "editor.asp" ,1) or InStr(1, strFilename, "mylogin.asp" ,1) Then
           fValidPath = 0
      else
           fValidPath = 1
      End IF
   Else
     fValidPath = 0
   End If
   If InStr(1, strFilename, "t_" ,1) Then
     fValidPath = 0
   End If
END FUNCTION
</SCRIPT>

<SCRIPT language="VBScript" runat="Server">
REM Returns the minimum number greater than 0
REM If both are 0, returns -1
FUNCTION fMin (iNum1, iNum2)
   If iNum1 = 0 AND iNum2 = 0 Then
     fMin = -1
   ElseIf iNum2 = 0 Then
     fMin = iNum1
   ElseIf iNum1 = 0 Then
     fMin = iNum2
   ElseIf iNum1 < iNum2 Then
     fMin = iNum1
   Else
     fMin = iNum2
   End If
END FUNCTION
</SCRIPT>

<SCRIPT language="VBScript" runat="Server">
FUNCTION fCheckLine (ByVal strLine)

   fCheckLine = 0
   iTemp = 0

   iPos = InStr(strLine, "<" & "%")
   If fMin(iTemp, iPos) = iPos Then
     iTemp = iPos
     fCheckLine = 1
   End If

   iPos = InStr(strLine, "%" & ">")
   If fMin(iTemp, iPos) = iPos Then
     iTemp = iPos
     fCheckLine = 2
   End If

   iPos = InStr(1, strLine, "<" & "SCRIPT", 1)
   If fMin(iTemp, iPos) = iPos Then
     iTemp = iPos
     fCheckLine = 3
   End If

   iPos = InStr(1, strLine, "<" & "/SCRIPT", 1)
   If fMin(iTemp, iPos) = iPos Then
     iTemp = iPos
     fCheckLine = 4
   End If

   iPos = InStr(1, strLine, "<" & "!--", 1)
   If fMin(iTemp, iPos) = iPos Then
     iTemp = iPos
     fCheckLine = 5
   End If

   iPos = InStr(1, strLine, "--" & ">", 1)
   If fMin(iTemp, iPos) = iPos Then
     iTemp = iPos
     fCheckLine = 6
   End If

END FUNCTION
</SCRIPT>

<SCRIPT language="VBScript" runat="Server">
SUB PrintHTML (ByVal strLine)
     iSpaces = Len(strLine) - Len(LTrim(strLine))
     i = 1
     While Mid(Strline, i, 1) = Chr(9)
         iSpaces = iSpaces + 5
         i = i + 1
     Wend
   If iSpaces > 0 Then
     For i = 1 to iSpaces
       Response.Write(" ")
     Next
   End If
   iPos = InStr(strLine, "<")
   If iPos Then
     Response.Write(Left(strLine, iPos - 1))
     Response.Write("<")
     strLine = Right(strLine, Len(strLine) - iPos)
     Call PrintHTML(strLine)
   Else
     Response.Write(strLine)
   End If
END SUB
</SCRIPT>

<SCRIPT language="VBScript" runat="Server">
SUB PrintLine (ByVal strLine, iFlag)
   Select Case iFlag
     Case 0
       Call PrintHTML(strLine)
     Case 1
       iPos = InStr(strLine, "<" & "%")
       Call PrintHTML(Left(strLine, iPos - 1))
       Response.Write("<SPAN>")
       Response.Write("<%")
       strLine = Right(strLine, Len(strLine) - (iPos + 1))
       Call PrintLine(strLine, fCheckLine(strLine))
     Case 2
       iPos = InStr(strLine, "%" & ">")
       Call PrintHTML(Left(strLine, iPos -1))
       Response.Write("%>")
       Response.Write("</SPAN>")
       strLine = Right(strLine, Len(strLine) - (iPos + 1))
       Call PrintLine(strLine, fCheckLine(strLine))
     Case 3
       iPos = InStr(1, strLine, "<" & "SCRIPT", 1)
       Call PrintHTML(Left(strLine, iPos - 1))
       Response.Write("<FONT COLOR=#000066>")
       Response.Write("<SCRIPT")
       strLine = Right(strLine, Len(strLine) - (iPos + 6))
       Call PrintLine(strLine, fCheckLine(strLine))
     Case 4
       iPos = InStr(1, strLine, "<" & "/SCRIPT>", 1)
       Call PrintHTML(Left(strLine, iPos - 1))
       Response.Write("</SCRIPT>")
       Response.Write("</FONT>")
       strLine = Right(strLine, Len(strLine) - (iPos + 8))
       Call PrintLine(strLine, fCheckLine(strLine))
     Case 5
       iPos = InStr(strLine, "<" & "!--")
       Call PrintHTML(Left(strLine, iPos -1))
       Response.Write("<FONT COLOR=#006400>")
       Response.Write("")
       Response.Write("</FONT>")
       strLine = Right(strLine, Len(strLine) - (iPos + 2))
       Call PrintLine(strLine, fCheckLine(strLine))
     Case Else
       Response.Write("FUNCTION ERROR -- PLEASE CONTACT ADMIN.")
   End Select
END SUB
</SCRIPT>

<title></title>
<title>View Active Server Page Source</title>
<style type="text/css">

</style>
</head>
<body bgcolor="#FFFFFF">
<a href="javascript:history.go(-1)"><img alt="" src="../images/huvind.gif" width="21" height="15" border="0" /></a> <b>Källkoden för <% =Request("source")%></b>
<hr />
<div><font face="Verdana, Arial, Helvetica" size="2"><%
strVirtualPath = Request("source")
If fValidPath(strVirtualPath) Then
     strFilename = Server.MapPath(strVirtualPath)
     Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
     Set oInStream = FileObject.OpenTextFile (strFilename, 1, FALSE, -2)
     While NOT oInStream.AtEndOfStream
       strOutput = oInStream.ReadLine
       Call PrintLine(strOutput, fCheckLine(strOutput))
       Response.Write("<BR>" & Chr(10))
      Wend
   Else
     Response.Write("<H1>Nej det går inte för sig.</H1>")
   End If
%></font></div>