<% janela = Time() janela = CStr(janela) janela = Lcase(janela) janela = Replace(janela,"pm","") janela = Replace(janela,"am","") janela = Replace(janela,":","") janela = Replace(janela," ","") If verifica_status = True Then Response.Write "" Response.Write "" Response.Write "" Else Response.Write "" Response.Write "" Response.Write "" End If Set janela = Nothing %>