Subversion Repositories DevTools

Rev

Rev 4867 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 4867 Rev 5008
Line 207... Line 207...
207
    'Response.Write DICToutput(buildStatus)
207
    'Response.Write DICToutput(buildStatus)
208
 
208
 
209
End Sub
209
End Sub
210
 
210
 
211
'--------------------------------------------------------------------------------------------------------------------------
211
'--------------------------------------------------------------------------------------------------------------------------
212
' Like Cint, but handles NULL by replacing it with a default value
-
 
213
Function NiceInt( val, def)
-
 
214
   If isNull(val) Then
-
 
215
       NiceInt = def
-
 
216
   Else
-
 
217
      NiceInt = CInt(val)
-
 
218
   End If
-
 
219
End Function
-
 
220
 
-
 
221
'--------------------------------------------------------------------------------------------------------------------------
-
 
222
' Toggle row style between the two alternative styles
212
' Toggle row style between the two alternative styles
223
Sub ToggleStyleNow
213
Sub ToggleStyleNow
224
   If styleNow = styleAlt1 Then
214
   If styleNow = styleAlt1 Then
225
      styleNow = styleAlt2
215
      styleNow = styleAlt2
226
   Else
216
   Else