---
title: "Ändra bakgrundsfärg beroende på tid"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/70151-ändra-bakgrundsfärg-beroende-på-tid"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "sven"
published: "2003-03-05T14:22:07.000Z"
updated: "2003-03-05T23:08:50.000Z"
replies: 25
views: 483
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/70151-ändra-bakgrundsfärg-beroende-på-tid"
---

# Ändra bakgrundsfärg beroende på tid

_Sida 1 av 2._

## #1 — sven, 2003-03-05T14:22Z

Jag har finurlat på ett litet bokningssystem för datorerna på min fritidsgård. För att sen visa vilka datorer som är upptagna och när, har jag följande script:

```
<%
Server.ScriptTimeout=600
%>
<html>
<head>
<meta http-equiv="refresh" content="5;URL=ofentlig_copy(1).asp">
<!-- #include file="puconnection.asp" -->
<!-- #include file="text2.css" -->
<title>Databokning</title>
</head>
<body>
<%
on error resume next
DagensDatum = Date
Nu = Time 
%>
<table border="1" cellpadding="0" style="border-collapse: collapse" bordercolor="#111111" cellspacing="0" height="67">
  <tr>
    <th width="714" colspan="5" height="27"><font size="6" face="Berlin Sans FB"><% = DagensDatum %>&nbsp;&nbsp;&nbsp;&nbsp;Klockan är nu <% = FormatDateTime(Nu,4) %></font></th>
  </tr>
  <tr>
    <th width="87" height="19"><font size="6" face="Berlin Sans FB">Tid</font></th>
    <th width="150" height="19"><font size="6" face="Berlin Sans FB">Mia</font></th>
    <th width="150" height="19"><font size="6" face="Berlin Sans FB">Monica</font></th>
    <th width="150" height="19"><font size="6" face="Berlin Sans FB">Thorsten</font></th>
    <th width="150" height="19"><font size="6" face="Berlin Sans FB">Ronny</font></th>
  </tr>
<%  
SQL = " SELECT ddatum, ddator, namn, ttid FROM bokning WHERE ddatum = Date() ORDER BY ddatum"
set rs = db.Execute(SQL)

Tid = #16:15#
while Tid <= #21:35#
NewTime = Tid
strMia = "&nbsp;"
strMonica = "&nbsp;"
strThorsten = "&nbsp;"
strRonny = "&nbsp;"
strBack = "FFFFFF"
strVisatid = FormatDateTime(Tid,4)

rs.movefirst
while not rs.eof

datornamn = rs("ddator")  
strNamn = rs("namn")
bokadTid = FormatDateTime(rs("ttid"),4)
jmfTid = FormatDateTime(Tid,4)
if datornamn = "Mia" AND bokadTid = jmfTid then strMia = strNamn    
if datornamn = "Monica" AND bokadTid = jmfTid then strMonica = strNamn    
if datornamn = "Thorsten" AND bokadTid = jmfTid then strThorsten = strNamn    
if datornamn = "Ronny" AND bokadTid = jmfTid then strRonny = strNamn    
rs.movenext
wend
%>  
  <tr>
    <td width="87" height="19" bgcolor="#<% = strBack %>"><font size="5">&nbsp;<% = strVisatid %></font></td>
    <td width="150" height="19" bgcolor="#<% = strBack %>"><font size="5">&nbsp;<% = strMia %></font></td>
    <td width="150" height="19" bgcolor="#<% = strBack %>"><font size="5">&nbsp;<% = strMonica %></font></td>
    <td width="150" height="19" bgcolor="#<% = strBack %>"><font size="5">&nbsp;<% = strThorsten %></font></td>
    <td width="150" height="19" bgcolor="#<% = strBack %>"><font size="5">&nbsp;<% = strRonny %></font></td>
  </tr>
<%
Tid = dateadd("n",30,Tid)
wend  
%>  
</table>

</body>
</html>
```

 

Funkar precis som det skall. Kan bara vara krångligt att hålla reda på vilken tid som gäller just nu. Skulle därför vilja markera aktuell tid strBack.
Men jag får inte till det... alls
Har funderat på
if strVisatid = någonting??
strBack = "FFFFCC" 
end if

Någon lösning någon?

Permalänk: https://www.webforum.nu/p/70151

## #2 — Engine^, 2003-03-05T14:28Z

Vad vill du göra sa du? Vilken tid ska du jämföra med?

Permalänk: https://www.webforum.nu/p/968632

## #3 — sven, 2003-03-05T14:34Z

Så här ser det ut nu
<http://www.uk-fjallet.se/ofentlig.asp> 

Vad jag vill är att aktuell tid skall markeras med annan färg.

Permalänk: https://www.webforum.nu/p/968634

## #4 — solbulle, 2003-03-05T14:46Z

En liten reflektion, känns ganska onödigt imho att uppdarea var 5:e sek.

Permalänk: https://www.webforum.nu/p/968637

## #5 — sven, 2003-03-05T14:47Z

Kanske det... men det är ju bara att ändra om man så vill. Till 10 eller så... :)

Permalänk: https://www.webforum.nu/p/968638

## #6 — Engine^, 2003-03-05T15:01Z

```
If strVisaTid = FormatDateTime(Now, 4) Then
  strBack = "FFFFCC"
Else
  strBack = "FFFFFF"
End If
```

Permalänk: https://www.webforum.nu/p/968650

## #7 — sven, 2003-03-05T15:06Z

ne.... det vill sig inte.... blir inte det minsta gult :)

Permalänk: https://www.webforum.nu/p/968653

## #8 — Engine^, 2003-03-05T15:08Z

```
If CDate(strVisaTid) = FormatDateTime(Now, 4) Then
```

Kanske?

Permalänk: https://www.webforum.nu/p/968656

## #9 — sven, 2003-03-05T15:16Z

nepp.... inte det heller....

Permalänk: https://www.webforum.nu/p/968660

## #10 — sven, 2003-03-05T15:21Z

Om jag gör så här

```
If strVisatid = FormatDateTime(Now, 4) OR strVisatid < FormatDateTime(Now,4) Then
```

 
så är det lite närmare lösningen. Då fär den nuvarande tiden men tyvärr alla tidigare tider, gul färg.

Permalänk: https://www.webforum.nu/p/968662

## #11 — Engine^, 2003-03-05T15:34Z

Givetvis... jag som är dum :r

tidNu = FormatDateTime(Now, 4)

```
If tidNu >= Tid And DateAdd("n", 30, (Tid)) <= Tid Then
```

Nu är jag lite osäker på om du måste dra bort 30 minuter från tid, eftersom det görs en DateAdd på Tid, men jag tror att paranteserna runt ska förhindra att variabeln ändras. Du kommer att märka det ;)

Permalänk: https://www.webforum.nu/p/968667

## #12 — Palle, 2003-03-05T15:34Z

Gör ett frest jag med, testa detta: :) 

```
[RED]<%

strActualTime = FormatDateTime(Now, 4)
strInterval1 = FormatDateTime(DateAdd("n", -15, strVisaTid),4)
strInterval2 = FormatDateTime(DateAdd("n", +15, strVisaTid),4)

If strActualTime > strInterval1 AND strActualTime < strInterval2 Then strBack = "FFFFCC" Else strBack = "FFFFFF"

%>[/RED]
```

Permalänk: https://www.webforum.nu/p/968668

## #13 — sven, 2003-03-05T15:43Z

Ahhh... Palle... du är en stjärna
nu funkar det som det skall :)

Permalänk: https://www.webforum.nu/p/968671

## #14 — Palle, 2003-03-05T15:46Z

np  :bire

Permalänk: https://www.webforum.nu/p/968672

## #15 — sven, 2003-03-05T16:07Z

nepp... tiden blev inte riktigt riktig
Nu byter den på hel och inte på kvart i och kvart över som den skall... hmmm

Permalänk: https://www.webforum.nu/p/968679

## #16 — Engine^, 2003-03-05T16:24Z

Ändra 15 och -15 till 16 och -16

Eller sätt \>= och \<= i If-satsen.

Permalänk: https://www.webforum.nu/p/968687

## #17 — sven, 2003-03-05T16:34Z

ne... inte då.... :(

Permalänk: https://www.webforum.nu/p/968691

## #18 — Engine^, 2003-03-05T16:39Z

Testade du min variant? 

```
dteNu = FormatDateTime(Now, 4)

If dteNu >= Tid And dteNu <= DateAdd("n", 30, (Tid)) Then
```

Permalänk: https://www.webforum.nu/p/968693

## #19 — Sebbe, 2003-03-05T16:41Z

Ska det inte vara

```
<%

strActualTime = FormatDateTime(Now, 4)
strInterval1 = FormatDateTime(DateAdd("n", -15, strActualTime),4)
strInterval2 = FormatDateTime(DateAdd("n", +15, strActualTime),4)

If strActualTime > strInterval1 AND strActualTime < strInterval2 Then strBack = "FFFFCC" Else strBack = "FFFFFF"

%>
```

om du använder Palles script?

Permalänk: https://www.webforum.nu/p/968694

## #20 — sven, 2003-03-05T16:42Z

jepp... den ville sig inte den heller... blev inget gult alls ....

Permalänk: https://www.webforum.nu/p/968695

---

Tråden på webben: https://www.webforum.nu/amne/asp/70151-ändra-bakgrundsfärg-beroende-på-tid  
Nästa sida: https://www.webforum.nu/amne/asp/70151-ändra-bakgrundsfärg-beroende-på-tid/page2.md