<%
'--------------------------------------------------------
'Função Verifica
'Pega numa string e verifica se contém dados
'que executando possam abrir falhas de
'segurança
'Meio de utilização : Verifica(String)
'Resposta : TRUE se encontrar falha de segurança
'         : FALSE se não encontrar
'--------------------------------------------------------
Function Verifica(Texto)  
	Dim CarAberturaTag
	Dim CarFechoTag   
	Verifica = False 'Se não se encontrar nada, devolve falso   
	If InStr(1,Texto,"<") <>0 Then    
		'Caracter logo à frente do <    
		CarAberturaTag = Mid(Texto,InStr(1,Texto,"<")+1,1)    
		If (Not Asc(CarAberturaTag) > 47) Or (Not Asc(CarAberturaTag) < 58) Then      
			'Se não for um número devolve verdadeiro - possível problema      
			Verifica = True    
		End If  
	End If    
	If InStr(1,Texto,">") <>0 Then    
		'Caractér logo atrás do >    
		CarFechoTag = Mid(Texto,InStr(1,Texto,">")-1,1)    
		If (Not Asc(CarFechoTag) > 47) Or (Not Asc(CarFechoTag) < 58) Then      
			'Se não for um número devolve verdadeiro - possível problema      
			Verifica = true    
		End If  
	End If 
End Function
%>