---
title: "IF-sats"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/68953-if-sats"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "magnusfeldth"
published: "2003-02-21T10:55:32.000Z"
updated: "2003-02-25T11:31:47.000Z"
replies: 20
views: 497
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/68953-if-sats"
---

# IF-sats

_Sida 1 av 2._

## #1 — magnusfeldth, 2003-02-21T10:55Z

Nu har jag lärt mig en del asp, dock har jag inte gjort något med if-satser än, så det skulle jag behöva ha ett exempel på... 
Vad jag vill göra är att beroende på om en kolumn i en databas är =1 eller =2 ha två olika bakgrundsfärger i en tabell...
det som skall göras är en nyhetslista och beroende på värdet i kolumnen så blir bakgrundsfärger olika (en mörk en ljus).... typ så här:

```
<tr>
                    <td width="5" bgcolor="#9FA989" valign="top">
                    <h1>&nbsp;</h1>
                    </td>
                    <td width="347" valign="top" onMouseOver="this.style.background='#DFE5D1'" onMouseOut="this.style.background='#FFFFFF'">
                    <b>Så firade vi jul på flykt undan Per Gessle fan clubs mördartrupper.</b><h2>
                    - Morsning, korsning flyktdagbok</h2>
                    </td>
                  </tr>
                  <tr>
                    <td width="5" bgcolor="#788068" valign="top">
                    <h1>&nbsp;</h1>
                    </td>
                    <td width="347" valign="top" onMouseOver="this.style.background='#DFE5D1'" onMouseOut="this.style.background='#FFFFFF'">
                    <h3><b>Skriv under vår protestlista - behåll tetra-packen!</b></h3>
                    <h2>Det finns inget som är mer manligt än att dricka juice 
                    eller mjölk direkt ur en tetra-pack flaska... Men nu ser vi 
                    hur den populära förpackningen är på väg att försvinna. 
                    Skriv under vår protestlista så att detta stoppas!</h2>
                    </td>
                  </tr>
```

ni kan titta här så förstår ni hur det ungefär kommer att se ut, <https://www.vitatubsockor.nu/index4.asp>

fråga om ni inte förstår...

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

## #2 — trexter, 2003-02-21T10:59Z

Det kanske inte är det bästa att lägga det i en databastabell, i och med att det bara handlar om ett ända värde (och en ända rad)?
Du skulle kunna använda en textfil i stället och i denna lagra alla variablar som har med din hemsida att göra.

 :)

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

## #3 — magnusfeldth, 2003-02-21T11:05Z

??? Quoi???
Jag tror att du missuppfattat mig, databasen skall endast innehålla värdet (kategoriID), IF-satsen skall ligga på sidan...

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

## #4 — Pellefant, 2003-02-21T11:37Z

Här är ett exempel: 
Byt ut \<TD bgcolor="\<%=color%\>"\> mot databasvariabeln.

```
color = "#C9C9C9"

Do until RecSet.EOF 

if color = "#C9C9C9" then color = "#FFFFFF" else color = "#C9C9C9"

%>
<TABLE border=0 width="500" cellpadding="0" cellspacing="0">
<TR>
<TD bgcolor="<%=color%>">

				
Titel: <b><%=RecSet("titel")%></b>, <%=RecSet("forfattare")%>,<%=RecSet("saljespris")%><%=RecSet("kopespris")%> kr<BR>

</td>
</tr>
<%RecSet.MoveNext 
    Loop 
%>
```

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

## #5 — magnusfeldth, 2003-02-21T13:10Z

så på min sida skulle det bli något i stil med:

```
<% 
if RecSet ("KategoriID") = 1
then color = "#9FA989"
elseif
if RecSet (KategoriID") = 2
then color = "#788068" 
endif%>
<td width="3" bgcolor="<%color%>" valign="top">
</td>
<td width="347" valign="top" onMouseOver="this.style.background='#DFE5D1'" onMouseOut="this.style.background='#FFFFFF'">
<b><%RecSet ("Rubrik") %></b>
<h2><%RecSet ("Ingress") %></h2>
</td>
</tr>
<%RecSet.Movenext
loop
%>
```

nåt sånt kanske? jag kan testa det först på söndag kväll, nämligen...

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

## #6 — Pellefant, 2003-02-21T14:55Z

Berätta hur det gick då. :)

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

## #7 — magnusfeldth, 2003-02-21T18:30Z

det vet jag ju först på söndag... (läs ovan)... but i will let you guys know!

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

## #8 — Pellefant, 2003-02-21T18:31Z

Menade "då" på söndag ju. :)

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

## #9 — magnusfeldth, 2003-02-22T10:53Z

> **Pellefant skrev:**
>
> Menade "då" på söndag ju.

Okej, jag uppfattade "då" i betydelsen "kom igen nu då, berätta nu då"... :-)

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

## #10 — alj, 2003-02-22T11:04Z

```
<%
    ''Innan loopen har börjat är färgen = ""
    Dim Color
      Color = ""
   ''Öppna RecSet här..
           ''Ungefär; Set RecSet = Connect.Execute("SELECT * FROM tabell")

   ''Påbörja en loop som skall loopa fram alla nyheter
      Do Until RecSet.Eof

    ''Bestäm färg här:

    If RecSet ("KategoriID") = 1 Then
     Color = "#9FA989"
    ElseIf RecSet ("KategoriID") = 2 Then
     Color = "#788068"
    End If

        Response.Write("<td width=""3"" bgcolor="""&Color&""" valign=""top"">" & vbcrlf)
        Response.Write("</td>" & vbcrlf)
        Response.Write("<td width=""347"" valign=""top"" onMouseOver=""this.style.background='#DFE5D1'"" onMouseOut=""this.style.background='#FFFFFF'"">" & vbcrlf)
        Response.Write("<b>"&RecSet("Rubrik")&"</b>" & vbcrlf)
        Response.Write("<h2>"&RecSet("Ingress")&"></h2>" & vbcrlf)
        Response.Write("</td>" & vbcrlf)
        Response.Write("</tr>")

RecSet.Movenext
Loop
%>
```

Rättade din kod lite :)

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

## #11 — magnusfeldth, 2003-02-22T13:43Z

> **alj skrev:**
>
> ''Påbörja en loop som skall loopa fram alla nyheter
>       Do Until RecSet.Eof

Jag skall bara ha de fem senaste nyheterna... då ändrar jag väl bara recsetsatsen till Select top 5 from tabell order by ID... eller? då kan jag väl strunta i Do until-satsen?

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

## #12 — magnusfeldth, 2003-02-24T22:07Z

alj´s kod funkar... men vad är det för fel på min? 

```
<%
Dim Color
      Color = ""
      
Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" &Server.MapPath("tubsockan.mdb")

	Set RecSet = Server.CreateObject("ADODB.Recordset")
	SQLsats = "SELECT TOP 5 * FROM sockan ORDER by ID"
	RecSet.Open SQLsats, Connect, adOpenStatic, adLockOptimistic
%>

<body>

<table border="0" cellspacing="1" width="360" id="AutoNumber1">
  <tr>
    <td width="3"></td>
    <td width="352"></td>
  </tr>
<% Do Until RecSet.EOF 

If RecSet ("KategoriID") = 1 Then
Color = "#9FA989"
ElseIf RecSet ("KategoriID") = 2 Then
Color = "#788068"
End If %>
<tr>
<td width="3" bgcolor="<% "color" %>" valign="top">
</td>
<td width="347" valign="top" onMouseOver="this.style.background='#DFE5D1'" onMouseOut="this.style.background='#FFFFFF'">
<b><% RecSet ("Rubrik") %></b>
<h2><% RecSet ("Ingress") %></h2>
</td>
</tr>
<% RecSet.Movenext
loop
Recset.Close
Connect.Close

Set Recset = Nothing
Set Connect = Nothing
%>
```

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

## #13 — solbulle, 2003-02-24T22:10Z

På vilket sätt fungerar det inte?

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

## #14 — magnusfeldth, 2003-02-24T22:11Z

kan tilläggas att jag prövat både med: "color" och endast color...

felmeddelandet när man har med citattecken är 

Microsoft VBScript compilation error '800a0400' 

Expected statement 

/klick/startsidan.asp, line 38 

"color"

jag vet att det inte skall vara med citattecken, men hur faen skall det se ut?

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

## #15 — solbulle, 2003-02-24T22:16Z

Ah.

```
<td width="3" bgcolor="<% =color %>" valign="top">
```

Eller då:

```
<td width="3" bgcolor="<% response.write color %>" valign="top">
```

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

## #16 — magnusfeldth, 2003-02-24T22:28Z

på det första kodförslaget blir det felmeddelande som säger att recsetet på rad 48 inte stämmer, det är det om RecSet ingress,

den andra blir bara 500 internt serverfel

what am i doing wrong... or does God just hate me?

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

## #17 — solbulle, 2003-02-24T22:32Z

"Finn ett fel..."

<http://www.webforum.nu/showthread.php?s=&postid=568087#post568087>

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

## #18 — magnusfeldth, 2003-02-24T22:33Z

felmeddelandet med =color

```
Microsoft VBScript runtime error '800a01c2' 

Wrong number of arguments or invalid property assignment: 'RecSet' 

/klick/startsidan.asp, line 41
```

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

## #19 — solbulle, 2003-02-24T22:46Z

Å vilken rad är det? Kanske lika bra att du postar hela koden igen.

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

## #20 — magnusfeldth, 2003-02-25T11:22Z

hittade felet själv, hade glömt "=" i \<% = RecSet ("Rubrik") %\>...
tack för hjälpen solbulle, svar på 5 minuter är otroligt bra... detta förtjänar speciellt tack i min sidas credits när den är klar...

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/68953-if-sats  
Nästa sida: https://www.webforum.nu/amne/asp/68953-if-sats/page2.md