Mostrar Dia Da Semana

[smez]

Todo com esse script que mostra na consulta o evento do dia de hj, certo

como que eu faço para ele mostrar somente o evento referente ao dia da semana de hj

<%

regs = 13

pag = request.querystring("pagina")

if pag = "" Then

pag = 1

end if

set rs = createobject("adodb.recordset")

set rs.activeconnection = abredb

rs.cursortype = 3

rs.pagesize = regs

SQL = "SELECT * FROM aula WHERE dia = Date() ORDER by dia, hora DESC"

rs.open sql

if rs.eof or rs.bof then

response.write "<font face='verdana' size='1'>SEM PROGRAMAÇÂO</font>"

else

rs.absolutepage = pag

contador = 0

%>

<div align="center">

<center>

<table border="0" width="97%" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" cellpadding="0">

<%do while not rs.eof and contador < rs.pagesize

if rs("dia") <> varCinema Then

varCinema = rs("dia")

%>

<tr>

<td width="100%" class=texto_branco><b><font size="4"><%=WeekDayName(WeekDay(rs("dia")))%></font></b></td>

</tr>

<%End if%>

<tr>

<td width="100%" class=texto_branco><b><%=rs("hora")%></b>

- <%=rs("nome")%></td>

</tr>

<%contador = contador +1

rs.movenext

loop%>

</table>

</center>

</div>

<%end if

rs.close

set rs = nothing

set conn=nothing%>

[raphael_suporte]

Em algum lugar do seu banco, tem mostrando o dia da semana??

[Principe]

<%do while not rs.eof and contador < rs.pagesize

If WeekDay(rs("dia"))=WeekDay(Date) Then

if rs("dia") <> varCinema Then

varCinema = rs("dia")

%>

<tr>

<td width="100%" class=texto_branco><b><font size="4"><%=WeekDayName(WeekDay(rs("dia")))%></font></b></td>

</tr>

<%End if%>

<tr>

<td width="100%" class=texto_branco><b><%=rs("hora")%></b>

- <%=rs("nome")%></td>

</tr>

<%End IF

contador = contador +1

rs.movenext

loop%>

Editado Junho 15, 2007 por Principe