Código:
<%
fecha=Date-(Day(Date)-1)
for i=1 to 30
Response.Write Fecha&"<br>"
Response.Write WeekDay(fecha)&"<br>"
if WeekDay(fecha)<>7 AND WeekDay(fecha)<>1 Then
contenido=contenido &","&Day(Fecha)
End If
fecha=fecha+1
next
contenido= right(contenido,len(contenido)-1)
Response.Write "Select * from tabla where campo in("&contenido&")"
%>
Por cierto quisiera ver el código que intentaste desde la semana pasada