---
title: "Varför funkar inte detta?"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/63124-varför-funkar-inte-detta"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "KoTTeN"
published: "2002-12-27T02:37:23.000Z"
updated: "2002-12-27T15:54:00.000Z"
replies: 3
views: 267
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/63124-varför-funkar-inte-detta"
---

# Varför funkar inte detta?

## #1 — KoTTeN, 2002-12-27T02:37Z

Har gjort en loop som ska loppa ut en månads alla dagar i en select. Under varje loop ska man kolla om värdet i Dagar är densamma som den aktuela i loopen. Om det är så ska denna bli selected. Kolla koden:

```
Dagar = Right(RecSet("AnvAlder"),2)

Do Until DagLoop = 31
DagLoop = DagLoop + 1
If Dagar = DagLoop Then
Response.Write("<OPTION SELECTED VALUE=""" & DagLoop & """>" & DagLoop & "</OPTION>") & vbCrLf 
End If
Response.Write("<OPTION VALUE=""" & DagLoop & """>" & DagLoop & "</OPTION>") & vbCrLf 
Loop
```

Men det blir ingen selected. Och jag försår inte riktigt varför, testade att skriva ut variabeln Dagar och fick fram 29, vilket är rätt. (Sorterade ut rätt ur rs 1984-05-29) 

Så då testade testade jag att ändra 

```
Dagar = Right(RecSet("AnvAlder"),2)
```

 emot

```
Dagar = 29
```

 

Och då blev dag 29 selectad. Men det innehåller ju samma värde som förut? Eller? Någon som vet vad som kan vara fel?

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

## #2 — jupiters, 2002-12-27T04:45Z

Dagar = Right(RecSet("AnvAlder"),2

Ovanstående gör variabeln Dagar till en sträng som innehåller texten "29".
Gör om till numerisk variabel med Dagar=CInt(Dagar) eller 'lura" vbscipt genom att bara skriva Dagar=Dagar+0.

Enklast är väl:  Dagar = CInt(Right(RecSet("AnvAlder"),2))

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

## #3 — OveRRidE, 2002-12-27T09:45Z

Saknas det inte ett else här någonstans? Även om du Dagar och Dagloop har samma värde kommer ändå en \<option\> att skrivas ut, oselected. 

```
Dagar = cint(Right(RecSet("AnvAlder"),2))

Do Until DagLoop = 31
DagLoop = DagLoop + 1
If Dagar = DagLoop Then
   Response.Write("<OPTION SELECTED VALUE=""" & DagLoop & """>" & DagLoop & "</OPTION>") & vbCrLf 
else
   Response.Write("<OPTION VALUE=""" & DagLoop & """>" & DagLoop & "</OPTION>") & vbCrLf 
end if
Loop
```

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

## #4 — KoTTeN, 2002-12-27T15:54Z

Tack jupiters! Nu funkar det klockrent!
OveRRidE \> Vad skulle jag göra utan dig? :)

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/63124-varför-funkar-inte-detta