"
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
'-----------------------------------------------------------------------------------------------------------------
' Combo_Multi
' Multi column combo
' - Uses a fixed length font to allow alignment of columns
' Column widths are specified
' Columns are separated by a "|"
'
' sName - Name of Combo
' aList - List array with the following columns:
' column key, column values (separated by comas), the word "selected" for selected item
' e.g
' 1, Jack, Smith, "W.A"
' 2, Jill, Smith, "S.A", "selected"
' bOneBlank - to add a blank combo item
' sAttributes - HTML attributes
' iColumnCount - The number of columns to be displayed in the combo.
' sColumnWidth - csv string containing the combo column widths
'
Public Function Combo_Multi ( sName, aList, bOneBlank, sAttributes, iColumnCount, sColumnWidth)
'=== List Definition ===
Dim compSTR
Dim rowNum, numOfRows, colNum
Dim sColVals, sColVal, sPad
Dim iColLen, iPadLen, iValLen, i
Dim arrColWidths
compSTR = ""
'/* Generate Combo */
compSTR = compSTR &""
Combo_Multi = 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 &"