<%
varallowvalue = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz123456790"
varUserID = Trim(Lcase(Request.Form("UserID")))
'For User
varusererror = false
varlength = len(varUserID)
varspace = split(varUserID," ")
if Ubound(varspace) = 0 Then
for i = 1 to varlength
varchr = mid(varUserid,i,1)
if varchr = "@" OR varchr = "#" OR varchr = "%" OR varchr = "~" OR varchr = "^" OR varchr = "!" OR varchr = "." OR varchr = "$" OR varchr = "|" OR varchr = "(" OR varchr = ")" OR varchr = "[" OR varchr = "]" OR varchr = "{" OR varchr = "}" OR varchr = ";" OR varchr = ":" OR varchr = "'" OR varchr = "," OR varchr = "/" OR varchr = "\" OR varchr = "?" OR varchr = "<" OR varchr = ">" OR varchr = "&" OR varchr = "-" OR varchr = "*" OR varchr = "=" Then
varusererror = true
exit for
End if
Next
Else
varusererror = true
End if
'End User
if varusererror = true Then
%>
Incorrect UserID
Please use the back button of your browser to remove some spaces or special characters.
If you have already registered, please type your password to logon.
If you have forgotten your password,
click here
<%
Response.End
end if
%>