---
title: "konstigt fel med if-sats"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/40611-konstigt-fel-med-if-sats"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "ampy"
published: "2002-04-01T10:16:46.000Z"
updated: "2002-04-01T11:21:40.000Z"
replies: 5
views: 236
page: 1
pages: 1
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/40611-konstigt-fel-med-if-sats"
---

# konstigt fel med if-sats

## #1 — ampy, 2002-04-01T10:16Z

Min If-sats:

```

If aDagar((iRaderLoop-1)*7 + iKolumnerLoop) = Day(Date()) Then 

bgcolor3 = "#FFFFFF"

Else 

bgcolor3 = "#FFF7CF"

End If
```

På denna If-sats får jag detta felmeddelandet:

```
Feltyp:
Körningsfel i Microsoft VBScript (0x800A01F4)
Odefinierad variabel: 'bgcolor3'
```

Mer sammanhängade kod:

```
<%

 
Dim SQL
SQL = "SELECT * FROM kalender WHERE Manad = "& Month(dbDatum)&"  AND Ar = "& Year(dbDatum) &" ORDER BY Dag ASC"

Recset.Open SQL, Connect, 1, 2

%>
  <%
 
Dim iAntalInbokningar
dim datumet
iAntalInbokningar = 0

Dim iRaderLoop, iKolumnerLoop
 For iRaderLoop = 1 to iRader
   Response.Write "<tr>"
   For iKolumnerLoop = 1 to iKolumner
     If aDagar((iRaderLoop-1)*7 + iKolumnerLoop) > 0 Then
    

If aDagar((iRaderLoop-1)*7 + iKolumnerLoop) = Day(Date()) Then 

bgcolor3 = "#FFFFFF"

Else 

bgcolor3 = "#FFF7CF"

End If

       
       Response.Write "<td style='BORDER-BOTTOM: #FFFFFF 2px solid; BORDER-TOP: #000000 0px solid; BORDER-RIGHT: #FFFFFF 2px SOLID; BORDER-LEFT: #000000 0px solid' valign=top bgcolor=#FFFFFF align=right width=""14%"" & height=" & FormatPercent(1/iRader,0) & ">"
       Response.Write "<table cellspacing=0 cellpadding=0 border=0 " & "width=""100%"">"

       Response.Write "<tr><td align=right valign=top><b>"
       Response.Write "<b>"
       Response.Write aDagar((iRaderLoop-1)*7 + iKolumnerLoop)
       Response.Write "</b>"
       Response.Write "</b></td></tr>"

   If Not Recset.EOF Then
     If Recset("Dag") = aDagar((iRaderLoop-1)*7 + iKolumnerLoop) Then

       Response.Write "<tr  height=""100%""><td valign=top align=center>"
       Response.Write "<font size=1 face=verdana>"%>
              <a href="javascript:show('show.asp?ar=<%=RecSet("Ar")%>&manad=<%=RecSet("Manad")%>&dag=<%=RecSet("Dag")%>');">Händelser</a>
       <%iAntalInbokningar  = iAntalInbokningar + 1

       Response.Write "</font>"        
       Response.Write "</td></tr>"

     End If
    End If

    Response.Write "</table>"
    Response.Write "</td>"
    Else
        Response.Write "<td  bgcolor=#ffffff>&nbsp;</td>"
    End If
  Next

  Response.Write "</tr>"
Next

%>

</table>
```

Vad kan det vara för fel?

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

## #2 — solbulle, 2002-04-01T10:38Z

Om inte din första If-sats uppfylls kommer du inte in i loopen så att bgcolor3 kan få ett värde. Pröva att lägga in:

bgcolor3 = "#FFFFFF"

någonstans högt uppe på sidan (typ där du dimmar din sql) för att se om det kan vara det som är felet.

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

## #3 — ampy, 2002-04-01T11:06Z

Har lagt den på alla möjliga ställen men inget fungerar.

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

## #4 — @nders, 2002-04-01T11:16Z

Om du har med option explicit så måste du dim:a alla variabler.
Felmeddelandet tyder på det.

Alltså: **Dim bgcolor3** på lämpligt ställe.

Mvh,

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

## #5 — ampy, 2002-04-01T11:17Z

Har löst problemet, gjorde om en rad till så här:

```
<td style="BORDER-BOTTOM: #FFFFFF 2px solid; BORDER-TOP: #000000 0px solid; BORDER-RIGHT: #FFFFFF 2px SOLID; BORDER-LEFT: #000000 0px solid" valign=top bgcolor="#<%If aDagar((iRaderLoop-1)*7 + iKolumnerLoop) = Day(date()) Then%>FFFFFF<%else%>FFF7CF<%End If%>" align=right width="14%" height=<%=FormatPercent(1/iRader,0)%>>
```

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

## #6 — ampy, 2002-04-01T11:21Z

Tack @nders, jag använder ursprungskoden istället och lägger till

dim bgcolor3

 :birp

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/40611-konstigt-fel-med-if-sats