Calcolo automatico su listino con date

[Ghena]

ciao a tutti.

Sto sviluppando una applicazione web di booking on line.
Devo creare un calcolo automatico su un listino in funzione di 2 date ( data_in & data_out).

per ora ho creato un calcolo automatico globale o meglio una query che prende tutti i valori dei giorni della settimana di un determinato hotel e li somma tar loro per ottenere un totale.

Set rs_2 = Server.CreateObject("ADODB.Recordset")
strSql_2="SELECT DISTINCT id_htl, lun, mar, mer, gio, ven, sab, dom, dal, al, [lun]+[mar]+[mer]+[gio]+[ven]+[sab]+[dom] AS totale FROM listino1 WHERE id_htl="& rs("id_htl")&" AND (dal<=#5/30/2005# AND al>=#6/1/2005# OR dal Between #5/30/2005# And #6/1/2005# OR al Between #5/30/2005# And #6/1/2005#)"
rs_2.open strSql_2, conn, 1, 3%>

Il problema è che lun, mar, mer , gio sono i campi del db che contengono i valori.

Come faccio a selezionare i valori della settimana in funzione delle date??

per creare la visualizzazione del time table ho creato un ciclo:

<%
Dim week_1
For week_1= CDate(data1SQL) to CDate(data2SQL) step 1 
%>
<%
dim week_2
if weekday(week_1,0)="7" then
week_2="Do"
end if
if weekday(week_1,0)="1" then
week_2="Lu"
end if
if weekday(week_1,0)="2" then
week_2="Ma"
end if
if weekday(week_1,0)="3" then
week_2="Me"
end if
if weekday(week_1,0)="4" then
week_2="Gi"
end if
if weekday(week_1,0)="5" then
week_2="Ve"
end if
if weekday(week_1,0)="6" then
week_2="Sa"
end if
%>

la cosa va...
ma per il calcolo automatico ancora non ho spunti...

potete darmi qualche dritta grazie!