> Was bedeutet das? Kann ich da checken, ob Buchstaben > eingebenen wurden?
ich sag nur eins: regular expressions
das muster l�sst sich nach belieben erweitern
Function checkLogin(prvLOGIN, prvPASSWD)
Dim objRegExp ' As RegExp
Dim strPattern ' As String -> pattern for regular Expression
Dim colMatchLogin, colMatchPasswd ' As Collection -> results of
comparision
Dim prvVALID ' As Boolean -> for recognizing correct letters
checkLogin = FALSE
Set objRegExp = New RegExp
strPattern = "^[a-zA-Z0-9]+$"
'---------------------^^^^^^^^^--erlaubte zeichen
objRegExp.Pattern = strPattern
objRegExp.Global = TRUE
objRegExp.IgnoreCase = TRUE
Set colMatchLogin = objRegExp.Execute(prvLOGIN)
Set colMatchPasswd = objRegExp.Execute(prvPASSWD)
If colMatchLogin.Count = 1 AND colMatchLogin.Count = 1 Then
checkLogin = TRUE
Else
checkLogin = FALSE
End If
End Function
<<attachment: winmail.dat>>
| Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/ | [aspdebeginners] als [email protected] subscribed | http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv | Sie knnen sich unter folgender URL an- und abmelden: | http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp
