<%
Option Explicit
On Error Resume Next
Dim TheDictionary
TheDictionary = Server.CreateObject("Scripting.Dictionary")
If Err.Number <> 0 Then
  Response.Write Err.Description
  Response.End
End If
Response.Write "Bez problemw"
%>
