En funktion som kollar om användarnamnet endast innehåller a-z, 0-9, - och _.
Function CorrectUserName(ByVal sUserName)
Dim objRegExp
Set objRegExp = New RegExp
objRegExp.IgnoreCase = True
objRegExp.Global = True
objRegExp.Pattern = "[^\w-]"
CorrectUserName = Not objRegExp.Test(sUserName)
Set objRegExp = Nothing
End Function
Response.Write CorrectUserName("Erik_-_Juhlin")
256 ms totalt · 4 externa anrop · v20260731065814-full.d34c6d5a