inviare un mesaggio a tutti

[Stanislao]

ho una pagina di invio messaggi privati agli isctitti
che si raggiunge tramite link invia.asp?ID_Destinatario=255
come potrei mandare il mess a tutti gli id?
ovvero a tutti gli iscritti?
grazie

[willybit]

ciao Stanislao,

bisognerebbe vedere com'è fatta la pagina invia.asp
e sicuramente bisogna modificarla... posta il codice

[Stanislao]

<%
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("../db/bbart2.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")=Server.HTMLEncode(Titolo_Messaggio)
						   rs("Messaggio")=Server.HTMLEncode(Messaggio)
			
						   rs("Data_Messaggio")=Now()
						 rs.update
						rs.close
						set rs=nothing
						conn.close
						set conn=nothing
						verifyAlreadyExist=true

end if

%>


<%
if Session("ID")="" or  Session("ID")=null then
%>
	<script>
		function closeAll(){
			window.opener.focus(); 
			window.opener.location.href="default.asp"
			window.close(); 
		}
	</script>
<%
Response.write("Ti devi prima loggare ..... Clicca Qui")

else

%>

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& Server.MapPath("../db/bbart2.mdb")
		
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="Select * from Iscritti where Iscritti.ID=" & Session("ID")
rs.Open sql,Conn,3,3

%>

<%
Set rs2=Server.CreateObject("ADODB.RecordSet")
sql="Select * from Iscritti where Iscritti.ID=" & ID_Destinatario
rs2.Open sql,Conn,3,3
if verifyAlreadyExist=false then

%>
<form action="invia.asp" method="POST" name="inputForm" onSubmit="return checkForm(document.inputForm)">

[pip19]

la cosa è molto piu' semplice e fine...

invece di andare in una pagina dove gli passi un id, vai in una pagina dove, nel recordset, invece di specificare nel where l'ID a cui inviare, semplicemente, non lo specifichi...

[Stanislao]

:master: praticamente?