Função que mostra a Hora:

CODE
Function Fun_Hora()
    hora = hour(now)
    minutos = minute(now)
    segundos =second(now)
    if len(hora) = 1 or hora < 10 or hora = 0 then
  hora = "0" + CStr(hora)
    end if

    if len(minutos) = 1 or minutos < 10 then
  minutos = "0" + CStr(minutos)
    end if
    if len(segundos) = 1 or segundos < 10 then
  segundos = "0" + CStr(segundos)
    end if
    Fun_Hora = CStr(hora) + ":" + CStr(minutos) + ":" + CStr(segundos)
End Function


Para usar, apenas chame no Response.Write Fun_Hora, ou <%=Fun_Hora%>

Função que mostra a Data:

CODE
Function Fun_Data()
    dia = day(now)
    mes = month(now)
    ano = year(now)
    Fun_Data = CStr(dia) + "/" + CStr(mes) + "/" + CStr(ano)
End Function


Para mostrar, use a mesma coisa da função da hora!

Uma Sub (Um procedimento) que redireciona a pagina usando Java Script

CODE
Sub redireciona(pagina)
    response.write "&lt;script>"
    response.write "window.location='"&pagina&"'"
    response.write "</script>"
End Sub


Para usar, use assim:

no meio do codigo asp, chame:

CODE
redireciona "pagina.asp"




Abraços Dark!

Função que formata data.
Exclente! Esta função lhe ajudará muito. (e quando eu digo muito, é porque é muitooo mesmo (você verá com o tempo...))

CODE
dim dd, mm, aa
Function FormataData(data)
dd = Day(data)
mm = Month(data)
aa = Year(data)

if len(dd) = 1 then dd = "0" & dd
if len(mm) = 1 then mm = "0" & mm

FormataData = CStr(dd & "/" & mm & "/" & aa)
End Function


Mostrar data usando matriz:

CODE
<%
dim meses(12)

meses(1)="Janeiro"
meses(2)="Fevereiro"
meses(3)="Março"
meses(4)="Abril"
meses(5)="Maio"
meses(6)="Junho"
meses(7)="Julho"
meses(8)="Agosto"
meses(9)="Setembro"
meses(10)="Outubro"
meses(11)="Novembro"
meses(12)="dezembro"

dim semana(7)

semana(1) ="Domingo"
semana(2) ="Segunda-Feira"
semana(3) ="Terça-Feira"
semana(4) ="Quarta-Feira"
semana(5) ="Quinta-Feira"
semana(6) ="Sexta-Feira"
semana(7) ="Sábado"


sem = weekday(date)
dia = day(date)
mes = month(date)
ano = year(date)

function diadomes(d)
nc = len(dia)
if nc < 2 then
diadomes = 0&dia
else
diadomes = dia
end if
end function

data = semana(sem)&", "&diadomes(dia)&" de "&meses(mes)&" de "&ano
%>
<hr>
<font color="333333" size=-2 face="verdana"><b><%=data%></b></font>


Aprendendo a fazer uma contagem regressiva (entre datas).

<span style='color:red'>A função datediff também tem outras rotinas como calcular diferencas de horas, minutos, segundos...</span>

exemplo:
Hora: DateDiff("h", hora1, hora2)
Minutos: DateDiff("h", hora1, hora2)
Segundos: DateDiff("s", hora1, hora2)

Bem, neste tutorial veremos como criar uma contagem regressiva para uma certa data.

<%
data1 = date() 'Pega a data atual
data2 = #30/04/2004# 'Coloca a data que você quer utilizar na contagem, neste exemplo usaremos a data de atualização do site
fdata = DateDiff("d", data1, data2)
response.write "Faltam " & fdata & " para atualização do site!!!" 'Imprime a mensagem na tela.
%>

[]'s
Victor