come ottimizzare questo codice

[Stanislao]

ho questa pagina che si reloada ogni 25 secondi in un frame per fare controlli su nuovi messaggi ricevuti e login dell'utente in community

siccome è molto pesante sta cosa si può ottimizzare in qualche modo?
magari pure se devo passarla ad altro sitema per esempio aspx ma preferirei asp ...lo mastico meglio
in pratica io faccio i controlli sulle date potrei evitare tutti sti controlli inserendo altro ttipo di soluzione?

	sql="Select * from Iscritti"
	rs.Open sql , Conn ,3 ,3
	do while not rs.eof
	if rs("Status_Connect")=true then
	if rs("ID")=Session("ID") then
	rs("Status_Connect")= True
	rs("Date_Now")= Now()
	Session("ID")=rs("ID")
	else								
	if DateDiff("s",rs("Date_Now"),Now())>240 then
	rs("Status_Connect")= False
	rs("Date_Now")= []
	end if			
	end if
	end if							
	rs.MoveNext				
        loop
	rs.close
'ricezione messaggio se esiste

        if IsNumeric(session("ID")) and Session("ID")<>"" then
	sql="Select * from Iscritti inner join miniblog on Iscritti.ID=miniblog.ID_Destinatario where miniblog.ID_Destinatario="&Session("ID") & " AND  Iscritti.Status_Connect=true and Check=false"
	rs.Open sql , Conn ,3 ,3
	Do while not rs.eof

	if DateDiff("s",rs("Data_Messaggio"),Now())<25 then
	%>
	<script>
	top.window.open('ricevi.asp?ID=<%=rs("ID")%>&delete=True','','width=380,height=299')
	</script>
	<%			
	end if

	rs.MoveNext
        loop
	end if	
	set rs=Nothing
	Conn.close
	Set Conn=nothing
    %>

grazie 36.000