If dictionary.Exists( "key1" ) And dictionary( "key1" ) = "OK" Then End If
Set objSetA = Server.CreateObject("ADODB.Recordset") objSetA.PageSize = ComPageCnt objSetA.Open strSQL, objCon, adOpenKeySet, adLockReadOnly