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