---
title: "Om veckan finns med?"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/114374-om-veckan-finns-med"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Bosse168"
published: "2004-10-25T15:44:48.000Z"
updated: "2004-10-25T23:44:21.000Z"
replies: 4
views: 303
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/114374-om-veckan-finns-med"
---

# Om veckan finns med?

## #1 — Bosse168, 2004-10-25T15:44Z

Jag vill att om inte veckan finns med så ska övrig kod köras någon som vet vad är det för fel på denna kod?

```
Dim week,roster
week = DatePart("ww", Now()-1, vbMonday) '-------- Sätter veckans nummer

Set Rs = Connect.Execute("SELECT * FROM top_tattoo WHERE vecka='" & week & "' AND year(datum) = year(current_date)")

If Rs.EOF Then '----- Om veckan INTE redan fanns med

'---- Koden som ska köras

End If
```

Använder MySQL 4.0.21-nt sparar in veckan i en kolumn (vecka) och datumet (datum) i en annan. Finns säkert något smidigt sätt att kolla det redan i SQL satsen men jag får det inte att funka.

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

## #2 — joel_joel88, 2004-10-25T18:01Z

hmm...jag tycker att koden verkar stämma

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

## #3 — @nders, 2004-10-25T18:11Z

Standardfråga nummer ett: På vilket sätt fungerar det inte? Felmeddelande?

Fråga två: lagrar du veckonummer i ett varchar-fält?

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

## #4 — Bosse168, 2004-10-25T20:34Z

Den kör koden fast veckan finns med och jag har typen varchar på fältet vecka.

//red gjorde om fältet vecka tilll INT(3)

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

## #5 — Denkan, 2004-10-25T23:44Z

Vad har du för kolumner i databasen egentligen?

week, datum, current_date ... ?

Förstår inte vilken funktion year(datum) = year(current_date) har.

Skulle själv vilja ha det till

```
Dim week,roster
week = DatePart("ww", Now()-1, vbMonday) '-------- Sätter veckans nummer

Set Rs = Connect.Execute("SELECT * FROM top_tattoo WHERE vecka=" & week & " AND year(datum)=" &Year(Date()))

If Rs.EOF Then '----- Om veckan INTE redan fanns med

'---- Koden som ska köras

End If
```

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/114374-om-veckan-finns-med