1<%
2 ' FCKeditor - The text editor for Internet - http://www.fckeditor.net
3 ' Copyright (C) 2003-2007 Frederico Caldeira Knabben
4 '
5 ' == BEGIN LICENSE ==
6 '
7 ' Licensed under the terms of any of the following licenses at your
8 ' choice:
9 '
10 '  - GNU General Public License Version 2 or later (the "GPL")
11 '    http://www.gnu.org/licenses/gpl.html
12 '
13 '  - GNU Lesser General Public License Version 2.1 or later (the "LGPL")
14 '    http://www.gnu.org/licenses/lgpl.html
15 '
16 '  - Mozilla Public License Version 1.1 or later (the "MPL")
17 '    http://www.mozilla.org/MPL/MPL-1.1.html
18 '
19 ' == END LICENSE ==
20 '
21 ' This file include generic functions used by the ASP Connector.
22%>
23<%
24Function RemoveFromStart( sourceString, charToRemove )
25	Dim oRegex
26	Set oRegex = New RegExp
27	oRegex.Pattern = "^" & charToRemove & "+"
28
29	RemoveFromStart = oRegex.Replace( sourceString, "" )
30End Function
31
32Function RemoveFromEnd( sourceString, charToRemove )
33	Dim oRegex
34	Set oRegex = New RegExp
35	oRegex.Pattern = charToRemove & "+$"
36
37	RemoveFromEnd = oRegex.Replace( sourceString, "" )
38End Function
39
40Function ConvertToXmlAttribute( value )
41	ConvertToXmlAttribute = Replace( value, "&", "&amp;" )
42End Function
43
44Function InArray( value, sourceArray )
45	Dim i
46	For i = 0 to UBound( sourceArray )
47		If sourceArray(i) = value Then
48			InArray = True
49			Exit Function
50		End If
51	Next
52	InArray = False
53End Function
54
55%>
56