Data Automatica em ASP

<%
'Variaveis declaradas
Dim DiaSemana       
Dim DiaMes 
'Valores das variaveis
  DiaSemana = WeekDay(date) 'Aqui eu troco o valor do codigo interno do ASP "WeekDay(date)" por "DiaSemana"
  DiaMes = Date 'Aqui eu defino o valor da variavél "DiaMes" que é mostrar a data, "date" 
' Aqui executa as variaveis com seus devidos valores  
If DiaSemana = 1 Then
  response.write "Hoje é: Domingo, dia: "& DiaMes
ElseIf DiaSemana = 2 Then
  response.write "Hoje é: Segunda-feira, dia: "& DiaMes
ElseIf DiaSemana = 3 Then
  response.write "Hoje é: Terça-feira, dia: "& DiaMes
ElseIf DiaSemana = 4 Then
  response.write "Hoje é: Quarta-feira, dia: "& DiaMes
ElseIf DiaSemana = 5 Then
  response.write "Hoje é: Quinta-feira, dia: "& DiaMes
ElseIf DiaSemana = 6 Then
  response.write "Hoje é: Sexta-feira, dia: "& DiaMes
Else
  response.write "Hoje é: Sábado, dia: "& DiaMes
End If
' Fim do bloco de codigo
' Nao remova os creditos! se voce quer remover vai aprender e faça o seu! 
' Créditos para Henrique 
%>