Script ASP - Counters: Counter with file - Morpheusweb.it - Webmaster resources: programming, asp script, using asp, file asp, asp, asp post, database asp, asp login, vb asp, asp access, asp download, asp script, formmail, area riservata, paginazione, scripts asp, mailform, asp script download

ABOUT >
WORKS >
CONTACT ME >
>

Home Page
> Script ASP
> Script ASP Counters
> Counter with file

Counter with file

Click counter on a determined link.
It memorizes the information on the clicks in a text file.



					
					<a href="contaclick.asp?code=counter&url=http://www.link_alla_pagina.com">Click here </a> 

					<% 

					MyFile = Server.MapPath( Request.Querystring ("coe") &".txt" ) 

					'write data in counter.txt file 

					Set FileObject = CreateObject("Scripting.FileSystemObject") 

					on error resume next 

					Set InStream = FileObject.OpenTextFile(MyFile, 1, true) 

					totali = CInt(Instream.ReadLine) + 1 

					Instream.Close 

					set instream = Nothing 

					Set OutStream = FileObject.OpenTextFile(MyFile, 2, true) 

					Outstream.WriteLine totali 

					Outstream.Close 

					Set OutStream = Nothing 

					set FileObject = Nothing 

					Response.Redirect ( Request.QueryString("url") ) 

					%>