user password autenticato ma non in maiuscolo

[numapompilio]

come letto nel titolo sto autenticato user pass con questo codice


<%
Dim a12
Dim a13
a12 = Replace(Request.Form("a12"), "'", "''")
a13 = Replace(Request.Form("a13"), "'", "''")
Session("a12") = a12
Dim cn
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("public/database.mdb")
Dim sql
sql = "SELECT ID FROM tabella2 WHERE a12='" &a12&_
"' AND a13='" &a13& "' AND accesso = 'SI' "
Dim rs
Set rs = cn.Execute(sql)

Dim autenticatosito
if rs.eof then
autenticatosito = false
else
autenticatosito = true
end if
rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing

if autenticatosito = true then
Session("autenticatosito") = "OK"
Response.Redirect("elencoutenti.asp")
else
Response.Redirect("userpass.asp")
end if
%>

cosa devo aggiungere x far evitare che la user cps1 entri e CPS1 non entri


attendo notizie grazie

[Santino83_02]

così dovrebbe già farlo

[numapompilio]

E invece no......