% On error resume Next Dim stringSQL, strConnection c_login = session ("login") stringSQL = "SELECT * FROM acesso WHERE matricula = '"&c_login&"'" 'response.Write(stringSQL) 'response.End() Set objRS = objCon.Execute(stringSQL) if err <> 0 Then%>