implementare ciclo su script newsletter

[Okocha]

Il problema è visto e rivisto: invio mail multiple e blocco timeout.

Per superarlo, a quanto ho letto nel forum, si potrebbe creare un ciclo a blocchi. Ho capito il concetto per crearlo ma mi mancano le conoscenze tecniche per attuarlo ed implementarlo a questo script che ho.

Qualcuno, gentilmente, può implementarlo a questo codice? Grazie.

<%@ Language = VBScript %>

<%
server.scriptTimeOut = 600 ' secondi

'Redirect if the user is not supposed to be here
if session("Newsletter") = false then
	response.redirect("index.asp")
end if

'Get title
if len(request.queryString("Subject")) = 0 then
	output = "Invia newsletter"
end if

Subject = request.form("Subject")
Message = request.form("Message")

'Time to send stuff to the subscribers
if len(Message) <> 0 and len(Subject) <> 0 then
	
	'Attach signature file
	set objFSO = server.createObject("Scripting.FileSystemObject")
	set objTextStream = objFSO.openTextFile(server.mapPath("/newsletter/signature.txt"), 1)
	
	SignatureMessage = SignatureMessage & vbCrLf
	
	do while not objTextStream.atEndOfStream
		SignatureMessage = SignatureMessage & objTextStream.readLine & vbCrLf
	loop
	
	Message = Message & SignatureMessage
	
	'Time to open our database
	set con = server.createObject("ADODB.Connection")
	con.open = strServerConnection
	
	'Get email address from database
	sqlString = "Select Email from Newsletter Where Status = 1"
	set rs = con.execute(sqlString)
	
	'Send mail out
	while not rs.eof
	
		'Process mail sending using local SMTP server
		set newMailObj =  server.createObject("CDO.Message")
	
		newMailObj.from = postmasterEmail
		newMailObj.to = rs("Email")
		newMailObj.subject = Subject
		newMailObj.TextBody = Message & vbCrLf & "Per cancellarti dalla newsletter clicca il link " & vbCrLf & "http://"&DomainName&"/newsletter/remove.asp?email="&rs("Email")
		newMailObj.Fields("urn:schemas:httpmail:importance").Value = 2
		newMailObj.Fields.Update()
		newMailObj.send()
		set newMailObj = nothing
		
		rs.moveNext
	wend
	
	output = "Newsletter inviata con successo."
end if

%>

[Okocha]

qualcuno può insegnarmi come fare?