") Response.Write(Mid(LongaData,Len(Virgula) + 2,Len(LongaData) - Len(Virgula) - 9)) Response.Write("
") Response.Write(Right(LongaData, 7)) %> .
| <% '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)) %> . |