---
title: "Farga befintlig dag"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/108780-farga-befintlig-dag"
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: 1
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 1 av 2._
## #1 — Gimbo, 2004-08-08T18:19Z
tja,
jag har gjort som sa att jag listar man, till torsdag i en tabell:
mon, tis, ons, tors och alla dassa dagar e qs lankar, det jag vill e att da det e mandag sa skall mandag fargas rott och att mandagens innehall skrivs ut, dvs befintlig dags innehall skriv ut
Permalänk: https://www.webforum.nu/p/108780
## #2 — @nders, 2004-08-08T18:29Z
```
If day(dteDate) = dte(Date) then
' gör rödfärg och skriv ut prylar
End if
```
Permalänk: https://www.webforum.nu/p/1403989
## #3 — Gimbo, 2004-08-08T23:39Z
```
<% If day(dteDate) = dte(Date) then %>
| Sunday |
Monday |
Tuesday |
Wednesday |
Thursday |
<%end if%>
```
hur skall programmet veta vad o nar den skall farga rott?? sedan sa befinner sig sidan i en server i sverige och sidan e amerikansk, dvs 7h tidszoner ifran,,, hur skall det ga till??
Permalänk: https://www.webforum.nu/p/1404176
## #4 — M.Cheraghi, 2004-08-09T00:50Z
För att visa Amerikansk tid, på en server som har svensk tid inställt! Är det verkligen 7 timmar? har för mig att det är 6 timmar, men ändra till -7 istället för -6 om det är fel :)
```
DateAdd("h", -6, now())
```
För att skriva ut datumen för Amerikansk standard, 1033 eller 1034, minns inte riktigt vilket utav dom som var USA, återkommer med det :)
```
<% Session.LCID = 1033 %>
```
Edit: 1033 är USA's datumvisningsstandard, utifall du skulle behöva det av någon anledning. :)
Permalänk: https://www.webforum.nu/p/1404194
## #5 — solbulle, 2004-08-09T01:40Z
Typ:
```
For i = 1 to 4
If Weekday(date(), 2) = Weekday(i, 2) then
response.write "" & WeekdayName(i, abbreviate, 2) & " | " & vbcrlf
Else
response.write "" & WeekdayName(i, abbreviate, 2) & " | " & vbcrlf
End If
Next
```
Eller en funktion:
```
<% Session.LCID = 1033 %>
<%
Function red(dag)
If WeekdayName(weekday(date()), abbreviate, 1) = dag then
red = "" & dag & ""
Else
red = dag
End If
End function
%>
<% =red("Sunday")%> |
<% =red("Monday")%> |
<% =red("Tuesday")%> |
<% =red("Wednesday")%> |
<% =red("Thursday")%> |
```
Permalänk: https://www.webforum.nu/p/1404198
## #6 — Gimbo, 2004-08-09T08:00Z
ok, det blev snyggt, solbulles andra alternativ, men jag vill att befintlig das poster skrivs ut oxo, just nu skrivs de inte ut, jag maste klicka pa en lank for att fa de visade
Permalänk: https://www.webforum.nu/p/1404250
## #7 — solbulle, 2004-08-09T14:53Z
Du kan göra på samma sätt med det. Tex med en funktion eller i den befintliga funktionen. (Beroende på vad och var du ska skriva ut det.)
Jag antar att det ligger i en databas, hämta den post du ska med hjälp av de funktioner vi bollat med här.
Permalänk: https://www.webforum.nu/p/1404491
## #8 — Gimbo, 2004-08-09T19:45Z
hmm... vill inte att den texten skall vara rod, utan jag vill bara att programmet skriver ut befintlig dags innehall, e det ngt som man bestammer i sql satsen?
Permalänk: https://www.webforum.nu/p/1407463
## #9 — Jesper T, 2004-08-10T06:18Z
> **Gimbo skrev:**
>
> e det ngt som man bestammer i sql satsen?
Japp. Mer kod kanske?
Permalänk: https://www.webforum.nu/p/1407626
## #10 — Gimbo, 2004-08-10T09:31Z
```
<% if request.querystring("day") = "monday" then
call OpenDb()
SQL = "SELECT * FROM DrinkSpecial WHERE monday ='Y' and advertiser='Y' Order by companyName DESC"
set rs = connect.execute(SQL)
if NOT rs.eof then
do until rs.eof
%>
```
sa har gor jag med alla dagar i veckan.. sedan ser lankarna ut som ovan
Permalänk: https://www.webforum.nu/p/1407698
## #11 — Jesper T, 2004-08-10T09:37Z
Och vad är problemet?
Permalänk: https://www.webforum.nu/p/1407702
## #12 — Gimbo, 2004-08-10T21:23Z
jag kor denna querystring for varje dag pa veckan, och vill att da det ar mondag sa skall mondagens querystring skrivas ut pa sidan som default, om det ar tisdag sa skall tisdag va som default,,, just nu skrivs ingenting ut forutom veckodagarna och den bbefintliga veckodagen e fargad, dvs det stammer, men jag saknar utskrift for befintlig veckodag.
Permalänk: https://www.webforum.nu/p/1408073
## #13 — solbulle, 2004-08-10T21:32Z
Menar du att du har sju stycken block likt det där?
Är det inte bättre att köra ett block, då skriver du endast ut om just den dag det är.
```
<% if request.querystring("day") <> "" then
call OpenDb()
SQL = "SELECT * FROM DrinkSpecial WHERE " & request.querystring("day") & " ='Y' and advertiser='Y' Order by companyName DESC"
set rs = connect.execute(SQL)
if NOT rs.eof then
do until rs.eof
%>
```
/red. lite svammel.
Permalänk: https://www.webforum.nu/p/1408078
## #14 — Gimbo, 2004-08-11T05:38Z
den koden reducerade en hel del kod, men loste inte problemet. alltsa sa har ligger det till, da jag laser in filen drinkSpecial.asp sa listar den ut veckodagarna (och endast veckodagarna) jag maste klicka pa befintlig veckodag for att fa ut dess innehall ur databasen, jag vill namligen att programet automatiskt skall veta vad det e for dag och skriva ut den, om det exempelvis e mandag sa skall mandagens innehall skrivas ut:
sa har ser hela min kod ut nu
```
<% if request.querystring("day") <> "" then
call OpenDb()
SQL = "SELECT * FROM DrinkSpecial WHERE "&request.querystring&" ='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
end if
%>
```
Permalänk: https://www.webforum.nu/p/1408174
## #15 — Jesper T, 2004-08-11T06:16Z
Lägg till något liknande
```
qs = request.querystring("day")
if qs = "" then
qs = WeekdayName(weekday(date), abbreviate, 1)
end if
...
SQL = "SELECT * FROM DrinkSpecial WHERE "& qs &" ='Y'...
```
Permalänk: https://www.webforum.nu/p/1408185
## #16 — Gimbo, 2004-08-11T09:27Z
nope funka inte...
Permalänk: https://www.webforum.nu/p/1408255
## #17 — Jesper T, 2004-08-11T09:29Z
Och som alltid; vad fungerade inte, felmeddelande etc.. ;)
Permalänk: https://www.webforum.nu/p/1408257
## #18 — Gimbo, 2004-08-11T19:20Z
och som alltid i detta fall sa skriver den fortafarnde ut veckodagarna men inte innehallet ;)
Permalänk: https://www.webforum.nu/p/1408642
## #19 — solbulle, 2004-08-11T19:27Z
Och hur ser koden ut nu då?
Permalänk: https://www.webforum.nu/p/1408647
## #20 — Gimbo, 2004-08-11T19:44Z
hela koden ser ut sa har:
```
<%
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
if request.querystring("day") <> "" then
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
end if
%>
```
Permalänk: https://www.webforum.nu/p/1408663
---
Tråden på webben: https://www.webforum.nu/amne/asp/108780-farga-befintlig-dag
Nästa sida: https://www.webforum.nu/amne/asp/108780-farga-befintlig-dag/page2.md
|