|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
<%
Set fs = CreateObject("Scripting.FileSystemObject")
Wfile=server.mappath("Aspcount.txt")
on error resume next
Set a = fs.OpenTextFile(Wfile)
hits = Clng(a.ReadLine)
hits = hits + 1
a.close
if error then
hits = 1
end if
Set a = fs.CreateTextFile(Wfile,True)
a.WriteLine(hits)
a.Close
%>
You are visitor number :
<% =hits %>
| Other ElectroChemistry Resources |
 |
 |
 |
 |
 |
| Search : |
| GO |
|
Home | About Us | Objectives | Symposia | Workshops Awards | Contact Us | Newsletters | Upcoming Events | Members Directory |
|
Site best viewed with screen resolution of 800 x 600 pixels. Powered By --- Arya Web Services data recovery training india data recovery india Shared Hosting Mumbai |
