ciao,sto costruendo anche una newsletter,però non mi riconosce il database.
Cioè, compilo il modulo, provo a mandare la newsletter , dovrebbe riconoscermi l'indirizzo che ho inserito nel database, ma nada,poteve guardare voi se c'è un errore?ciao e grazie
<html>
<body bgcolor="#FFFFFF">
<form action="mailing.asp" method="POST">
Oggetto
dell'e-mail
<input type="text" size="20" name="oggetto"> </p>
Priorità
<select name="priorita" size="1">
<option value="2">Alta</option>
<option selected value="1">Normale</option>
<option value="0">Bassa</option>
</select></p>
Testo
da inviare agli iscritti
<textarea name="testo" rows="8" cols="28"></textarea></p>
<input type="submit" name="B1" value="Invia messaggi"><input
type="reset" name="B2" value="Reimposta"></p>
</form>
</body>
<%
oggetto=request.form("oggetto")
priorita=request.form("priorita")
testo=request.form("testo")
dim dove
dove="driver={Microsoft Access Driver (*.mdb)};dbq="& Server.MapPath("database.mdb")
Set rs=Server.CreateObject("ADODB.recordset")
dim stmsql
stmsql="Select nomecompleto,email FROM utenti"
rs.Open stmsql,dove
do while not rs.EOF
Set objMail = Server.CreateObject("CDONTS.NewMail")
danome="Nostro sito"
damail="<mia mail>" ' Qui il nostro indirizzo e-mail tra < >
dachi=chr(34) & danome & chr(34) & damail
objMail.From=dachi
objMail.Body=testo
objMail.To=chr(34) & rs("nomecompleto") & chr(34) &"<"& rs("email")&">"
objMail.Subject=oggetto
objmail.importance=priorita
objMail.Send
set objMail = nothing
rs.MoveNext
loop
rs.close
Set rs = NOTHING
%>
Rispondi quotando
