<% Response.Buffer = True %> <% Set FileObject = Server.CreateObject("Scripting.FileSystemObject") HitsFile = Server.MapPath ("/analytics") & "\new_mexico_opts.txt" Set InStream= FileObject.OpenTextFile (HitsFile, 1, false ) Oldnew_mex_opts = Trim(InStream.ReadLine) Newnew_mex_opts = Oldnew_mex_opts + 1 Set OutStream= FileObject.CreateTextFile (HitsFile, True) OutStream.WriteLine(Newnew_mex_opts) %> <% Response.Redirect "http://nmoia.org/" %>