indirizzi e-mail con request.form

**Dodo66** · 27-10-2005, 01:45

Sto interagendo con una mailing in un db di access:
leggo gli indirizzi dal recordset e li invio alla pagina e-mail attraverso il request.form.Non riesco ad inserirli nell'oggetto mail .To="" poichè se non metto gli apicini gli indirizzi non funzionano come stringhe e le-mail mon mi arriva non ha destinatario.
Se invece inserisco il request.form tra gli apicini non mi arrivano gli indirizzi nel mail.To="request.form..." perchè request.formdiventa una stringa come se fosse l'indirizzo del destinatario.
Non so se sono stato chiaro ma se qualcuno potrebbe sciogliere questo nodo sarebbe una liberazione. Grazie saluto tutti

**supergeniux** · 27-10-2005, 08:43

codice:

dest = request.form("X")

...
...
...

mail.to = dest

**Dodo66** · 27-10-2005, 14:37

Grazie per il suggerimento ma ho già provato senza buon esito ti mando la parte precedente dove leggo dal db
code:

<%@Language="VBScript"%>
<%Response.Buffer = True%>
<%
Dim oRS, oConn
Set oRS = Server.CreateObject("ADODB.Recordset")
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.ConnectionString = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("offerte.mdb")
oConn.Open
strSQL="SELECT * FROM Giancesare "
oRS.Open strSQL, oConn
if not oRS.Eof then
Do while not oRS.EOF%>

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

<input type="text" name="percorso" size="30" value="<%Response.Write(oRS("Disponibilita"))+","% >"></p>

<%
oRS.MoveNext
Loop
end if
Set oRS = Nothing
oConn.Close
Set oConn = Nothing
%><input type="submit" value="Invia" name="B1">
</form>
Ti faccio presente che nella visualizzazione asp gli indirizzi mi arrivano solo che nel primo ci sono due virgole.
Potrebbe essre questo il problema?

**Roby_72** · 27-10-2005, 14:43

A che serve tutto questo giro?
Leggi le email dal db e mandale immediatamente senza inutili form.

Roby

**Dodo66** · 27-10-2005, 14:52

Si ma il problema è che gli indirizzi che prelevo con request.formnon vengonoin seriti nel mail.to=...
ma se ciò accadesse a me comunque lemail non mi arriva mentre il messaggio di posta inviata si

code:
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Nuova pagina 1</title>
</head>

<body>

<%
Dim miaMail, percorso
percorso=request.form("percorso")
Set miaMail = CreateObject("CDONTS.NewMail")
miaMail.From = "bacone grande"
miaMail.To = percorso
miaMail.Subject = percorso
miaMail.BodyFormat = 1
miaMail.MailFormat = 1
miaMail.Importance = 1
miaMail.Body = "Testo della mail"
miaMail.Send
Set miaMail = Nothing
response.write"email inviata"%>

<%
response.write(request.form("percorso"))
%>

</body>

</html>

**Roby_72** · 27-10-2005, 15:01

1) Il form l'hai aperto nel ciclo mentre l'hai chiuso fuori

2) Se arrivano due virgole significa che i primi due indirizzi email non ci sono nella tabella

Roby

**Dodo66** · 27-10-2005, 15:13

Il problema delle virgole l'ho risolto empiricamente inserendole nel db.
Il form l'ho chiuso fuori dal ciclo perchè cosi evito la creazione inutile di più pulsanti "INVIA".
La cosa strana è che in asp funziona tutto solo nell'email non mi arriva nulla pur visualizzando Email inviata vale a dire lo script è corretto dato che il server non mi da errore

**Roby_72** · 27-10-2005, 15:15

Originariamente inviato da Dodo66
Il problema delle virgole l'ho risolto empiricamente inserendole nel db.
Il form l'ho chiuso fuori dal ciclo perchè cosi evito la creazione inutile di più pulsanti "INVIA".
La cosa strana è che in asp funziona tutto solo nell'email non mi arriva nulla pur visualizzando Email inviata vale a dire lo script è corretto dato che il server non mi da errore

Che discorso e'?
Il form, se lo chiudi giustamente fuori dal ciclo, lo devi aprire PRIMA del ciclo altrimenti apri tanti form quanti sono i record del db!!!!
Prova a guardare l'HTML della pagina prima di premere il pulsante!

Roby

**Dodo66** · 27-10-2005, 16:16

Sto per fondere: ti mando le pagine:
lettura:

<%@Language="VBScript"%>
<%Response.Buffer = True%>
<%
Dim oRS, oConn
Set oRS = Server.CreateObject("ADODB.Recordset")
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.ConnectionString = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("offerte.mdb")
oConn.Open
strSQL="SELECT * FROM Giancesare "
oRS.Open strSQL, oConn
if not oRS.Eof then
Do while not oRS.EOF%>
<form method="POST" action="invio_mail.asp">

<input type="text" name="T1" size="20" value="<%Response.Write(oRS("Disponibilita"))%>">< input type="hidden" value="Invia" name="B1"></p>
</form><%
oRS.MoveNext
Loop
end if
Set oRS = Nothing
oConn.Close
Set oConn = Nothing
%>

Invio email con request.form per mail.to=...
code:
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Nuova pagina 1</title>
</head>

<body>

<%
Dim miaMail, percorso
percorso=request.form("percorso")
Set miaMail = CreateObject("CDONTS.NewMail")
miaMail.From = "bacone grande"
miaMail.To = percorso
miaMail.Subject = percorso
miaMail.BodyFormat = 1
miaMail.MailFormat = 1
miaMail.Importance = 1
miaMail.Body = "Testo della mail"
miaMail.Send
Set miaMail = Nothing
response.write"email inviata"%>

<%
response.write(request("percorso"))
%>

</body>

</html>
Se puoi fammi vedere dov'è l'inceppo oltre che nella mia testa!

**Roby_72** · 27-10-2005, 16:27

codice:

<%@Language="VBScript"%> 
<%Response.Buffer = True%> 
<% 
Dim oRS, oConn 
Set oRS = Server.CreateObject("ADODB.Recordset") 
Set oConn = Server.CreateObject("ADODB.Connection") 
oConn.ConnectionString = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("offerte.mdb") 
oConn.Open 
strSQL="SELECT * FROM Giancesare " 
oRS.Open strSQL, oConn 
if not oRS.Eof then %>
<form method="POST" action="invio_mail.asp"> 
Do while not oRS.EOF%> 


 
<input type="text" name="T1" size="20" value="<%Response.Write(oRS("Disponibilita"))%>"></p>
<%oRS.MoveNext 
Loop%> 


<input type="submit" value="Invia" name="B1" /></p> 
</form>
<%end if 
Set oRS = Nothing 
oConn.Close 
Set oConn = Nothing 
%>

Roby

Discussione: indirizzi e-mail con request.form

Strumenti discussione

Ricerca discussione

Visualizza

indirizzi e-mail con request.form

ancora su request.form e invio email

Permessi di invio