<%
'replaces quotes with a HTML quote tag
function CleanStringShow(strInput)
	if not isnull(strInput) then
    	CleanStringShow = Replace(strInput, """", "&quot;")
	else
		CleanStringShow = ""
	end if
end function

'strips all HTML from a input string
function RemoveHTML(strHTM)
	dim charOne
	dim StartOfTag
	dim lngLen
	dim intCount
	
	RemoveHTML=""
	StartOfTag = False
    
	lngLen = Len(strHTM)
	for intCount = 1 To lngLen
		charOne=Mid(strHTM,intCount,1)
		if charOne="<" then
			StartOfTag = True
			charOne=""
		end if
		if StartOfTag = True then
			if charOne = ">" then
				StartOfTag = False
			end if
			charOne = ""
		end if
		if charOne = vbCR then
			charOne = "<br>"
		end if
		if charOne = "'" then
			charOne = "&acute;"
		end if
		RemoveHTML = RemoveHTML & charOne
	next
	RemoveHTML = CleanStringShow(RemoveHTML)
end function

'checks the start of the url
function checkurl(strurl)
	if Mid(strurl,1,7) <> "http://" then
		checkurl = ""
	elseif Len(strurl) < 12 then
		checkurl = ""
	else
		checkurl = strurl
	end if
end function
%>
