Con un poco de imaginación:
Código:
<%
Function dosDigitos(numero)
digito = ""
caracteres = len(numero)
if caracteres = 1 then
digito = "0" & cstr(numero)
else
digito = cstr(numero)
end if
dosDigitos = digito
End Function
dia = day(Now)
Response.Write(dosDigitos(dia))
%>
Saludos