I receive the following error:

Microsoft VBScript compilation error '800a03ea' 
Syntax error 
/inc_func_common.asp, line 167 
(UCase(Right(strArray(Co     - ),  )) <> "file:///") and _
-------------------------------^

function ChkURLs(ByVal strToFormat, ByVal sPrefix, ByVal iType)
	Dim strArray
	Dim Counter

	ChkURLs = strToFormat

	if InStr(1, strToFormat, sPrefix) > 0 Then
		strArray = Split(strToFormat, sPrefix, -1)
		ChkURLs = strArray(0)

		for Counter = 1 To UBound(strArray)
			if ((strArray(Counter-1) = "" Or Len(strArray(Counter-1)) < 5) And strArray(Counter)<> "") then
				ChkURLs = ChkURLs & edit_hrefs(sPrefix & strArray(Counter), iType)
			elseif ((UCase(Right(strArray(Counter-1), 6)) <> "HREF=""") and _
				(UCase(Right(strArray(Counter-1), 5)) <> "[IMG]") and _
				(UCase(Right(strArray(Counter-1), 5)) <> "[URL]") and _
				(UCase(Right(strArray(Counter-1), 6)) <> "[URL=""") and _
				(UCase(Right(strArray(Counter-1), 6)) <> "ftp://") and _
				(UCase(Right(strArray(Counter-1), 8)) <> "file:///") and _
				(UCase(Right(strArray(Counter-1), 7)) <> "http://") and _
				(UCase(Right(strArray(Counter-1), 8)) <> "https://") and _
				(UCase(Right(strArray(Counter-1), 5)) <> "SRC=""") and _
				(strArray(Counter) <> "")) then

				ChkURLs = ChkURLs & edit_hrefs(sPrefix & strArray(Counter), iType)
			else
				ChkURLs = ChkURLs & sPrefix & strArray(Counter)
			end if
		next
	end if
end function