Newsletter

Hi, I created this script for a newsletter.
The user insert one or more news in the database and the script send it to all the contacts and then check them as sent.

Code:

<% Const adOpenKeyset = 1 Dim cn : Set cn = Server.CreateObject("ADODB.Connection") Dim strConn, strLogin, strPassword strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & server.MapPath("db.mdb") &" ;Persist Security Info=False" cn.open strConn dim rsNewsletter,sqlNewsletter Set rsNewsletter = Server.CreateObject("ADODB.Recordset") rsNewsletter.CursorLocation = 2 sqlNewsletter="select * from tabNewsletter where inviato=false" rsNewsletter.Open sqlNewsletter, cn, adOpenKeyset If Not rsNewsletter.EOF then dim rsEmail,sqlEmail Set rsEmail = Server.CreateObject("ADODB.Recordset") rsEmail.CursorLocation = 2 sqlEmail="select email from tabContatti" rsEmail.Open sqlEmail, cn, adOpenKeyset perpage = 10 If Request.QueryString("p") = "" then p = 1 else p=cint("0"&Request.QueryString("p")) End if If rsEmail.recordcount>0 then rsEmail.PageSize = perpage rsEmail.AbsolutePage = p end if totpag = rsEmail.PageCount For i = 1 to perpage If Not rsEmail.EOF then 'codice che invia le email rsEmail.MoveNext end if next if p<totpag then response.redirect("newsletter.asp?p="&p+1) else rsEmail.close set rsEmail=nothing end if sqlUpdCnt="update tabNewsletter set inviato=true where idNewsletter=" & rsNewsletter("idNewsletter") cn.execute sqlUpdCnt response.redirect("newsletter.asp") end if rsNewsletter.close set rsNewsletter=Nothing response.write "finito" %>

Everything works till the tenth cycle, then it gives a generic error, practically "page connot be displayed":

Code:

Internet Explorer: impossibile visualizzare la pagina Web Cause più probabili: Nessuna connessione a Internet. Si sono verificati problemi relativi al sito Web. È possibile che nell'indirizzo sia presente un errore di digitazione. Possibili operazioni: Diagnostica problemi di connessione Ulteriori informazioni Le cause del problema possono essere diverse, ad esempio: La connessione a Internet è stata interrotta. Il sito Web non è attualmente disponibile. Il DNS (Domain Name Server) non è raggiungibile. Il DNS (Domain Name Server) non dispone di un elenco per il dominio del sito Web. Se si tratta di un indirizzo HTTPS (protetto), scegliere Opzioni Internet dal menu Strumenti, fare clic su Avanzate e verificare che i protocolli SSL e TLS siano abilitati nella sezione Protezione. Per utenti non in linea È tuttavia possibile visualizzare i feed sottoscritti e alcune pagine Web visualizzate di recente. Per visualizzare i feed sottoscritti Fare clic sul pulsante Centro Preferiti , quindi su Feed e infine sul feed da visualizzare. Per visualizzare le pagine Web visitate di recente (è possibile che non tutte le pagine vengano visualizzate) Scegliere Strumenti , quindi Non in linea. Fare clic sul pulsante Centro Preferiti , quindi su Cronologia e infine sulla pagina da visualizzare.

But if the mail are less than 110 (less than 10 cycles) everything works correctly.

In the attachement you can find a zip file containing the asp page and the mdb file to test the script.
You only need to put the two files in a web folder and then open the newsletter page from localhost.

Thanks to all the ones who will help me.