<% '======================================================================================================================= ' Bootstrap Helper - Provides some convenience methods for Bootstrap use '======================================================================================================================= Class Bootstrap_Helper_Class '--------------------------------------------------------------------------------------------------------------------- ' Forms '--------------------------------------------------------------------------------------------------------------------- 'Creates .control-label for Bootstrap styling Public Function ControlLabel(name, for_name) ControlLabel = HTML.LabelExt(name, for_name, Array("class", "control-label")) End Function Public Function Control(label_text, control_name, controls_html) Control = "

" & ControlLabel(label_text, control_name) & "

" & controls_html & "

" End Function '--------------------------------------------------------------------------------------------------------------------- ' Modals '--------------------------------------------------------------------------------------------------------------------- Public Function ModalLinkTo(link_text, controller_name, action_name, modal_name, html_class_attrib) ModalLinkTo = ModalLinkToExt(link_text, controller_name, action_name, params_array, modal_name, html_class_attrib, empty) End Function Public Function ModalLinkToExt(link_text, controller_name, action_name, params_array, modal_name, html_class_attrib, html_attribs_array) ModalLinkToExt = "" End Function 'Generates the jQuery handler for the modal dialogs Public Function ModalHandlerScript() dim s s = " " ModalHandlerScript = s End Function End Class dim Bootstrap_Helper_Class__Singleton Function Bootstrap() If IsEmpty(Bootstrap_Helper_Class__Singleton) then set Bootstrap_Helper_Class__Singleton = new Bootstrap_Helper_Class set Bootstrap = Bootstrap_Helper_Class__Singleton End Function %>