limite di ridirezioni

[lucky2]

Ho uno script di invio newsletter a gruppi che mi restiruisce un errore che non capisco. Se utilizzato con IE funziona benissimo ma con ad esempio Firefox restituisce in un alert del browser con questo errore "raggiunto il limite di ridirezioni per questo indirizzo. Impossibile caricare la pagina richiesta"

questo è lo script

' recupero l'ID della Notizia
id = request("id")
sql="select * from news where id=" & id
set rs=server.createobject("adodb.recordset")
rs.open sql, MM_intranet_STRING, 1, 3

' cerco gli utenti attivi
sql_msg ="SELECT * FROM iscritti_newsletter WHERE attivo = 1"
set rs_msg=server.createobject("adodb.recordset")
rs_msg.open sql_msg, MM_Newsletter_STRING, 1, 3

' paginazione
mypage = Request("pg")
if mypage="" then mypage = 1

strPageSize = 50
rs_msg.cachesize = strPageSize
rs_msg.pagesize = strPageSize
rs_msg.absolutepage = mypage
maxpages = CInt(rs_msg.pagecount)

i = 0

do while not rs_msg.EOF

max_id = rs_msg("ID_Iscritti")
var_mail = rs_msg("mail")

var_body ="messaggio mail"

'email
Dim miaMail
Set miaMail = CreateObject("CDONTS.NewMail")
miaMail.From = "Staff@miodominio.it"
miaMail.To = var_mail
miaMail.Subject = "newsletter.it: "& rs("titolo")
miaMail.MailFormat = 0
miaMail.Body = var_body
miaMail.Importance = 1
miaMail.Send
Set miaMail = Nothing

  i = i + 1
  if i = strPageSize then Exit Do

  rs_msg.MoveNext
loop

rs("newsletter")=1
rs.update

rs_msg.close
Set rs_msg = Nothing

rs.close
Set rs = Nothing

if Cint(mypage)<Cint(maxpages) then Response.redirect("send.asp?action=sendAll&pg=" & CINT(mypage)+1) & "&id="&id

Response.write ("Caricate " & maxpages & " pagine")

<script>
alert("Newsletter inviate con successo!")
location.href = "pannello.asp?action=invionews&sid=<%=request("sid")%>"
</script>

response.end
end if

La domanda è... perchè con IE tutto ok e firefox no?!

[Roby_72]

Sicuramente ha ragione firefox...
Comq l'ultimo end if a che serve???

Roby