mailing list

**nm2002** · 15-10-2004, 13:02

Ciao,
Devo inviare un e-mail a dogni indirizzo peesente nel tabella del mio db ogni volta che qualcuno scrive su guestbook...
ora funziona tutto solo che quando passo la variabvile RSEMA al campo
BCC del mio oggetto CDONT mi dà questo errore:

emailpescatadaldb@yahoo.it
Microsoft VBScript runtime error '800a000d'

Type mismatch: 'bcc'

/guestadd.asp, line 123

COME FACCIO A PASSARGLI LA VARIABILE NEL MODO GIUSTO ?

--------------------

Questo è lo scrip:

Rsema.open "SELECT email FROM smalp WHERE email IS NOT NULL", conn, 3, 3

Do While Not Rsema.Eof
Response.write Rsema("email")
Rsema.MoveNext
Loop

xyz = Rsema

--------

nel cdont

**nm2002** · 15-10-2004, 14:14

**Roby_72** · 15-10-2004, 14:18

Posta lo script intero.

Roby

**nm2002** · 15-10-2004, 14:21

<%
Option Explicit
dim nome, cognome, citta, prov, stato, email, commento, data

dim conn
dim Rs, Cns, Rsema, smalp, conn2, xyz
dim SQL
dim IdUtente
dim autenticato

Set conn = Server.CreateObject("ADODB.Connection")
Set Rs = Server.CreateObject("ADODB.Recordset")
Set Rsema = Server.CreateObject("ADODB.Recordset")

conn.Open "database"

Dim miaMail, HTML
Set miaMail=CreateObject("CDONTS.NewMail")

nome=Request.Form("nome")
cognome=Request.Form("cognome")
citta=Request.Form("citta")
prov=Request.Form("prov")
stato=Request.Form("stato")
email=Request.Form("email")
data=Request.Form("data")

commento=Request.Form("commento")
commento= Replace(commento, "'", "’")

Rs.open "SELECT * FROM smalpbook ", conn, 3, 3

SQL = "INSERT INTO smalpbook (nome,cognome,citta,prov,stato,email,data,commento )"

SQL = SQL&"VALUES('"&nome&"','"&cognome&"','"&citta&"',' "&prov&"','"&stato&"','"&email&"','"&data&"','"&co mmento&"')"
Conn.Execute(SQL)

Rsema.open "SELECT email FROM smalp WHERE email IS NOT NULL", conn, 3, 3

Do While Not Rsema.Eof
Response.write (Rsema("email") + ",")
Rsema.MoveNext
Loop

xyz = Rsema

HTML = "<!DOCTYPE HTML PUBLIC ""-//IETF//DTD HTML//EN"">"
HTML = HTML & "<html>"
HTML = HTML & "<head>"
HTML = HTML & "<meta http-equiv=""Content-Type"""
HTML = HTML & "HTML = HTML content=text/html; charset=iso-8859-1>"
HTML = HTML & "<title>Messaggio dal sito</title>"
HTML = HTML & "</head>"
HTML = HTML & "<body bgcolor='#eeeeee'>"
HTML = HTML & "<table bordercolorlight='#464780' bordercolordark='#464780' border='1' cellpadding='6' cellspacing='0'><tr><td bgcolor='#ffffff'><font face=verdana size=1> "
HTML = HTML & "

"
HTML = HTML & "
"
HTML = HTML & "Data: "
HTML = HTML & data
HTML = HTML & "
"
HTML = HTML & "E' stato aggiunto un commento al guestbook di SMALP 84 AUC<hr color='White' size='1'>"
HTML = HTML & HTML = HTML & "</body>"
HTML = HTML & "</html>"

miaMail.From=Request("email")

miaMail.To="mail@server.it"
miaMail.bcc = xyz
miaMail.Subject="Guestbook"
miaMail.BodyFormat=0
miaMail.Importance=2
miaMail.Body=HTML
miaMail.Send
Set miaMail=Nothing

Response.Redirect "guestbook.asp"

Rs.Close
conn.Close
set Rs = nothing
set conn = nothing
%>

**Roby_72** · 15-10-2004, 14:27

1) Questa non capisco a cosa serva:
Rs.open "SELECT * FROM smalpbook ", conn, 3, 3

2) Questa è nulla

xyz = Rsema

perché devi valorizzarla nel loop mentre invece non c'è

3) Questa

miaMail.From=Request("email")

non è detto funzioni perché con CDONTS l'indirizzo del mittente è il tuo, perché partono dal tuo server... Non puoi usare l'email di un utente (di solito).

Roby

**nm2002** · 15-10-2004, 14:33

..premetto che non soo un "ASPista"

1) Questa non capisco a cosa serva:
Rs.open "SELECT * FROM smalpbook ", conn, 3, 3

---> E' x aorir ein db pe rinserire i dati ne guestbook (comunque funziona)

2) Questa è nulla

xyz = Rsema

perché devi valorizzarla nel loop mentre invece non c'è

---> COME FACICO A VALORIZZARLA ? - E SE PASASSI Rsema al BCC?

3) Questa

miaMail.From=Request("email")

non è detto funzioni perché con CDONTS l'indirizzo del mittente è il tuo, perché partono dal tuo server... Non puoi usare l'email di un utente (di solito).

---> NEL FORM

**nm2002** · 15-10-2004, 14:55

...OPS

---> NEL FORM CHE SI TROVA NELLA PAGINA PRECEDENTE OBBLIGO
L'UTENTE AD INSERIRE L'EMAIL CORRETTA DEL MITTENTE

**Roby_72** · 15-10-2004, 14:56

Non credo sia quello il problema...

Roby

**nm2002** · 15-10-2004, 15:03

...l'errore è nella riga del BCC, quindi sta nella variabile XYZ...(secondo me)

..comunque tu come faresti a mandare una mail tramite CDONTS e passare i campi del DB al BCC?

**Roby_72** · 15-10-2004, 15:06

codice:

xyz = ""
Do While Not Rsema.Eof 
xyz = xyz & Rsema("email") &";"
Rsema.MoveNext 
Loop

Roby

Discussione: mailing list

Strumenti discussione

Ricerca discussione

Visualizza

mailing list

Permessi di invio