---
title: "Farga befintlig dag"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/108780-farga-befintlig-dag/page2"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Gimbo"
published: "2004-08-08T18:19:59.000Z"
updated: "2004-08-11T20:45:02.000Z"
replies: 21
views: 545
page: 2
pages: 2
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/108780-farga-befintlig-dag"
---
# Farga befintlig dag
_Sida 2 av 2._
## #21 — solbulle, 2004-08-11T19:47Z
```
<%
Function red(dag)
sDate = dateAdd("h", -7,NOW())
If WeekdayName(weekday(sDate), abbreviate, 1) = dag then
red = "" & dag & ""
Else
red = dag
End If
End function
%>
| <%=red("Sunday")%> |
<%=red("Monday")%> |
<%=red("Tuesday")%> |
<%=red("Wednesday")%> |
<%=red("Thursday")%> |
<%
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
%>
| <%=rs("companyName")%> |
<%=rs("DrinksMonday")%>
|
<%
rs.MoveNext
loop
else
response.write "no drink special found"
end if
connect.close
set connect = nothing
%>
```
Permalänk: https://www.webforum.nu/p/1408668
## #22 — Gimbo, 2004-08-11T20:45Z
skit snyggt man tackar
Permalänk: https://www.webforum.nu/p/1408727
---
Tråden på webben: https://www.webforum.nu/amne/asp/108780-farga-befintlig-dag/page2
Föregående sida: https://www.webforum.nu/amne/asp/108780-farga-befintlig-dag.md
|