Ogni tanto facciamo un piccolo sforzo di ricerca.......la rete è ricca di risorse, per rispondere a te io stesso ho guardato qui , e poi qui , il tutto partendo da qui

Puoi fare per esempio
codice:
<% 
Dim Data, giorno, mese, anno 

Data = Date() 

'Per restituire il giorno 
giorno = Day(Data) 

'Per restituire il mese 
mese = Month(Data) 

'Per restituire l'anno 
anno = Year(Data)
%>
Uno dei tanti modi di usare queste variabili è creare una funzione:
codice:
function formatta_data(data)
	new_data = Day(data)&"/"&Month(Data)&"/"&Year(Data)
	formatta_data = new_data
end function
e poi applicarla così
codice:
data_formattata = formatta_data(rs("data"))
dove rs("data") è il campo "data" della tua tabella, estratto con una query di select e contenuto nel recordset "rs"