selezionare solo i connessi nella sql

[Stanislao]

ho una select che mi procura tutti gli id del database in questo modo

sql="Select distinct ID from Iscritti" 
rs.Open sql,Conn,3,3

do until rs.eof

ID_Destinatario=rs("ID")

sql = "Insert into MiniBlog (ID_Mittente, ID_Destinatario, Titolo_Messaggio, Messaggio, Data_Messaggio ) values ("&ID_Mittente& ", "&ID_Destinatario&", '"&Titolo_Messaggio&"', '"&Messaggio&"', #"&now()&"#)"
conn.execute sql

rs.movenext
loop
						
rs.close
set rs=nothing

conn.close
set conn=nothing

end if
%>

se volessi selezionare solo quelli che hanno il campo Status_connect=true ?

grazie mille!