Rolmovil S.L. Fabricación accesorios automóvil

<% dim numero_actual set FSO = Server.CreateObject("Scripting.FileSystemObject") set Fich = FSO.OpenTextFile(Server.MapPath("contador.txt"),1) numero_actual=cint(Fich.ReadLine) Fich.Close set Fich = nothing set Fich = FSO.OpenTextFile(Server.MapPath("contador.txt"),2) numero_actual=numero_actual + 1 Fich.Writeline(numero_actual) Fich.Close set Fich = nothing %>

This text is replaced by the Flash movie.