Subversion Repositories DevTools

Rev

Rev 5506 | Rev 6827 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5506 Rev 5590
Line 19... Line 19...
19 
	Private mFormName
 19 
	Private mFormName
20 
	Private mMethod
 20 
	Private mMethod
21 
	Private mAction
 21 
	Private mAction
22 
	Private mOnSubmit
 22 
	Private mOnSubmit
23 
	Private msDisabled
 23 
	Private msDisabled
- 
 
 24 
	Private mClass
24
25
25 
	Public Property Let FormName ( sFormName )
 26 
	Public Property Let FormName ( sFormName )
26 
		mFormName = sFormName
 27 
		mFormName = sFormName
27 
	End Property
 28 
	End Property
28
29
Line 31... Line 32...
31 
	End Property
 32 
	End Property
32
33
33 
	Public Property Let Action ( sAction )
 34 
	Public Property Let Action ( sAction )
34 
		mAction = sAction
 35 
		mAction = sAction
35 
	End Property
 36 
	End Property
- 
 
 37 
 
- 
 
 38 
	Public Property Let FormClass ( sClass )
- 
 
 39 
		mClass = sClass
- 
 
 40 
	End Property
36
41
37 
	Public Property Let OnSubmit ( sOnSubmit )
 42 
	Public Property Let OnSubmit ( sOnSubmit )
38 
		mOnSubmit = "onSubmit='"& sOnSubmit &"'"
 43 
		mOnSubmit = "onSubmit='"& sOnSubmit &"'"
39 
	End Property
 44 
	End Property
40
45
Line 253... Line 258...
253 
	'-----------------------------------------------------------------------------------------------------------------
 258 
	'-----------------------------------------------------------------------------------------------------------------
254 
	Public Sub FormStart ()
 259 
	Public Sub FormStart ()
255 
		If IsNull(mFormName) Then Err.Raise 8, "Method FormComponent.FormStart", "Form Name is not defined."
 260 
		If IsNull(mFormName) Then Err.Raise 8, "Method FormComponent.FormStart", "Form Name is not defined."
256 
		If IsNull(mAction) Then Err.Raise 8, "Method FormComponent.FormStart", "Action Filename is not defined."
 261 
		If IsNull(mAction) Then Err.Raise 8, "Method FormComponent.FormStart", "Action Filename is not defined."
257
262
- 
 
 263 
        Dim formClass : formClass = ""
- 
 
 264 
        if NOT isNull(mClass) Then
- 
 
 265 
            formclass = " class='" & mClass & "'"
- 
 
 266 
        End If
258
267 
 
259 
		Response.write "<form name='"& mFormName &"' method='"& mMethod &"' action='"& mAction &"' "& mOnSubmit &">"
 268 
		Response.write "<form "& formClass & "name='"& mFormName &"' method='"& mMethod &"' action='"& mAction &"' "& mOnSubmit &">"
260
269
261 
	End Sub
 270 
	End Sub
262 
	'-----------------------------------------------------------------------------------------------------------------
 271 
	'-----------------------------------------------------------------------------------------------------------------
263 
	Public Sub FormEnd ()
 272 
	Public Sub FormEnd ()
264 
		Response.write "</form>"
 273 
		Response.write "</form>"
Line 271... Line 280...
271 
		mFormName = NULL
 280 
		mFormName = NULL
272 
		mMethod = "post"
 281 
		mMethod = "post"
273 
		mAction = NULL
 282 
		mAction = NULL
274 
		mOnSubmit = NULL
 283 
		mOnSubmit = NULL
275 
		msDisabled = NULL
 284 
		msDisabled = NULL
- 
 
 285 
        mClass = NULL
276
286
277 
	End Sub
 287 
	End Sub
278 
	'-----------------------------------------------------------------------------------------------------------------
 288 
	'-----------------------------------------------------------------------------------------------------------------
279 
	Private Sub Class_Terminate()
 289 
	Private Sub Class_Terminate()
280 
		'// Perform action on object disposal. e.g. Set myObj = Nothing
 290 
		'// Perform action on object disposal. e.g. Set myObj = Nothing