Källkoden för /anders.enges/sitemap/default.asp

---

<!--#include file="../inc/navstuff.asp" -->

<% 
For row = 1 to count
      level = theLevel(navList.GetNthDescription (listFile, row))
      if level = 0 Then %>
      <a href="#<%  =theText(navList.GetNthDescription (listFile, row)) %>"><font size="+1"><%  =theText(navList.GetNthDescription (listFile, row)) %></font></a>   
      <%End If
Next %>
<table border="0" cellspacing="0" cellpadding="0">
<tr><td align="left" colspan="2">Förklaring till symbolerna:</td></tr>
<tr><td align="center"><img src="../images/five_d.gif" /> </td><td>modifierad under de senaste <b>2</b> dagarna.</td></tr>
<tr><td align="center"><img src="../images/four_d.gif" /> </td><td>modifierad under de senaste <b>7</b> dagarna.</td></tr>
<tr><td align="center"><img src="../images/tree_d.gif" /> </td><td>modifierad under de senaste <b>30</b> dagarna.</td></tr>
<tr><td align="center"><img src="../images/two_d.gif" /> </td><td>modifierad under de senaste <b>2</b> månaderna.</td></tr>
<tr><td align="center"><img src="../images/one_d.gif" /> </td><td>modifierad under de senaste <b>6</b> månaderna.</td></tr>
</table>

<table border="0" cellpadding="0" cellspacing="0">
<tr><td colspan="4" > </td><td align="middle"><font size="1" face="arial"><%=modi%></font></td></tr>
<%
L0 = 0
L1 = 0
L2 = 0
L3 = 0
L4 = 0
L5 = 0
For row = 1 to count
      ID = "IDMAP" & row
      level = theLevel(navList.GetNthDescription (listFile, row))
      if true Then
      if flip Then
           bgcolor = "#EEEEEE"
      else
           bgcolor = "#FFFFFF"
      End If

      if level = 0 Then
      L0 = L0 + 1
      %>          
      <tr bgcolor="<%=bgcolor%>">
      <td colspan=5 align="left" bgcolor="#4169E1"> <a name="<%  =theText(navList.GetNthDescription (listFile, row)) %>"><font size="4" face="arial" color="#FFFFFF"><%  =theText(navList.GetNthDescription (listFile, row)) %></font></a></td>
      </Tr>
      <%  else
           flip = not flip
      End If
      if level = 1 Then
      L1 = L1 + 1
      L2 = 0
      L3 = 0
      L4 = 0
      L5 = 0
      bgcolor = "#ECECEC"
      flip = false
      %>                    
      <tr bgcolor="#FFFFFF"><td colspan="5"> </td></tr>
      <tr bgcolor="<%=bgcolor%>">
      <td><a href="<%  =navList.GetNthURL ( listFile , row ) %>" title="<%  =theTitle(navList.GetNthDescription (listFile, row)) %>" onmouseover="doOverAB('<%=ID%>')" onmouseout="doOutAB('<%=ID%>')"><b><%=L1%></b></a></td>
      <td colspan=3 align="left" ID="<%=ID & "_TD" %>"><a href="<%  =navList.GetNthURL ( listFile , row ) %>" title="<%  =theTitle(navList.GetNthDescription (listFile, row)) %>" onmouseover="doOverAB('<%=ID%>')" onmouseout="doOutAB('<%=ID%>')"><font size="2" face="arial" class="lStyle"><b><%  =theText(navList.GetNthDescription (listFile, row)) %></font></a></td><td ID="<%=ID & "_TD1" %>"><font face="arial" size=1" class="lStyle"><%=ShowFileAccessInfoPath(navList.GetNthURL ( listFile , row )) %></b></font></td>
      </Tr>
      <%  End If
      if level = 2 Then
      L2 = L2 + 1
      L3 = 0
      L4 = 0
      L5 = 0
      %>                    
      <tr bgcolor="<%=bgcolor%>">
      <td><a href="<%  =navList.GetNthURL ( listFile , row ) %>" title="<%  =theTitle(navList.GetNthDescription (listFile, row)) %>" onmouseover="doOverAB('<%=ID%>')" onmouseout="doOutAB('<%=ID%>')"><%=L1 & "." & L2%></a></td>
      <td>     </td>
      <td colspan=2 align="left" ID="<%=ID & "_TD" %>"><a href="<%  =navList.GetNthURL ( listFile , row ) %>" title="<%  =theTitle(navList.GetNthDescription (listFile, row)) %>" onmouseover="doOverAB('<%=ID%>')" onmouseout="doOutAB('<%=ID%>')"><font size="2" face="arial" class="lStyle"><%  =theText(navList.GetNthDescription (listFile, row)) %></font></a></td><td ID="<%=ID & "_TD1" %>"><font size=1 face="arial" class="lStyle"><%  =ShowFileAccessInfoPath(navList.GetNthURL ( listFile , row )) %></font></td>
      </tr>
      <%  End If
      if level = 3 Then
      L3 = L3 + 1
      L4 = 0
      L5 = 0
      %>                    
      <tr bgcolor="<%=bgcolor%>">
      <td><a href="<%  =navList.GetNthURL ( listFile , row ) %>" title="<%  =theTitle(navList.GetNthDescription (listFile, row)) %>" onmouseover="doOverAB('<%=ID%>')" onmouseout="doOutAB('<%=ID%>')"><%=L1 & "." & L2& "." & L3%></a></td>
      <td> </td><td>        </td>
      <td align="left" ID="<%=ID & "_TD" %>"><a href="<%  =navList.GetNthURL ( listFile , row ) %>" title="<%  =theTitle(navList.GetNthDescription (listFile, row)) %>" onmouseover="doOverAB('<%=ID%>')" onmouseout="doOutAB('<%=ID%>')"><font size="2" face="arial" class="lStyle"><%  =theText(navList.GetNthDescription (listFile, row)) %></font></a></td><td ID="<%=ID & "_TD1" %>"><font face="arial" size=1" class="lStyle"><%  =ShowFileAccessInfoPath(navList.GetNthURL ( listFile , row )) %></font></td>
      </tr>
      <%  End If
      if level = 4 Then
      L4 = L4 + 1
      L5 = 0
      %>                    
      <tr bgcolor="<%=bgcolor%>">
      <td><a href="<%  =navList.GetNthURL ( listFile , row ) %>" title="<%  =theTitle(navList.GetNthDescription (listFile, row)) %>" onmouseover="doOverAB('<%=ID%>')" onmouseout="doOutAB('<%=ID%>')"><%=L1 & "." & L2& "." & L3 & "." & L4 %></a></td>
      <td> </td><td>        </td>
      <td align="left" ID="<%=ID & "_TD" %>"><a href="<%  =navList.GetNthURL ( listFile , row ) %>" title="<%  =theTitle(navList.GetNthDescription (listFile, row)) %>" onmouseover="doOverAB('<%=ID%>')" onmouseout="doOutAB('<%=ID%>')"><font size="2" face="arial" class="lStyle"><%  =theText(navList.GetNthDescription (listFile, row)) %></font></a></td><td ID="<%=ID & "_TD1" %>"><font face="arial" size=1" class="lStyle"><%  =ShowFileAccessInfoPath(navList.GetNthURL ( listFile , row )) %></font></td>
      </tr>
      <%  End If %>
<% 
      if level = 5 Then
      L5 = L5 + 1
      %>                    
      <tr bgcolor="<%=bgcolor%>">
      <td><a href="<%  =navList.GetNthURL ( listFile , row ) %>" title="<%  =theTitle(navList.GetNthDescription (listFile, row)) %>" onmouseover="doOverAB('<%=ID%>')" onmouseout="doOutAB('<%=ID%>')"><%=L1 & "." & L2& "." & L3 & "." & L4 & "." & L5 %></a></td>
      <td> </td><td>        </td>
      <td align="left" ID="<%=ID & "_TD" %>"><a href="<%  =navList.GetNthURL ( listFile , row ) %>" title="<%  =theTitle(navList.GetNthDescription (listFile, row)) %>" onmouseover="doOverAB('<%=ID%>')" onmouseout="doOutAB('<%=ID%>')"><font size="2" face="arial" class="lStyle"><%  =theText(navList.GetNthDescription (listFile, row)) %></font></a></td><td ID="<%=ID & "_TD1" %>"><font face="arial" size=1" class="lStyle"><%  =ShowFileAccessInfoPath(navList.GetNthURL ( listFile , row )) %></font></td>
      </tr>
      <%  End If %>
      <%  End If
Next %>
</table>
<p><%=count%>  Filer</p>
<!--#include file="../inc/footer.asp" -->