Link copiato negli appunti
La proprietà Response.IsClientConnected, permette di interrompere le comunicazioni con un utente che si è sconnesso, evitando inutili invii di dati.
<%
set connDB=server.createobject("adodb.connection")
conn.Open "database_esempio", "", ""
mySQL="select * from database_esempio"
Set rscerca = Server.CreateObject("ADODB.Recordset")
rscerca.Open mySQL, conn, adOpenStatic, adLockPessimistic
%>
<HTML>
<HEAD>
</HEAD>
<BODY>
<%
Do until (rscerca.eof or Response.IsClientConnected=false)
Response.Write rscerca.Fields("campo_database") %> <br>
<% rscerca.MoveNext
Loop
rscerca.Close
conn.Close
%>
</body>
</html>