---
title: "Tillsnyggning"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/149071-tillsnyggning"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "reka1"
published: "2006-07-14T10:31:58.000Z"
updated: "2006-07-14T12:10:32.000Z"
replies: 2
views: 537
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/149071-tillsnyggning"
---

# Tillsnyggning

## #1 — reka1, 2006-07-14T10:31Z

Jag har en kodbit som skriver ut vilka personer som jobbar aktuell vecka. Ok, koden fungerar men den ser så otymplig ut så jag undrar om det skulle gå att korta ner den. Ex-vis bli kvitt den hiskliga case-satesen.

```
dim vnr, C
'Tar ut veckonumret
vnr = datepart ("ww", Date, vbMonday, vbFirstFourDays)

'Personal i array
C = Array("Lena Berglund", "Christina Näslund", "Doris Engström", "Fred Hamberg", "Kiyoko Löfander", "Lena Olafsen", "Sussie Arnfridsson", "Dan Östlun", "Helene Wallin", "Ylva Holmgren", "Britt Lidén", "Bengt Johansson", "Rolf Gustavsson", "Camilla Rantamäki", "Svante/Inger Östlund", "Kerstin Hansson", "Zadaka", "Birgit Bäckström", "Doris Björk", "Torbjörn/Lotta Borg", "Lena H Svensson", "Christina Antonsen", "Hans/Berith Forsmark", "Johan Nyholm/Kerstin Eskel", "Titti Pettersson", "Ulla Laggren", "Irina Svensson", "Lars Westlund")

*Skriver ut personal beroende på vecka
select case vnr
case 28
	response.write C(23) & "<br>" & C(24)
case 29
	response.write C(0) & "<br>" & C(1)
case 30
	response.write C(2) & "<br>" & C(3)
' och så vidare
```

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

## #2 — Riffles, 2006-07-14T10:59Z

Du kan lägga in alla personer i en databas. Skriv in namn och vilken vecka de arbetar.
Loopa fram alla uppgifter med namn och vecka. Jämför sedan med aktuell vecka.

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

## #3 — reka1, 2006-07-14T12:10Z

Tack för svaret, jag glömde ju att berätta att det finns ingen tillgång till databas, ej heller tillgång till att skapa eller lägga in textfiler på servern.
Men annars hade en databaslösning varit ok.

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/149071-tillsnyggning