messaggio privato a tutti gli utenti

[Stanislao]

allora cari ascoltatori innasitutto allegria :maLOL:

ho un database access strutturato così

ID;ID_Mittente;ID_Destinatario;Titolo_Messaggio;Me ssaggio;Data_Messaggio;check

vorrei fare una pagina che invia titolo e messaggio a tutti gli ID_Destinatario

insomma un messaggio per tutti gli iscritti
come faccio?

io per farlo da utente a utente uso questo

<%
Session.LCID = 1040
verifyAlreadyExist=false
ID_Mittente=Session("ID")
ID_Destinatario=Request("ID_Destinatario")
Titolo_Messaggio=Replace(Trim(Request.form("Titolo_Messaggio")),"'","''")
Messaggio=Replace(Trim(Request.form("Messaggio")),"'","''")
if ID_Destinatario<>"" and 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 * from MiniBlog"
						rs.Open sql,Conn,3,3
						
						 rs.AddNew
						   rs("ID_Mittente")=ID_Mittente
						   rs("ID_Destinatario")=ID_Destinatario
						   rs("Titolo_Messaggio")=Titolo_Messaggio
						   rs("Messaggio")=Messaggio
			
						   rs("Data_Messaggio")=Now()
						 rs.update
						rs.close
						set rs=nothing
						conn.close
						set conn=nothing
						verifyAlreadyExist=true

end if

%>

grazie