Invia all'utente 'tizio' un messaggio privato

[Enrique_Rojas]

Ciao a tutti, vorrei sapere i criteri di realizzazione in asp (se possibile) dell'invio di messaggi istantanei... mi spiego meglio come in questo forum quando cliccando sul nome di un utente si visualizza il profilo e si seleziona:
Invia all'utente tizio un messaggio privato

cosa mi serve, da dove inizio?
grazie

[Roby_72]

Un'area riservata e l'id utente.
In ogni messaggio memorizzerai l'id del mittente, del destinatario ed i dati del messaggio.


Roby

[Enrique_Rojas]

Originariamente inviato da Roby_72
Un'area riservata e l'id utente.
In ogni messaggio memorizzerai l'id del mittente, del destinatario ed i dati del messaggio.


Roby

Grazie per la risposta; ho già realizzato un'area riservata a cui si accede e viene memorizzato l'ID utente con la apertura di una session; non ho chiaro la memorizzazione l'id del mittente, del destinatario ed i dati del messaggio. :master:

[Roby_72]

In che senso... è la cosa più semplice.
Devi cliccare sul nick o nome dell'utente passando il suo id (che sarebbe quello del destinatario).
Si apre una pagina con dentro un form con i dati:
- oggetto messaggio
- corpo messaggio
- data messaggio

L'id del mittente, ovvero il tuo che compili il messaggio, lo sai: è la session("userid") se l'hai attivata.
Alla fine quindi avrai 5 informazioni minime: i dati dell'oggetto e i due id.
Per vedere ad esempio se qualcuno ti ha inviato un messaggio privato, devi controllare se il tuo id è presente nella colonna iddestinatario.

Roby

[Enrique_Rojas]

Allora... ho creato la pagina del profilo utente che restitusce i dati di quello specifico utente

:<% 
Option Explicit
response.buffer = True

dim id, nome, cognome

    nome = request.querystring("utente")	
    id = request.querystring("id") 
		
Dim Conn, SQL, Rec
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& server.MapPath("/utenti.mdb")
SQL = "SELECT * FROM tbl where id = " &id   

Set rec = Server.CreateObject("ADODB.Recordset")
Set Rec = Conn.Execute(SQL)

IDCD = rec("id")

%>
<form method="POST" action="formnewmessage.asp?IDCD=<%=IDCD%>">

nella pagina formnewmessage.asp ho scritto:

<%

Option Explicit
on error resume next 

IDCD = Request.queryString("IDCD") 

Dim connStr
				connStr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("/utenti.mdb")

			Dim rs
				Set rs = Server.CreateObject("ADODB.Recordset")
												
				strSQL = "SELECT * from tbl WHERE ID ="&IDCD
				
			
		        rs.Open strSQL, connStr, 2, 2
				
				rs.Close
				Set rs = Nothing
				
				connStr.Close 
                set connStr = Nothing


%>
<form method="POST" action="newmessage.asp?IDCD=<%=IDCD%>" >

più i campi del form... mi sembra però di fare un giro troppo lungo per spedire un msg privato... vado bene o sbaglio in qualche cosa? :master:

[Enrique_Rojas]

non capisco una cosa...

1) clicco sul profilo dell'utente ed è ok;
2) decido di inviare un msg privato a quell'utente ed è ok;
3) perchè quando riempio il form e cerco di inviare l'email mi dà errore:?

[Microsoft][ODBC Microsoft Access Driver] Syntax error (missing operator) in query expression 'id ='.

questa la pagina dell'invio messaggio:

IDCD = Request.queryString("IDCD") 

Dim Conn, SQL, Rec
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& server.MapPath("/utenti.mdb")
SQL = "SELECT * FROM tbl where id = " &IDCD

Set Rec = Server.CreateObject("ADODB.Recordset")
Set Rec = Conn.Execute(SQL)

'vendemmia la form
nome = Request.Form("nome")
cognome = Request.Form("cognome")
email = Request.Form("email")
messaggio = Request.Form("messaggio")
data = Date()

Dim objMail, messaggio

..............
	
    Set objMail = Server.CreateObject("CDONTS.NewMail")

    ......................

    objMail.Body = messaggio
    objMail.importance = 2
    objMail.MailFormat = 0
    objMail.BodyFormat = 0
    objMail.Send

    Set objMail = Nothing

rec.close 
Set rec = Nothing 
Conn.Close
Set Conn = Nothing
%>

[weppos]

3) perchè quando riempio il form e cerco di inviare l'email mi dà errore:?

Dimentichi di passare l'ID dell'utente.
Metti un campo form di typo hidden ed inserisci all'interno l'ID dell'utente.

Quando richiamerai i campi form richiama anche quello e sarà l'ID di destinazione del mex.

[Enrique_Rojas]

Originariamente inviato da weppos
Dimentichi di passare l'ID dell'utente.
Metti un campo form di typo hidden ed inserisci all'interno l'ID dell'utente.

questo campo form di tipo hidden va inserito nella pagina del form? nella pagina del form ho inserito questo:

<form method="POST" action="newmessage.asp?IDCD=<%=IDCD%>">

non va bene, credo...

[weppos]

Originariamente inviato da Enrique_Rojas
questo campo form di tipo hidden va inserito nella pagina del form? nella pagina del form ho inserito questo:

<form method="POST" action="newmessage.asp?IDCD=<%=IDCD%>">

non va bene, credo...

Se ti da quell'errore vuol dire che IDCD non è valorizzato.
Il campo input hidden è un normalissimo campo form e come tale va dentro alla form.

[Enrique_Rojas]

ho seguito il tuo consiglio ed ho inserito nel form:

<input type="text" name="id" size="20" value="<%=rec("id")%>">

ma non recupera l'id dell'utente... :master: