| Line 277... |
Line 277... |
| 277 |
'-----------------------------------------------------------------------------------------------------------------------------
|
277 |
'-----------------------------------------------------------------------------------------------------------------------------
|
| 278 |
Function NewLine_To_BR (SSstr)
|
278 |
Function NewLine_To_BR (SSstr)
|
| 279 |
If SSstr = "" OR IsNull(SSstr) Then
|
279 |
If SSstr = "" OR IsNull(SSstr) Then
|
| 280 |
Exit Function
|
280 |
Exit Function
|
| 281 |
Else
|
281 |
Else
|
| - |
|
282 |
' Remove trailing new lines and spaces
|
| - |
|
283 |
While Asc(Right(SSstr, 1)) = 10 Or Asc(Right(SSstr, 1)) = 13
|
| - |
|
284 |
SSstr = Left(SSstr, Len(SSstr) - 1)
|
| - |
|
285 |
Wend
|
| - |
|
286 |
SSstr = Trim(SSstr)
|
| 282 |
NewLine_To_BR = Replace ( SSstr, VBNewLine, "<br>")
|
287 |
NewLine_To_BR = Replace ( SSstr, VBNewLine, "<br>")
|
| 283 |
End If
|
288 |
End If
|
| 284 |
End Function
|
289 |
End Function
|
| 285 |
'-----------------------------------------------------------------------------------------------------------------------------
|
290 |
'-----------------------------------------------------------------------------------------------------------------------------
|
| 286 |
Function IsTicked ( ByVal nParId, ByVal sParList )
|
291 |
Function IsTicked ( ByVal nParId, ByVal sParList )
|