tutorial Messaggeria con avviso in popup di nuovi messaggi

[maurice751]

Salve a tutti

sono nuovo del forum ed un apprendista di asp classic, avrei una domanda da porvicome da oggetto ho povato il tutorial messaggi con popup e tutto funziona pero' avrei una richiesta

come posso implementare nella combobox una voce tutti cosi da poter inviare un unico messaggio a tutti gli utenti?



grazie 1000 a tutti

[cavicchiandrea]

Ciao e benvenuto
Non conosco nello specifico il tutorial ma comunque quello che vorresti fare e complesso per un esperto programmatore ASP e javascript figuriamoci un apprensita, io lascierei perdere

[optime]

andre', beato te che sei nato imparato

maurice, dove sta sto tutorial?

[cavicchiandrea]

Originariamente inviato da optime
andre', beato te che sei nato imparato

Vero il contrario, ho studiato e sono andato per gradi passo dopo passo

maurice, dove sta sto tutorial?

maurice sei finito in ottime mani



P.S. Opt beato te che hai tutto sto tempo e pazienza

[Vincent.Zeno]

Originariamente inviato da cavicchiandrea
io lascierei perdere

te sei fuori peggio di un balcone a sbalzo rinforzato con doppia capriata

edit: forse non se ne viene fuori ma meglio cimentarsi, no?

[cavicchiandrea]

Originariamente inviato da Vincent.Zeno
te sei fuori peggio di un balcone a sbalzo rinforzato con doppia capriata

Forse, o forse sono un realista chi sa, il tempo ci darà ragione

edit: forse non se ne viene fuori ma meglio cimentarsi, no?

Provarci è una cosa, illudere e un altra.
Quello che chiede è una delle cose più difficili da realizzare e da spiegare poi mi sbaglio ma il forum è pieno di discussioni su questo argomento ma molto poche risolte ma sono contento per maurice del vostro ottimismo

Congedandomi mi scuso del mio intervento non gradito e auguro a tutti voi di riuscire.

[maurice751]

Buongiorno a tutti

sono alle prime armi con asp ma ottimo sistemista :-)

di seguito il link del tutorial


http://www.html.it/articoli/messagge...vi-messaggi-1/

[optime]

posta il codice dell'invio

[maurice751]

di seguito il form di selezione utente e spedizione messaggio


<%if Session("ID_utente") = "" or IsNull(Session("ID_utente")) then Response.Redirect("../logout.asp")

'Recupero informazioni in caso di compilazione incompleta del form
messaggio_destinatario = trim(request("messaggio_destinatario"))
messaggio_oggetto = trim(request("messaggio_oggetto"))
messaggio_corpo = trim(request("messaggio_corpo"))

errore = trim(request("errore"))
if instr(errore,1) > 0 then bgcolor1 = "#fc3"
if instr(errore,2) > 0 then bgcolor2 = "#fc3"
if instr(errore,3) > 0 then bgcolor3 = "#fc3"

Response.Write ("<center>NUOVO MESSAGGIO</center>")



if len(errore) > 0 then
Response.Write ("

Attenzione: uno o pi&ugrave; campi non sono stati compilati correttamente o destinatario inesistente.")
end if

Response.Write ("<form method=""post"" action=""new_messaggio_ok.asp?id_utente="& id_utente &""">")

if rs1 ("livello")= 0 then
sql = "SELECT * FROM utenti order by cognome "
else
sql = "SELECT * FROM utenti where livello = 0 order by cognome "
end if
Set rs = Server.CreateObject("ADODB.Recordset")
cmdTemp.CommandText = SQL
Set cmdTemp.ActiveConnection = Cn
rs.Open cmdTemp, ,3, 3

Response.Write ("Destinatario:<select name=messaggio_destinatario id=messaggio_destinatario size=1>" & vbCrLf)
do while not rs.EOF
Response.Write "<option value=" & rs("login") &" >" & rs("cognome") & " " & rs("nome") &"</option>" & vbCrLf
rs.MoveNext
loop
rs.Close
Response.Write "</select></br>" & vbCrLf



Response.Write ("Oggetto:<input type=""text"" name=""messaggio_oggetto"" value="""& messaggio_oggetto &""" style=""font-family:verdana;font:11px;background:"& bgcolor2 &""" size=""50"" />
")
Response.Write ("Corpo:
<textarea name=""messaggio_corpo"" style=""font-family:verdana;font:11px;background:"& bgcolor3 &""" cols=""60"" rows=""10"">"& messaggio_corpo &"</textarea>
")
Response.Write ("

<input type=""reset"" name=""annulla"" value=""ANNULLA"" style=""font-family:verdana;font:11px;"" /><input type=""submit"" name=""submit"" value=""INVIA"" style=""font-family:verdana;font:11px;"" />")
Response.Write ("</form>")

%>

[maurice751]

Di seguito il file di elaborazione ed invio dati

<%@LANGUAGE="VBSCRIPT"%>

<%if Session("ID_utente") = "" or IsNull(Session("ID_uetnte")) then Response.Redirect("default.asp")
dim id_utente
id_utente = request.QueryString("id_utente")
'Recupero informazioni in caso di compilazione incompleta del form
messaggio_destinatario = trim(request("messaggio_destinatario"))
messaggio_oggetto = trim(request("messaggio_oggetto"))
messaggio_corpo = trim(request("messaggio_corpo"))

call dbConnect(conn,dbConnString)

errore = ""

call checkDestinatario(conn,messaggio_destinatario,chec kDestinatarioOutput)

if len(messaggio_destinatario) = 0 or checkDestinatarioOutput = 0 then errore = "1"

if len(messaggio_oggetto) = 0 then
if errore = "" then
errore = "2"
else
errore = errore &",2"
end if
end if

if len(messaggio_corpo) = 0 then
if errore = "" then
errore = "3"
else
errore = errore &",3"
end if
end if

if errore <> "" then
call dbDisconnect(conn)

Response.Write("<form name=""searchbtmform"" action=""new_messaggio.asp?id_utente="& id_utente &""" method=""post"">")
Response.Write("<input type=""hidden"" name=""messaggio_destinatario"" value="""& messaggio_destinatario &""" />")
Response.Write("<input type=""hidden"" name=""messaggio_oggetto"" value="""& messaggio_oggetto &""" />")
Response.Write("<input type=""hidden"" name=""messaggio_corpo"" value="""& messaggio_corpo &""" />")
Response.Write("<input type=""hidden"" name=""errore"" value="""& errore &""" />")
Response.Write("</form>")
Response.Write("<script language=""JavaScript"">document.searchbtmform.sub mit()</script>")

else
call inserisciMessaggio(conn,messaggio_mittente,messagg io_destinatario,messaggio_oggetto,messaggio_corpo)
call dbDisconnect(conn)
Response.Redirect ("/asso/msg/elenco_messaggi.asp?id_utente="& id_utente &"")
end if
%>