<%
'---------------------------------------------------------------- remove tags do resumo
function removehtmltags(byval strhtml)
	dim objer
	dim strtexto
	set objer = new regexp 
	objer.ignorecase = true
	objer.global = true
	objer.pattern = "<[^>]*>"
	strtexto = strhtml
	strtexto = objer.replace(strtexto, "")
	set objer = nothing
	removehtmltags = strtexto
end function

'---------------------------------------------------------------- remove caracteres especiais
function abrev(xxx)
	abrev = xxx
	abrev = lcase(abrev)
	abrev = replace(abrev,"à","a")
	abrev = replace(abrev,"á","a")
	abrev = replace(abrev,"é","e")
	abrev = replace(abrev,"í","i")
	abrev = replace(abrev,"ó","o")
	abrev = replace(abrev,"ú","u")
	abrev = replace(abrev,"â","a")
	abrev = replace(abrev,"ê","e")
	abrev = replace(abrev,"ô","o")
	abrev = replace(abrev,"ã","a")
	abrev = replace(abrev,"õ","o")
	abrev = replace(abrev,"ö","o")
	abrev = replace(abrev,"ü","u")
	abrev = replace(abrev,"ç","c")
	abrev = replace(abrev,chr(39),"")
	abrev = replace(abrev,chr(34),"")
	abrev = replace(abrev,",","")
	abrev = replace(abrev,";","")
	abrev = replace(abrev,"&nbsp;","-")
	abrev = replace(abrev,"&quot;","-")
	abrev = replace(abrev,"&amp;","_")
	abrev = replace(abrev,"&","")
	abrev = replace(abrev,"?","")
	abrev = replace(abrev,"!","")
	abrev = replace(abrev,"*","")
	abrev = replace(abrev,"%","")
	abrev = replace(abrev,"$","")
	abrev = replace(abrev,"#","")
	abrev = replace(abrev,"@","")
	abrev = replace(abrev,"(","")
	abrev = replace(abrev,")","")
	abrev = replace(abrev,"[","")
	abrev = replace(abrev,"]","")
	abrev = replace(abrev,"{","")
	abrev = replace(abrev,"}","")
	abrev = replace(abrev,":","")
	abrev = replace(abrev,"/","")
	abrev = replace(abrev,"\","")
	abrev = replace(abrev,"|","-")
	abrev = replace(abrev,"<","")
	abrev = replace(abrev,">","")
	abrev = replace(abrev,"+","mais")
	abrev = replace(abrev," ","_")
	abrev = replace(abrev,"%20","_")
	abrev = replace(abrev,"--","-")
	abrev = replace(abrev,"--","-")
	abrev = replace(abrev,"--","-")
	abrev = replace(abrev,"'","")
	abrev = replace(abrev,"convert","c-onvert")
	abrev = replace(abrev,"union","u-nion")
	abrev = replace(abrev,"select","s-elect")
	abrev = replace(abrev,"insert","i-nsert")
	abrev = replace(abrev,"delete","d-elete")
	abrev = trim(abrev)
	response.write abrev_resultado
end function
%>