---
title: "Är detta rätt??"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/60181-är-detta-rätt"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "sudden"
published: "2002-11-25T09:04:44.000Z"
updated: "2002-11-25T12:59:08.000Z"
replies: 6
views: 276
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/60181-är-detta-rätt"
---

# Är detta rätt??

## #1 — sudden, 2002-11-25T09:04Z

Undrar bara vad som är fel på den här koden!

kod:
\<%
'###################################################
'###################################################

'slumpa ut hur dagens väder blev
'variabeln som innehåller slumpkoden heter slump
Randomize
Dim vader(4), slump
vader(0) = "soligt" 
vader(1) = "blåsigt" 
vader(2) = "regnigt" 
vader(3) = "dimmigt" 
vader(4) = "molnigt" 

slump = vader(INT(RND\*(UBound(vader,1)+1))) 

'####################################################
'####################################################

'####################################################
'####################################################
'ange ett standardvärde på dagens temperatur som är 20 grader
'denna ändras beroende på hur dagens väder blev
Dim temp
temp = 20

'kolla hur dagens väder blev

If slump = "soligt" Then
temp = 26
Else If slump = "blåsigt" Then
temp = 17
Else If slump = "regnigt" Then
temp = 9
Else If slump = "dimmigt" Then
temp = 15
Else If slump = "molnigt" Then
temp = 16
Else
%\>

\<html\>
\<body\>
Dagens väder blev \<%=slump%\>\<br\>
Och temperaturen är \<%=temp%\>
\</body\>
\</html\>
\<%End If%\>

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

## #2 — @nders, 2002-11-25T09:07Z

Det underlättar om du berättar vad det är som blir fel, ev. felmeddelande, och om du innesluter din kod i \[kod\]-taggar, så den blir mer lättläst.

mvh,

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

## #3 — OveRRidE, 2002-11-25T09:53Z

```
<% 
'################################################### 
'################################################### 

'slumpa ut hur dagens väder blev 
'variabeln som innehåller slumpkoden heter slump 
Randomize 
Dim vader(4), slump 
vader(0) = "soligt" 
vader(1) = "blåsigt" 
vader(2) = "regnigt" 
vader(3) = "dimmigt" 
vader(4) = "molnigt" 

slump = vader(INT(RND*(UBound(vader,1)+1))) 

'#################################################### 
'#################################################### 

'#################################################### 
'#################################################### 
'ange ett standardvärde på dagens temperatur som är 20 grader 
'denna ändras beroende på hur dagens väder blev 
Dim temp 
temp = 20 

'kolla hur dagens väder blev 

If slump = "soligt" Then 
temp = 26 
[b]ElseIf[/b] slump = "blåsigt" Then 
temp = 17 
[b]ElseIf[/b] slump = "regnigt" Then 
temp = 9 
[b]ElseIf[/b] slump = "dimmigt" Then 
temp = 15 
[b]ElseIf[/b] slump = "molnigt" Then 
temp = 16 
[b]End if[/b]
%> 

<html> 
<body> 
Dagens väder blev <%=slump%><br> 
Och temperaturen är <%=temp%> 
</body> 
</html>
```

Inga mellanslag mellan else och if, då blir det fel. Dessutom hade du inte avslutat if-satsen med end if, det måste man göra. 

Tillägg) Och en end if för mycket.

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

## #4 — Poffe, 2002-11-25T12:09Z

på UBound(vader,1) ska det väll inte vara någon 1:a eftersom det bara är en endimentionellarray?

UBound(vader)

OveRRide: han hade med en end if dock på fel ställe... ta bort din \<%End If%\> som sitter längst ner i koden

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

## #5 — OveRRidE, 2002-11-25T12:39Z

Såg det.

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

## #6 — PatrikB, 2002-11-25T12:48Z

Detta kan ju ändras:

```
If slump = "soligt" Then 
temp = 26 
ElseIf slump = "blåsigt" Then 
temp = 17 
ElseIf slump = "regnigt" Then 
temp = 9 
ElseIf slump = "dimmigt" Then 
temp = 15 
ElseIf slump = "molnigt" Then 
temp = 16 
End if
```

ser ju snyggare ut så här:

```
Select Case slump
	Case "soligt"
		temp = 26

	Case "blåsigt"
		temp = 17

	Case "regnigt"
		temp = 9

	Case "dimmigt"
		temp = 15

	Case "molnigt"
		temp = 16
End Select
```

cya,
PatrikB

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

## #7 — PatrikB, 2002-11-25T12:59Z

eller varför inte en variant med en 2-dimensionell array:

```
<% 
'################################################### 
'################################################### 

'slumpa ut hur dagens väder blev 
'variabeln som innehåller slumpkoden heter slump 
Randomize 

Dim vader(1,4), slump, intRndIndex 

vader(0,0) = "soligt" 
vader(1,0) = 26 
vader(0,1) = "blåsigt" 
vader(1,1) = 17 
vader(0,2) = "regnigt" 
vader(1,2) = 9 
vader(0,3) = "dimmigt" 
vader(1,3) = 15 
vader(0,4) = "molnigt"  
vader(1,4) = 16

intRndIndex = CInt(rnd*UBound(vader,2))
Response.Write intRndIndex
slump = vader(0,intRndIndex) 

'#################################################### 
'#################################################### 

'#################################################### 
'#################################################### 
'ange ett standardvärde på dagens temperatur som är 20 grader 
'denna ändras beroende på hur dagens väder blev 
Dim temp 
temp = 20 

slump = vader(0,intRndIndex)
temp = vader(1,intRndIndex)
%> 

<html> 
<body> 
Dagens väder blev <%=slump%><br> 
Och temperaturen är <%=temp%> 
</body> 
</html>
```

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/60181-är-detta-rätt