Potresti fare:

codice:
<%
Session.LCID = 1040
verifyAlreadyExist=false
ID_Mittente=Session("ID")
Titolo_Messaggio=Replace(Trim(Request.form("Titolo_Messaggio")),"'","''")
Messaggio=Replace(Trim(Request.form("Messaggio")),"'","''")

if ID_Mittente<>"" and Titolo_Messaggio<>"" and Messaggio<>""  then

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& Server.MapPath("data.mdb")
Set rs=Server.CreateObject("ADODB.RecordSet")

sql="Select distinct utente from tabella_utenti"
rs.Open sql,Conn,3,3

do until rs.eof

ID_Destinatario=rs("utente")

sql2 = "Insert into MiniBlog (ID_mittente, ID_destinatario, Titolo_messaggio, Messaggio, Data_messaggio) values ('"&ID_mittente&"', '"&ID_destinatario&"', '"&Titolo_messaggio&'", '"&Messaggio&'", #" & now() & "#)"
conn.execute sql2

rs.movenext
loop
						
rs.close
set rs=nothing

conn.close
set conn=nothing

end if

%>
salvo errori od omissioni........