Gracias u_goldman, ya la hice funcionar y jala de las dos formas con adoCon y con strCon, creo que el problema era el while y el if junto con el query, quedo asi...
adoCon.Open strCon
Set rsCheckUser = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM Banners "
rsCheckUser.Open strSQL, adoCon
paso = "s"
While Not rsCheckUser.EOF
Rotar = rsCheckUser("Rotar")
If Rotar = 0 and paso = "s" Then
Pero no entiendo lo que me comentaste de "
conexión activa" cual seria la diferencia, de hecho nunca he utilizado mis conecciones como me dijiste, como es mejor o que onda... gracias.