Menú del Web de Padiernos

<% MyFile = Server.MapPath( "Counter.txt" ) Set FileObject = CreateObject("Scripting.FileSystemObject") 'Read hits number Set InStream = FileObject.OpenTextFile(MyFile, 1, true) 'If file exists If not InStream.atEndOfStream Then total = CInt(Instream.ReadLine) + 1 else total = 1 end if Instream.Close set instream = Nothing 'Update number of hits Set OutStream = FileObject.OpenTextFile(MyFile, 2, true) Outstream.WriteLine total Outstream.Close set OutStream= Nothing set FileObject = Nothing %>


Página de Inicio
	Situación
	Historia
	Turismo rural
	"Villa Paterna"
	Padiernautas
	Actos y festejos
	Museo Etnográfico
	Foro
Nuestros vecinos

F-11 Vista panorámica.... ;.-) Ctrl + D Agregar a favoritos... ;.-)


	<% Response.Write("Total Visitas " & total ) %> Total visitas 78