<%@ 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>
