"
Const LIMG_FORM_COMPONENT_DROP_DOWN_OFF = "
"
'------------------------------------
%>
<%
Class FormComponent
Private mFormName
Private mMethod
Private mAction
Private mOnSubmit
Private msDisabled
Public Property Let FormName ( sFormName )
mFormName = sFormName
End Property
Public Property Let Method ( sMethod )
mMethod = sMethod
End Property
Public Property Let Action ( sAction )
mAction = sAction
End Property
Public Property Let OnSubmit ( sOnSubmit )
mOnSubmit = "onSubmit='"& sOnSubmit &"'"
End Property
Public Property Let IsReadonlyAction ( IsReadonly )
If IsReadonly = enumDB_YES Then
msDisabled = " disabled "
ElseIf IsReadonly = enumDB_NO Then
msDisabled = NULL
Else
msDisabled = " disabled "
End If
End Property
'-----------------------------------------------------------------------------------------------------------------
Public Function Combo ( sName, aList, bOneBlank, sAttributes )
'=== List Definition ===
' Method expects list array to have 3 columns ( filed value, field name, word "selected" for selected item )
Dim compSTR
Dim rowNum, numOfRows
compSTR = ""
'/* Generate Combo */
compSTR = compSTR &""
Combo = compSTR
End Function
'-----------------------------------------------------------------------------------------------------------------
Private Function Advanced_Combo ( sName, sValue, aList, sAttributes, sMore, bForceDropdown )
Dim compSTR
Dim rowNum, numOfRows, Display
compSTR = ""
'--- Text Box ---
compSTR = compSTR &""
'--- Dropdown Button ---
If IsNull(aList) OR (NOT IsNull(msDisabled)) Then
compSTR = compSTR & LIMG_FORM_COMPONENT_DROP_DOWN_OFF
Advanced_Combo = compSTR
Exit Function
End If
compSTR = compSTR &""& LIMG_FORM_COMPONENT_DROP_DOWN &""
'-- Default dispaly value
Display = "none"
If bForceDropdown Then
Display = "block"
End If
'--- Dropdown List ---
compSTR = compSTR &"
| "
compSTR = compSTR &"