RegEx - Opfyld alle
Hej....Skal lige have lidt hjælp til den her ...
<%
Function CheckInput(inputstr)
Dim regEx
Set regEx = New RegExp
regEx.Pattern = "Hvad skal der stå her.... ?!?!"
regEx.IgnoreCase = True
CheckInput = regEx.Test(inputstr)
End Function
str_a = "<table><tr><td><b>asdasd</b></td></tr></table>"
if CheckInput(str_a) = true then
Response.write "OK"
else
Response.write "Fejl i streng"
end if
%>
Den skal kun skrive OK hvis <table>, <b>, </tr> og </b> ... fx.... Altså... Kun ok hvis alle de nævnte elementer er i strengen....
/Anders
