%@ LANGUAGE="VBSCRIPT" %> <% Response.Expires = 0 Response.Buffer = True %> <% Dim t, m, i 'Inserir Cabecalho vbs_Write "" vbs_Write "