Interrompere la comunicazione se un utente si è disconnesso

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>