Estimado RucarMaN, lo que querés básicamente es saber el día y el mes de la fecha actual, eso es muy simple y lo podés hacer con funciones integradas de VBScript para manipulación de fechas e incluso podés crear tu propia función. Algo así:
Function Fechar()
Dim mes, dia
dia = Day(Date)
if CInt(dia) < 10 then dia = "0" & dia
mes = Month(Date)
if CInt(mes) < 10 then mes = "0" & mes
Fechar = dia & "/" & mes
End Function
Y para lo que la querés usar podrías hacer así
Dim fechahoy
fechahoy = Fechar()
Y el select lo comparás con fechahoy, entendés?
Probalo y después me contás a ver que tal te funcionó.
