Farga befintlig dag

<% 
Function red(dag)
sDate = dateAdd("h", -7,NOW()) 
	If WeekdayName(weekday(sDate), abbreviate, 1) = dag then
		red = "<font color=""#800000""><b>" & dag & "</font></b>"
	Else
		red = dag
	End If
End function

%>
          <td width="13%" align="left"><a href="drinkSpecial.asp?day=sunday"><%=red("Sunday")%></a></td>
          <td width="13%" align="left"><a href="drinkSpecial.asp?day=monday"><%=red("Monday")%></a></td>
          <td width="14%" align="left"><a href="drinkSpecial.asp?day=tuesday"><%=red("Tuesday")%></a></td>
          <td width="16%" align="left"><a href="drinkSpecial.asp?day=wednesday"><%=red("Wednesday")%></a>  </td>
          <td width="15%" align="left"><a href="drinkSpecial.asp?day=thursday"><%=red("Thursday")%></a></td>
          
        </tr>
      </table>
    </td>
  </tr>
  <tr>
    <td width="100%"><br>
<% 

qs = request.querystring("day")
if qs = "" then
    qs = WeekdayName(weekday(date), abbreviate, 1)
end if
  
call OpenDb()

SQL = "SELECT * FROM DrinkSpecial WHERE "& qs &" = 'Y' and advertiser='Y' Order by companyName DESC"
set rs = connect.execute(SQL)
if NOT rs.eof then 
 do until rs.eof
%>
      <table border="0" width="100%" cellspacing="0" cellpadding="0">
        <tr>
          <td width="100%"><b><%=rs("companyName")%></b></td>
        </tr>
        <tr>
          <td width="100%"><%=rs("DrinksMonday")%><br><br></td>
        </tr>
      </table>
<% 
 rs.MoveNext
 loop
else
 response.write "no drink special found"
end if 
connect.close
set connect = nothing
%>

skit snyggt man tackar