pstr = pstr & getReadOnlyCode(Keys(i))
ElseIf CInt(Items(i)(1)) < 0 Then ' WriteOnly
pstr = pstr & getWriteOnlyCode(Keys(i))
Else ' AccessAll
pstr = pstr & getReadOnlyCode(Keys(i)) & _
getWriteOnlyCode(Keys(i))
End If
Next
init = init & "m_strAvailableKeys = Replace(""," & _
strAvailableKeys & """, "" "", """") : "
Dim hasstmt
hasstmt = "Private m_strAvailableKeys : " & _
"Public Function hasattr_(ByVal key) : " & _
"hasattr_ = CBool(InStr(m_strAvailableKeys," & _
" "","" & key & "","") > 0) : " & _
"End Function : " & _
"Public Function getattr_(ByVal key, ByVal defaultValue) : " & _
"If hasattr_(key) Then : getattr_ = Eval(key) : " & _
"Else : getattr_ = defaultValue : End If : " & _
"End Function : "
parse = parse & init & "End Sub : " & _
hasstmt & pstr & "End Class"
End Function
Public Function getObject()
'Response.Write parse
Call Execute(parse)
Set getObject = Eval("New " & m_strName)
End Function
Public Sub invokeObject(ByRef obj)
