[Resolvido] Interação com calendário

[vega! 0]

Oi gente, gostaria de saber se existe um script que altere a cor em função do calendário do Windows

Exemplo - Se a data do calendário > data do campo + 30 , Font Color = red

 

Obrigado

[vega! 0]

<%

'Declarando variáveis

Dim data1, data2, Ddata

 

data1 = #17/06/2007# 'Data Definida ---- O QUE DEVO COLOCAR AQUI PARA QUE A DATA SEJA IMPORTADA DO MEU BANCO DE DADOS ACESS ?data2 = date() 'Pega Data Atual

 

'Conta a quantidade de dias de diferença entre Data Atual e Data Definida

Ddata = DateDiff("d", data1, data2)

 

'Se fdata for menor ou igual a três, entra na rotina programada

if Ddata >= 3 then

response.write "Entra em rotina programada."

Else

response.write "Fica fora da rotina programada."

End if

%>

[vega! 0]

Oi gente,

Consegui resolver o caso

 

O código está abaixo:

 

<%

'Declarando variáveis

Dim data1, data2, Ddata

 

data1 = (Recordset1.Fields.Item("endereco").Value) 'Data Definida <--- o campo endereço é o campo que eu estou pegando )

data2 = date() 'Pega Data Atual

 

'Conta a quantidade de dias de diferença entre Data Atual e Data Definida

Ddata = DateDiff("d", data1, data2)

 

'Se fdata for menor ou igual a três, entra na rotina programada

if Ddata >= 30 then

response.write "<font color=red>ATENÇÃO </font>"

Else

response.write ""

End if

%>