Non ho capito perchè hai postato la query, dato che mi pare di capire che vuoi poter gestire la data in gg, mm e aa separati... giusto?
Prova cosi:
<%
Dim gg, mm, aa, oggi
gg = Day(Date())
mm = Month(Date())
aa = Year(Date())
oggi = gg & "/" & mm & "/" & aa
Response.Write oggi
%>
Fammi sapere.