Dim saatfark,dakikafark,saniyefark
saatfark= Hour(Time) - Session("Saat") ' // saat farkı hesaplanıyor
dakikafark=Minute(Time) - Session("Dakika") ' // dakika farkı hesaplanıyor
saniyefark=Second(Time) - Session("Saniye") '// saniye farkı alınıyor
'flood kontrol ayarları bitti

if Session ("MesajZamani") = Time then
%>
<script language="javascript">
<!--
alert('Bu kadar kısa sürede işlem tekrarı yapamazsınız. Azami süre 60 saniye ')
//-->
</script>
<%
elseif ( ( (saatfark=0) and (dakikafark=0) ) and (saniyefark < 60 ) ) then
%>
<script language="javascript">
<!--
alert('Bu kadar kısa sürede işlem tekrarı yapamazsınız. Azami süre 60 saniye ')
//-->
</script>
<%
else

'işlem komutlarınızı buraya yazınız. Örneğin login

Session("MesajZamani")=Time()
' //mesaj bırakılan zamanın tamamını ilk session nesnesine alıyoruz
Session("Saat")=Hour(Time)
' //mesaj bırakılan zamanın saatini ikinci session nesnesine alıyoruz
Session("Dakika")=Minute(Time) ' dakikayı alıyoruz
' //mesaj bırakılan zamanın dakikasını session nesnesine alıyoruz
Session("Saniye")=Second(Time) ' saniyeyi alıyoruz
' //mesaj bırakılan zamanın saniyesini session nesnesine alıyoruz

end if
%>

Hatırlatma. Bazı programlar session değerlerini alıp yerlerine yeni değerler atayabiliyor.