%@ 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://dist-ed.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%>
Administrative Information
College of Agriculture and Life Sciences Distance Education Guidelines
For
more information about Distance Education in the Agriculture Program,
please contact:
Distance
Learning Coordinator
Texas A&M University Agriculture Program
2586 TAMU
College Station, Texas 77843-2586
Phone: (979) 862-3449
This
page is a product of The Office of Distance Education
for the Agriculture Program.
Please report any problems you encounter while using this web page via
e-mail to ODEAG Webmaster.
Last Update:
October 27, 2006
.