<% 'open a text document a read the top line for 'the current hit count set fso = createobject("scripting.filesystemobject") set act = fso.opentextfile(server.mappath("asp_count-lg.txt")) counter = clng(act.readline) 'add one to the current count counter = counter + 1 act.close 'write a new text object with the same name 'and new hit count Set act = fso.CreateTextFile(server.mappath("asp_count-lg.txt"), true) act.writeline(counter) act.close ' grab the length of the counter lon1 = len(counter) select case lon1 case 1 counter= "0000" & counter case 2 counter= "000" & counter case 3 counter= "00" & counter case 4 counter= "0" & counter case 5 counter= counter end select counter_length = len(counter) 'loop through the hit count number by 'number and display the appropriate image 'for each numeric in the hit count %> Untitled Document
abcedefghoijdjjkljlk aslklkjl lj a lsd[qwe[qowe[qo smlkmd lamdlkamdla sdlamd i jdkjalkdmjlasdkj alsd;asdk[ dk[qpw[qpwel[qple[pqlas dasdk;aldk;a dsa d;lakd ;akld;adk;a qwjdjkasd d asjkmasdnkashdla sdkmnwqpqpio w qwsq iopwjq wdsmq aiodsjq;wldk[akdpa.

dhkjhdjhkadhkadaks wqiqwqpoqpwoeiqwpeq qpowepqowpo dspaokdsp lpadjko a sdjoaijdoadjoadijoasdj qewdqwpq [woq[pdsoqapoa[pd[a pdo[adp[asd as[doas[dpoa[sdpoa[sdopa[d pad[ .
<% for i = 1 to counter_length %> <% next %>
UD es el visitante# ::
  
SUGERENCIAS :: CATALOGO :: CONTACTO