<% set fso = createobject("scripting.FileSystemObject") contadortxt = server.mappath("/puentefierros/contador/contador.txt") set fileread=fso.OpenTextFile(contadortxt,1,False) contador = FileRead.ReadLine set FileWrite=fso.OpenTextFile(contadortxt,2,False) contador = contador + 1 FileWrite.WriteLine (contador) FileWrite.Close FileRead.Close Set FileWrite = Nothing Set FileRead = Nothing Set Fso = Nothing cantdigitos = 6 cantcont=Len(contador) For i = 1 to cantdigitos - cantcont contador="0" & contador Next For i=1 to cantdigitos numero=Mid (contador,i,1) cantidad=cantidad & "" Next %> Transformados metálicos. Puente Fierros. Siero. Asturias.
Saltar Intro
<%=cantidad%>
Empresa de diseño web. Posicionamiento web y turismo rural en Asturias
©
www.NegocioAstur.com - AulaNet Informática
Turismo Rural Asturias