<% On Error Resume Next %> <% if (Request.ServerVariables("QUERY_STRING") = "") then %>
<% Session("Counter") = 1 %>

1

 <% else %>

<% =Session("Counter") %>

 <% end if %>