66 lines
1.5 KiB
Plaintext
66 lines
1.5 KiB
Plaintext
|
<HTML>
|
||
|
|
<HEAD>
|
||
|
|
<TITLE>Check all keys for errors</TITLE>
|
||
|
|
</HEAD>
|
||
|
|
<BODY>
|
||
|
|
<%
|
||
|
|
|
||
|
|
'Carrage Return + Line Feed pair
|
||
|
|
Dim CRLF
|
||
|
|
CRLF = CHR(13) + CHR(10)
|
||
|
|
|
||
|
|
Sub DisplayCheckError(ByRef objSchemaError)
|
||
|
|
|
||
|
|
Dim strId
|
||
|
|
Dim strSeverity
|
||
|
|
Dim strDescription
|
||
|
|
Dim strKey
|
||
|
|
Dim strProperty
|
||
|
|
|
||
|
|
strId = CStr(objSchemaError.Id)
|
||
|
|
strSeverity = CStr(objSchemaError.Severity)
|
||
|
|
strDescription = objSchemaError.Description
|
||
|
|
strKey = objSchemaError.Key
|
||
|
|
strProperty = CStr(objSchemaError.Property)
|
||
|
|
|
||
|
|
Response.Write("Id: " & strId & "<br>" & CRLF)
|
||
|
|
Response.Write("Severity: " & strSeverity & "<br>" & CRLF)
|
||
|
|
Response.Write("Description: " & strDescription & "<br>" & CRLF)
|
||
|
|
Response.Write("Key: " & strKey & "<br>" & CRLF)
|
||
|
|
Response.Write("Property: " & strProperty & "<br>" & CRLF)
|
||
|
|
|
||
|
|
End Sub
|
||
|
|
|
||
|
|
|
||
|
|
Dim objMetaUtil
|
||
|
|
Dim objKeys
|
||
|
|
Dim strKey
|
||
|
|
Dim objErrors
|
||
|
|
Dim objError
|
||
|
|
|
||
|
|
'Create the MetaUtil object
|
||
|
|
Set objMetaUtil = Server.CreateObject("MSWC.MetaUtil.1")
|
||
|
|
|
||
|
|
Set objKeys = objMetaUtil.EnumAllKeys("")
|
||
|
|
|
||
|
|
For Each strKey In objKeys
|
||
|
|
Response.Write("<FONT SIZE=+1>" & strKey & ": </FONT><BR>" & CRLF)
|
||
|
|
|
||
|
|
Set objErrors = objMetaUtil.CheckKey(strKey)
|
||
|
|
|
||
|
|
For Each objError In objErrors
|
||
|
|
DisplayCheckError objError
|
||
|
|
Response.Write("<br>" & CRLF)
|
||
|
|
Next
|
||
|
|
Next
|
||
|
|
|
||
|
|
Response.Write("<br>" & CRLF)
|
||
|
|
|
||
|
|
Response.Write("Done<br>")
|
||
|
|
|
||
|
|
'Clean up the reference to IIS.MetaUtil
|
||
|
|
Session.Abandon
|
||
|
|
|
||
|
|
%>
|
||
|
|
</BODY>
|
||
|
|
</HTML>
|