No entiendo muy bien, pero creo que seria así:
Código:
iddoc = request.QueryString("iddoc")
If IsDate(request.form("date")) Then
fecha = CDate(request.form("date"))
dia = day(fecha)
mes = month(fecha)
anno = year(fecha)
Else
mes = Month(Date)
anno = Year(Date)
dia = Day(date)
End If
response.write(formatdatetime(fecha,1))