<%@ LANGUAGE="VBSCRIPT" %> MRTG DATA

Your-Router-Name_here

Ports on Router

<% 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 ("

") Response.Write("") Response.Write ("

") Response.write ("

") Response.write (bufflink & "
") Response.Write VbCrLf Response.write "

" & VbCrLf End If Next %>