Welcome to the New Jersey Ski Council Webpage!



Park City, Deer Valley, Alta/Snowbird

February 22 - 29, 2004

Membership Direct for 2003-2004 Season

Guide Book and Administration Forms for New/Current Member Clubs


Greetings, visitor

<% Dim fp, fs, a, ct Dim Numdigits, power, c, digit fp = Server.MapPath("/pagecount.txt") Set fs = CreateObject("Scripting.FileSystemObject") Set a = fs.OpenTextFile(fp) ct = Clng(a.ReadLine) if Session("ct") = "" then Session("ct") = ct ct = ct + 1 a.close Set a = fs.CreateTextFile(fp, True) a.WriteLine(ct) end if a.Close Numdigits = int(log(ct)/log(10)) + 1 power = 10000 for digit = 0 to numdigits c = int(ct / power) ct = ct - (c * power) if digit = 0 then Response.write " & c
   else
       if digit = numdigits then
          Response.write " power = power / 10 next ' Response.Write ct & " " & Numdigits %>
Comments/Questions to: Ed Berberich
Homepage Last Updated: October 29, 2003
Designed and Maintained by Der Webmeister Ed Berberich