ADDADDRESS di ASPMAIL

[davasex]

salve ragazzi.
ho un problema strano. vorrei assegnare all'oggetto ADDADDRESS di ASPMAIL un valore da una campo del db ma nn ci riesco.

qualcuno sa aiutarmi

<%
If Request.Form("invia") <> "" Then
Set Mail = Server.CreateObject("Persits.MailSender")

Mail.Host = "mail.dominio.com" 'Mail host IP
Mail.port = 25
'Specify sender's address
Mail.From = "info@dominio.com "
'Specify sender's name
Mail.FromName = "mio nome"

Mail.AddAddress response.Write()request("email_U") mail.AddCc "nome@dominio.com"
Mail.AddReplyTo "nome@dominio.com"
Mail.Subject = "RE - Richiesta Contatto"
Mail.Body = "Egregio "& nomeM &_
Chr(13) & Chr(10) & _
"In merito alla tua rchiesta di contatto del "& dataM & _
Chr(13) & Chr(10) & _
"Argomento "& infoM & "le rispondo quanto segue:"&_
Chr(13) & Chr(10) & _
testoR
On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write "Error encountered: " & Err.Description
End If
end if
%>

grazie

[99eros9]

direi che questa
response.Write()request("email_U")
non mi convince molto
posta il codice completo

[davasex]

si, in effetto nn centrava nulla.. era rimasto qualcosa delle infinite prove... allora. Premetto ke uso dw +kaltro perkè sono pigro.. quindi creo il rs (messaggio)

<%
Dim messaggio__MMColParam
messaggio__MMColParam = "1"
If (Request.QueryString("ID_U") <> "") Then
messaggio__MMColParam = Request.QueryString("ID_U")
End If
%>

<%
Dim messaggio
Dim messaggio_numRows

Set messaggio = Server.CreateObject("ADODB.Recordset")
messaggio.ActiveConnection = MM_bcc_STRING
messaggio.Source = "SELECT * FROM messaggi WHERE ID_U = " + Replace(messaggio__MMColParam, "'", "''") + ""
messaggio.CursorType = 0
messaggio.CursorLocation = 2
messaggio.LockType = 1
messaggio.Open()

messaggio_numRows = 0
%>

definisco le variabili ke mi servono
<%
dim nomeM
dim emailM
dim InfoM
Dim DataM
dim ID_U
if (messaggio.Fields.Item("NomeCognome_U").Value)<> "" THEN
nomeM = (messaggio.Fields.Item("NomeCognome_U").Value)
end if
emailM = "scerniglia@tiscali.it"'(messaggio.Fields.Item("em ail_U").Value)
if (messaggio.Fields.Item("info_U").Value) <> "" then
InfoM = (messaggio.Fields.Item("info_U").Value)
end if
if (messaggio.Fields.Item("ID_U").Value) <> "" then
ID_U = (messaggio.Fields.Item("ID_U").Value)
end if
dim nomeR
dim emailR
dim dataR
dim testoR
if request.QueryString("nomecognome_R") <> "" THEN
nomeR = request.QueryString("nomecognome_R")
end if
if request.QueryString("email_R") <> "" THEN
emailR = request.QueryString("email_R")
end if
if request.QueryString("data_R") <> "" THEN
dataR = request.QueryString("data_R")
end if
if request.QueryString("testo_R") <> "" THEN
testoR = request.QueryString("testo_R")
end if
%>

dopodikè... ASPMAIL (preso dagli esempi)
<%
If Request.Form("invia") <> "" Then
Set Mail = Server.CreateObject("Persits.MailSender")

Mail.Host = "mail.dominio.com" 'Mail host IP
Mail.port = 25
'Specify sender's address
Mail.From = "info@dominio.com "
'Specify sender's name
Mail.FromName = "MioNome"

Mail.AddAddress emailM (la variabile ke mi dovrebbe restituire leamil ke mi serve: ovviamente se metto un indirizzo "normale" al posto della variabile funziona )



Mail.Subject = "RE - Richiesta Contatto"
Mail.Body = "Egregio "& nomeM &_
Chr(13) & Chr(10) & _
"In merito alla tua rchiesta di contatto del "& dataM & _
Chr(13) & Chr(10) & _
"Argomento "& infoM & "le rispondo quanto segue:"&_
Chr(13) & Chr(10) & _
testoR
On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write "Error encountered: " & Err.Description
End If
end if
%>
e, in teoria dovrebbe essere fatta.... ma niente
puoi aiutarmi?
grazie

[99eros9]

se fai un response.write(emailM) ... della variabile dopo averla valorizzata, che risultato ottieni?

lo pigrizia

[davasex]

se la inserisco nel body della pagina mi restituisco il valore giusto.. cioè l'indirizzo email
ma se lo inserisco nello script no...
sto impazzendo..

[99eros9]

se sostituisci
emailM = "scerniglia@tiscali.it"'(messaggio.Fields.Item("em ail_U").Value)
con
emailM = (messaggio.Fields.Item("email_U").Value)
??

[davasex]

no.. nulla
sto provando con un altro file di esempio ke cè nella guida di aspmail...
ti faccio sapere
grazie sempre e cmq

[davasex]

ah! mi ero scordato d dirti ke oltre a inviare lemai, la pag mi inserisce i dati nel db... sempre con dw

[davasex]

vabbè vado a nanna
grazie
domani continuo nel caso c bekkiamo

[davasex]

allora, il probelma è che ricevo un errore di autenticazione di ASPMAIL
Error encountered: 500 failed authentication
asai dirmi dove posso trovare un manuale o qualcosa ke mi aiuti?

grazie