---
title: "hjälp med if elseif-sats"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/137700-hjälp-med-if-elseif-sats"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "devotion"
published: "2005-11-15T19:48:08.000Z"
updated: "2005-11-15T20:00:59.000Z"
replies: 2
views: 212
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/137700-hjälp-med-if-elseif-sats"
---

# hjälp med if elseif-sats

## #1 — devotion, 2005-11-15T19:48Z

:e 
Hej har följande kod:

```
If objRS.EOF then
'
Else
	If objRS("Note") = "" then
		strNote = strNewNote
	Else
		strNote = objRS("Note")
		
		if instr(lcase(objRS("Note")), "solar") > 0 then
			strNote = Replace(strNote, "Solar", strNewNote)
			elseif instr(lcase(objRS("Note")), "storel") > 0 then
				strNote = Replace(strNote, "Storel", strNewNote)
			elseif instr(lcase(objRS("Note")), "ahlsell") > 0 then
				strNote = Replace(strNote, "Ahlsell", strNewNote)
		else
		
		end if
	end if
end if
```

i nuläget så kontrollerar den om \[Note\] är tom, är den det så skrivs det ett nytt värde. Innehåller \[Note\] något av orden Solar, storel eller ahlsell så uppdateras bara de orden.

Jag skulle vilja modifiera det hela till "om det redan står något i \[Note\] och där den strängen inte innehåller \[Solar, storel, ahlsell\] infoga strNewNote med en radbrytning" 

Hoppas någon fattar...

Mvh
Henrik

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

## #2 — @nders, 2005-11-15T19:50Z

Om jag inte missuppfattar dig:

```
If objRS.EOF then
'
Else
	If objRS("Note") = "" then
		strNote = strNewNote
	Else
		strNote = objRS("Note")
		
		if instr(lcase(objRS("Note")), "solar") > 0 then
			strNote = Replace(strNote, "Solar", strNewNote)
		elseif instr(lcase(objRS("Note")), "storel") > 0 then
			strNote = Replace(strNote, "Storel", strNewNote)
		elseif instr(lcase(objRS("Note")), "ahlsell") > 0 then
			strNote = Replace(strNote, "Ahlsell", strNewNote)
		else
			strNote = strNote & vbcrlf & strNewNote
		end if
	end if
end if
```

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

## #3 — devotion, 2005-11-15T20:00Z

Tackar!
Svaret fanns närmare än man kunde tro...

//Henrik

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/137700-hjälp-med-if-elseif-sats