Förbjuda tecken?

%
function teststring(instring,charsallowed)
  dim m_objRxp
  set m_objRxp=New RegExp
  m_objRxp.Pattern="[^" & charsallowed & "]"
  teststring=(not m_objRxp.Test(instring))
end function

if teststring("aaabcd","abc") then
	response.redirect "bapp.asp" 'inga förbjudna tecken
else
	response.redirect "bipp.asp" 'det fanns förbjudna tecken
end if	
%>

jag tror inte att jag har RegExp för att alltidn är jag prövat såna script så blir det "internt serverfel" finns det någon annan metod?

function teststring(instring,charsallowed)
teststring=true
for i=1 to len(instring)
if instr(charsallowed,mid(instring,i,1))<=0 then
teststring=false
exit function
end if
next
end function

------------------
-------------------
Att vara puckad är att dö en smula.
- Skywalker