<% 'Dim Caminho 'Caminho = Server.MapPath("../dados") 'call contador(Caminho & "/albumweb.txt",1) %>  <% Dim LongaData, i, Comprimento, Virgula LongaData = FormatDateTime(Date, 1) Comprimento = Len(LongaData) For i=1 to Comprimento Virgula = Left(LongaData, i) if Right(Virgula, 1) = "," then Exit For Next Response.Write(UCase(Left(Virgula, 1))) Response.Write(Right(Virgula,Len(Virgula) - 1)) Response.Write("
") Response.Write(Mid(LongaData,Len(Virgula) + 2,Len(LongaData) - Len(Virgula) - 9)) Response.Write("
") Response.Write(Right(LongaData, 7)) %> .