WORKAROUND
Microsoft
provides programming examples for illustration only, without warranty either
expressed or implied, including, but not limited to, the implied warranties of
merchantability or fitness for a particular purpose. This article assumes that
you are familiar with the programming language that is being demonstrated and
the tools that are used to create and debug procedures. Microsoft support
professionals can help explain the functionality of a particular procedure, but
they will not modify these examples to provide added functionality or construct
procedures to meet your specific requirements. If you have limited programming
experience, you may want to contact a Microsoft Certified Partner or the
Microsoft fee-based consulting line at (800) 936-5200. For more information
about Microsoft Certified Partners, visit the following Microsoft Web site:
For additional information about the support options available
from Microsoft, visit the following Microsoft Web site:
To
work around this problem, use the following VBA code sample that uses the
Set keyword to define the object variable that is returned from the
ASPUtilLib.GetDictionary object:
'ASPUILIB.ASP
Function GetStyles()
Set dictStyles = m_ASPUtilLib.GetDictionary()
dictStyles.StandardTextBox = "size='" & STANDARD_TEXTBOX_SIZE_NUMBER & _
"'" dictStyles.StandardPasswordBox = "size='" & _
STANDARD_TEXTBOX_SIZE_NUMBER & "'"
Set GetStyles = dictStyles
End Function
'ASPUTILLIB.ASP
Public Function GetDictionary()
Set GetDictionary = Server.CreateObject("Commerce.Dictionary")
End Function