çalışmaz tabi aceleyle yazdım hatalı olmuş
<%
Dim refresh
refresh = Session("refresh")
If refresh = "" Then
Session("refresh")=0
End If

Session("refresh")=Session("refresh")+1

If refresh > 1 Then
Response.Redirect("yonlen.asp")
End If
%>

yonlen.asp içinede

Session("refresh")=0