Du kan du fortsätta här kanske:
'Take out parts of the username that are not permitted
strUsername = Replace(strUsername, "password", "", 1, -1, 1)
strUsername = Replace(strUsername, "salt", "", 1, -1, 1)
strUsername = Replace(strUsername, "author", "", 1, -1, 1)
strUsername = Replace(strUsername, "code", "", 1, -1, 1)
strUsername = Replace(strUsername, "username", "", 1, -1, 1)
[b]strUsername = Replace(strUsername, "'", "")
strUsername = Replace(strUsername, "|", "")
strUsername = Replace(strUsername, "\", "")[/b]
...
'If not quick login empty variables
If Request.Form("QUIK") OR blnSecurityCodeOK = false Then
strUsername = Replace(strUsername, "'", "''")
strPassword = Replace(strPassword, "'", "''")
Else
strUsername = ""
strPassword = ""
End If
osv.
