Invia all'utente 'tizio' un messaggio privato

[weppos]

Originariamente inviato da 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:

Guarda che lo devi recuperare tu.
Quando richiamerai i campi form richiamerai anche il campo id

[Enrique_Rojas]

niente non ci riesco... paginaform.asp:

<%
id = request.querystring("id") 
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_login where id = " &IDCD

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

IDCD = rec("id")
%>


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

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

pagina inviomessaggio.asp:

<%

IDCD = Request.queryString("IDCD") 
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 = " &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")
comentarios = Request.Form("comentarios")
data_ricevuto = Date()

Dim objMail, messaggio
................
rec.close 
Set rec = Nothing 
Conn.Close
Set Conn = Nothing
%>

[weppos]

Non riuscirai mai a richiamare i campi se si trovano in un campo form e tu li richiami con

IDCD = Request.queryString("IDCD")
id = request.querystring("id")

una sitassi per querystring.

[Enrique_Rojas]

Originariamente inviato da weppos
Non riuscirai mai a richiamare i campi se si trovano in un campo form e tu li richiami con

una sitassi per querystring.

Scusa forse non mi spiego bene... nella pagina del form ho i campi:

id, nome, cognome, email, messaggio

che nella pagina dell'invio messaggio recupero con:

nome = Request.Form("nome")
cognome = Request.Form("cognome")
email = Request.Form("email")
messaggio = Request.Form("messaggio")
id = Request.Form("id")

il problema è che nella pagina del form non riesco a recuperare automaticamente l'id dell'utente:

<%
'arriva dalla pagina profilo.asp

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)

'va alla pagina del form
cod = Rec("id")
%>
<form method="POST" action="newmessage.asp?cod=<%=cod%>">
<input type="text" name="id" size="20" value="<%=cod%>">

mi segui?

[weppos]

Originariamente inviato da Enrique_Rojas
Scusa forse non mi spiego bene... nella pagina del form ho i campi:



che nella pagina dell'invio messaggio recupero con:

nome = Request.Form("nome")
cognome = Request.Form("cognome")
email = Request.Form("email")
messaggio = Request.Form("messaggio")
id = Request.Form("id")

il problema è che nella pagina del form non riesco a recuperare automaticamente l'id dell'utente:

<%
'arriva dalla pagina profilo.asp

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)

'va alla pagina del form
cod = Rec("id")
%>
<form method="POST" action="newmessage.asp?cod=<%=cod%>">
<input type="text" name="id" size="20" value="<%=cod%>">

mi segui?

Ma li leggi i codici che scrivi?

IDCD = Request.queryString("IDCD")

Richiami un id dalla QS e valorizzi la variabile IDCD.
Allora perchè poi ci infili al posto dell'ID la variabile cod ?

<input type="text" name="id" size="20" value="<%=cod%>">

[Enrique_Rojas]

Originariamente inviato da weppos
Ma li leggi i codici che scrivi?
Richiami un id dalla QS e valorizzi la variabile IDCD.
Allora perchè poi ci infili al posto dell'ID la variabile cod ?

<input type="text" name="id" size="20" value="<%=cod%>">

si ma anche scrivendo così:

<input type="text" name="id" size="20" value="<%=IDCD%>">

o così:

<input type="text" name="id" size="20" value="<%=ID%>">

o così:

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

non recupera niente...

[weppos]

Originariamente inviato da Enrique_Rojas
si ma anche scrivendo così:

<input type="text" name="id" size="20" value="<%=IDCD%>">

o così:

<input type="text" name="id" size="20" value="<%=ID%>">

o così:
>">o così:

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

non recupera niente...

Ma non si va per tentativi o a casaccio!
Passi l'ID in querystring?
Bene, passa allora una cosa tipo

message.asp?sendto=1

e nella pagina message metterai il form.
Al fondo metti un campo hidden e ci infili l'ID che avrai richiamato dalla querystring con

lngUserID = Request.QueryString("sendto")

Poi invii dove devi e nella pagina di invio richiamerai l'ID assieme a ttti gli altri campi con Request.Form("nomecampo").

[Enrique_Rojas]

no grazie, basta non ne posso più di "non capire" ci rinuncio...

[Roby_72]

Enrique_Rojas stai facendo un casino della miseria.
A cosa servono tutti quegli id????
Il tuo id (ovvero l'id di chi manda il messaggio, in questo caso tu ma cmq ogni persona che entri nell'area riservata) lo conosci perché è in session e quindi non ti serve né passarlo in querystring né nel form. E' memorizzato nella session e se non lo è, dopo il login, quando attivi le variabili di sessione, ce lo devi mettere.
L'id del destinatario è l'unico che devi passare nel form come campo hidden.
Ti spiego. Clicchi sul nome del destinatario e nell'href passi il suo id. Apri una pagina con il form che conterrà i soliti campi del messaggio più un campo hidden con l'id del destinatario, così:

<form method="post" action="invia_messaggio.asp">
...
...
...
<input type="hidden" name="iddestinatario" value="<%=iddestinatario%>">
...
...
</form>

Nella pagina "invia_messaggio.asp" recuperi tutti i campi con request.form, tranne il tuo id che come detto è in session.

Roby

[Enrique_Rojas]

Grazie Moderatore per l'incoraggiamento ed accetto di buon grado anche i rimproveri, servono a far ragionare anche se con me sarà difficile... :maLOL:
infatti ecco quello che ho realizzato:
-una asp che visualizza il profilo utente selezionato; da questa pagina cliccando su un pulsante si invia un msg passando per un form:

<% 
Option Explicit
response.buffer = True

dim id, nome, cognome, email, IDCD

    nome = request.querystring("nome")	
    id = request.querystring("id") 
		
Dim Conn, SQL, Rec
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& server.MapPath("/utente.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%>">

-la asp del form, dove ho scritto:

<form method="POST" action="newmessage.asp">

<input type="hidden" name="iddestinatario" value="<%=iddestinatario%>">
........
</form>

-la pagina di invio messaggio:

cod = Request.Form("iddestinatario") 
nome = Request.Form("nome")
cognome = Request.Form("cognome")
email = Request.Form("email")
messaggio = Request.Form("messaggio")
data = Date()

Dim Conn, SQL, Rec
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& server.MapPath("/utente.mdb")
SQL = "SELECT * FROM tbl_login where id = " &cod
Set rec = Server.CreateObject("ADODB.Recordset")
Set Rec = Conn.Execute(SQL)


Dim objMail, messaggio
...........
rec.close 
Set rec = Nothing 
Conn.Close
Set Conn = Nothing

ma come hai già sicuramente intuito non funziona...