Tipo di automazione non supportato in VBScript

[Roby_72]

sql = "select count(id) from tbl_post where connected = 0" 
set rs = objconn.Execute(sql)
strvar = rs(0)
set rs = nothing
if strvar &"[]" = "[]" then strvar = 0

Roby