heres my attempt at the colour change
<%
dim fs,f
set fs=Server.CreateObject("Scripting.FileSystemObject")
set f=fs.GetFile("\\ukaccounts\accounts\Revenue\Product Control\CFE - EIDB Business\Database\ITB Profit and Loss DB.mdb")
Response.Write("\\ukaccounts\accounts\Revenue\Product Control\CFE - EIDB Business\Database\ITB Profit and Loss DB.mdb: ")
Response.Write( f.Size & "bytes.")
if
(f.size >= 100)
e.Row.BackColor = ColorRed;
set f=nothing
set fs=nothing
%>