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")
262 ms totalt · 4 externa anrop · v20260731065814-full.a51de22e