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