....Invítenos a su próxima celebración.
| Derechos Reservados Festejos y Montajes. Powered by Sintegrac. |
Centro Comercial Gran Plaza Km.14.4
Carr. a El Salvador Bodega 303
Tel: .5899 - 1484.
.6685 - 2548.
....Invítenos a su próxima celebración. |
|||||||
|
|||||||
|
Centro Comercial Gran Plaza Km.14.4 Carr. a El Salvador Bodega 303 Tel: .5899 - 1484. .6685 - 2548. |
||||||
| <% on error resume next ' Creamos el objeto set fso = createobject("scripting.filesystemobject") ' Seteamos el archivo txt set act = fso.opentextfile(server.mappath("asp_count.txt")) ' Leemos el valor del archivo counter = clng(act.readline) ' Sumamos uno a ese valor counter = counter + 1 ' Cerramos el objeto act.close ' Creamos un nuevo archivo de texto Set act = fso.CreateTextFile(server.mappath("asp_count.txt"), true) ' Escribimos el nuevo valor del contador act.WriteLine(counter) ' Cerramos el objeto act.Close- ' Y decimos la cantidad de visitas Response.Write "Eres el visitante Nš: " & counter %> | |||||||