<%@ LANGUAGE="VBSCRIPT" %>
<html>
<head>
<meta NAME="GENERATOR" Content="Microsoft FrontPage 3.0">
<meta HTTP-EQUIV="Content-Type" content="text/html; charset=iso-8859-1">
<title>MRTG DATA</title>
</head>
<body bgcolor="#FFFFFF" text="#000000" link="#0000FF" vlink="#0000FF" alink="#0000FF">
<h1>Your-Router-Name_here</h1>
<h3>Ports on Router</h3>
<%
Set fs = CreateObject("Scripting.FileSystemObject")
Dim fs, f, f1, fc, fstr, linklen, bufflink
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder("e:\inetpub\wwwroot\mrtg\pages\Your-Router-Name_here")
Set fc = f.Files
For Each f1 in fc
fstr = LCase(f1.name)
If Right(fstr, 8) = "-day.gif" Then
linklen = Len(fstr)
buffLink = Mid(fstr,1,(linklen - 8))
Response.Write ("<table><tr><td>")
Response.Write("<a href=" & buffLink & ".html>")
Response.Write ("<img src=" & f1.name & " border=0> ")
Response.write ("</td><td>")
Response.write (bufflink & "<br>")
Response.Write VbCrLf
Response.write "</td></tr></table>" & VbCrLf
End If
Next
%>
</body>
</html>