<%@ LANGUAGE="VBSCRIPT" %> <% Option Explicit %> <% Response.Buffer=True%> <% Dim script %> <% script = Request.ServerVariables("SCRIPT_NAME") %> <% Dim dmod %> <% dmod = Request.ServerVariables("HTTP_REFERER") %> <% Dim ss%> <% ss = "http://suddenoakdeath.tamu.edu"%> <%Dim pos%> <%pos = InStr(dmod, ss)%> <%dim pname%> <%pname = server.mappath (".")%> <%dim fs%> <%Set fs = Server.CreateObject("Scripting.FileSystemObject")%> <%dim count, countfile%> <%Set countfile = fs.OpenTextFile(pname & "\counter\counter.txt",1,True)%> <%count = countfile.ReadAll%> <%countfile.close%> <%set fs = nothing%> <%set countfile =nothing%> <%if (pos<>1) then%> <%Set fs = Server.CreateObject("Scripting.FileSystemObject")%> <%Set countfile = fs.OpenTextFile(pname & "\counter\counter.txt",2,True)%> <%count = count +1%> <%countfile.WriteLine(count)%> <%set fs = nothing%> <%set countfile =nothing%> <%end if%> Sudden Oak Death

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 


For technical assistance with this page contact the Technology Assisted Learning Lab at (979) 862-3449 or via e-mail at prabha@neo.tamu.edu. For more information about Sudden Oak Death at Texas A & M University, contact Dr. David Appel at 979-845-8273 or by e-mail at appel@ppserver.tamu.edu; or Sara Service at 979-587-2701 or by e-mail s-service@neo.tamu.edu