lo invia sempre a tutti....non mi seleziona solo gli id con status_connect true
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 ID from Iscritti WHERE Status_Connect=true"
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
%>
:master: