Buenas, al final cambié RS.RecordCount por RS.eof y funciona
Código asp:
Ver originalif not RS.eof then
Dim usuario
set usuario = RS("usuario")
p = RS.GetRows(1,0)
strQuery = "insert into eventos (propiedades) values ('Usuario: "&p(1,0)&" se ha identificado mediante tag: "&tag&" en la tienda: "&reader&"')"
set RS = conex.Execute(strQuery)
'while not RS.eof'
else Response.Write("no entra")
End If
Gracias por la ayuda