MailingList asp

[windt]

Avevo capito che non lo avevi provato tutto. Allora, risolto il problema dell'inserimento ed ordinamento (grazie a te).
Come ADMIN seleziono la news che voglio inviare e mi passa alla pagina "Admin_scheda_invia.asp" , in questa pagina vedo l'anteprima e confermo di inviare la mail. Fin qui sembra tutto bene. Confermo invio e passa alla pagina "Mailing.asp", e in questa pagina mi dice che per confermare invio devo cliccare su "AVANTI" .......ma non è cliccabile ne il tasto indietro e ne il tasto avanti e quindi non si puo confermare invio :-( Sto script mi sta facendo solo impazzire..... non capisco perche a distanza di anni non funziona più.

 

[Paolo69]

devi sostituire il codice che provvede alla spedizione dell'email con il seguente:

   Dim server_smtp
   Dim objMail
   Dim objConfig
     server_smtp ="smtp.localhost.it"
     
   Set objMail = Server.CreateObject("CDO.Message")
   Set objConfig = Server.createObject("CDO.Configuration")
   With objConfig
     .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = server_smtp
     .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
     .Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
     .Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
     .Fields.Update
   End With
   
   Set objMail.Configuration = objConfig
     objMail.From = email_can ' Mittente dell'email (indirizzo)
If DatabaseEsterno = True then 
     objMail.To = rs.Fields(CellaEmail) ' Destinatario dell'email (indirizzo)
     objMail.Subject = Titolo
     objMail.Fields.Update()
     objMail.HTMLBody = strMessage & vbCrlf & vbCrlf & Body ' Formato HTML
     objMail.Send() ' Invia l'email
Else 
     objMail.To = rs.Fields("email") ' Destinatario dell'email (indirizzo)
     objMail.Subject = Titolo
     objMail.Fields.Update()
     objMail.HTMLBody = strMessage & vbCrlf & vbCrlf & Body ' Formato HTML
     objMail.Send() ' Invia l'email
End If     
   Set objMail = Nothing

PS: personalizzati il server SMTP

se commentavi la riga:

'on error resume next

ti saresti accorto che il codice era obsoleto...
In bocca al lupo Luigi

 

[windt]

Ciao Paolo, l'errore è nella pagina "mailing.asp" all'interno della cartella "admin". Quello che ti dicevo, è in questa sezione che non mi da il link di invio:

<p align="center">
<div align="center">
<table cellspacing="0" cellpadding="2" border="0" width="756">
<tr>
<td width="374">
<p align="right"><font size="2" face="Arial"><b><% if requestrecords <> 0 then %>&nbsp;
<a href="Mailing.asp?offset=<% = requestrecords - recordsonpage %>&IDNews=<% = News %>">Indietro</a><% else %>Indietro<% end if %></b></font></p>
</td>
<center>
<td width="362"><font size="2" face="Arial"><b><% if lastrecord <> 1 then %> <a href="Mailing.asp?offset=<% = requestrecords + recordsonpage %>&IDNews=<% = News %>">Avanti</a>&nbsp;
<% else %>Avanti<% end if %></b></font></td>
</tr>
<tr>


Cioè il tasto indietro e il tasto aventi, per la conferma, non sono klikkabili :-(

 

[windt]

Ciao Paolo, finalmente tutto sistemato.... non mi sembra vero. Il codice 'on error' l'ho lasciato. Anche se nel codice che ho indicato sopra riporta che cliccando su avanti ti conferma l'invio della news (non lo fa e non è necessario). Quando sono nella pagina "Admin_scheda_invia.asp" dove si puo modificare, cancellare o inserire una nuova news, nel momento in cui clikko su invia news, trasferisce nella pagina Mailing.asp elencando tutte le mail memorizzate ed la news è gia stata inviata. GRAZIEEEEEEEEEEEEEEEE

 

[windt]

Adesso devo andare alla ricerca di uno script per iscrizione "Area riservata" quello che ho non mi piace tanto