me sale esta alerta de javascript cuando no mando nada

[ivanlo15]

Este mensaje lo puse para cuando introducieran la contraseña incorrecta, percuando entra a la pagina me sale el error , entonces supongo q hace la busqueda sin valor

segun yo le puse un if para cuando no sea nulo pero no me funciona lo unico q busco es q no salga este mensaje cuando no debe salir parece sencillo pero realmente no encuentro el como

codigo



Dim oConn,strSQL, objRS, codr

codr=request.querystring("codr")'guarda la variable de la pass de la tabla supervisor
If not isNull(codr) then
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open(Server.Mappath("SSP.mdb"))

set rs=Server.CreateObject("ADODB.recordset")
sql="SELECT Usuario FROM Supervisor where pass="&codr&""
rs.Open sql,conn,1 ,2
i=rs.RecordCount
if i=0 then

Response.Write("<SCRIPT LANGUAGE=javascript>")
Response.Write("alert('Contraseña incorrenta')")
Response.Write("</SCRIPT>")


end if

rs.Close
conn.Close
end if