ascoltando i tuoi consigli 
sono giunto a questo....
riporto solo il codice asp della pagina inviatutti.asp che è sia form che action senza l'html
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 User from Iscritti"
rs.Open sql,Conn,3,3
do until rs.eof
ID_Destinatario=rs("User")
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
%>
<%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("data.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")
sql2="Select * from Iscritti"
rs2.Open sql2,Conn,3,3
if verifyAlreadyExist=false then
%>
<form action="inviatutti.asp" method="POST" name="inputForm">
<input type="text" name="Titolo_Messaggio" size="50" style="border: 1px solid #8D9AA8" maxlength="20" value="da Staff"></TD>
<textarea rows="5" name="Messaggio" cols="34"></textarea>
<input type="hidden" name="Mittente" value="<%=rs("User")%>">
<input type="hidden" name="ID_Mittente" value="<%=ID_Mittente%>">
<input type="hidden" name="Destinatario" value="<%=rs2("User")%>">
<input type="hidden" name="ID_Destinatario" value="<%=ID_Destinatario%>" >
</form>
<%
else
%>
<script>
window.close();
</script>
<%
response.Write("
<form name='form1'>Chiudi Finestra
La finestra si chiuderà automaticamente </form>")
end if
end if
%>
e mi da questo errore
Microsoft OLE DB Provider for ODBC Drivers error '80040e14'
[Microsoft][ODBC Microsoft Access Driver] Syntax error (missing operator) in query expression ''da Staff, 'ciaoooooooo prova messaggiooo'.
/bbart/inviatutti.asp, line 54
la quale linea 54 risulta essere
codice:
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
:master:
Rispondi quotando
VVoVe: 