Checking for metabase lint:
<%
' Carrage Return + Line Feed pair
CRLF = CHR(13) + CHR(10)
' Create the MetaUtil object
Set objMetaUtil = Server.CreateObject("MSWC.MetaUtil.1")
' Check the local metabase
Set objSchemaErrors = objMetaUtil.CheckSchema("LM")
' Print happy message if there were no errors
If objSchemaErrors.Count = 0 Then
Response.Write("This metabase does not reference any non-existent files or directories!
" & CRLF)
End If
' Print out errors
For Each objSchemaError In objSchemaErrors
' Ensure that all errors are lint, and not true schema errors
If objSchemaError.Id = 1400 Then
Response.Write("Metabase key " & objSchemaError.Key & ": ")
Response.Write(objSchemaError.Description & "
" & CRLF)
Response.Write("
" & CRLF)
End If
Next
%>