---
title: "Skriv inte ut det som finns"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/114351-skriv-inte-ut-det-som-finns"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Meng"
published: "2004-10-25T10:33:47.000Z"
updated: "2004-10-27T18:10:08.000Z"
replies: 11
views: 468
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/114351-skriv-inte-ut-det-som-finns"
---

# Skriv inte ut det som finns

## #1 — Meng, 2004-10-25T10:33Z

Hej jag har gjort denna koden:

```
<%Set RecSet = Conn.Execute("SELECT * FROM news WHERE ar = " & whatyearisitnow & " ORDER BY uge ASC")%>

  <tr>
    <td align="left" width="150">

		 <select name="uge">
		 <% 
			For i = 1 To 52 
		 %>
		<%If RecSet(uge) <> i Then%>
		 <option value="<%=i%>">Uge <%=i%></option>
		<%End If%>
		 <% 
			Next 'i 
		 %> 

</select>
<%RecSet.Close
Set RecSet = Nothing%>
```

 
Meningen med den är att den inte ska skriva ut de veckor som redan existerar, varför funkar inte det?

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

## #2 — Spinx, 2004-10-25T11:29Z

Vad får du för fel då, eller får du ett felmeddelande?

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

## #3 — LarsG, 2004-10-25T11:54Z

```
<%If clng(RecSet("uge")) <> i Then%>
```

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

## #4 — Meng, 2004-10-25T14:09Z

Det funkar ändå inte, den skriver ut alla värden från 1 till 52 så jag får alltså inget fel meddelande heller..

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

## #5 — Meng, 2004-10-25T14:30Z

Måste jag inte Loopa ut värdena i "uge" fältet? För väljer jag ASC så försvinner vecka 18 och DESC så försvinner vecka 47

Databasen innehåller vecka 18,19,21-47

Hur loopar jag ut detta? hur jag än har försökt så funkar det ej..

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

## #6 — LR^evil.sid, 2004-10-25T14:30Z

Om du skriver ut RecSet(uge) vad innehåller den då?
Vad innehåller variabeln uge för värde?

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

## #7 — Meng, 2004-10-25T14:31Z

18
19
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47

Refererar till mitt tidigare svar: [\#939743](http://www.webforum.nu/showthread.php?s=&postid=939743#post939743)

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

## #8 — LarsG, 2004-10-25T14:36Z

Du måste stega fram i ditt recordset när du hittar en matchande vecka.

```
<%If clng(RecSet("uge")) <> i Then%>
		 <option value="<%=i%>">Uge <%=i%></option>
<%else%>
rs.movenext
		<%End If%>
```

Om dur har order by desc i SQL-frågan så får du stega nedåt i din for-loop.

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

## #9 — clown, 2004-10-25T17:23Z

Skapa en tabell i databasen som innehåller1 kolumn: weeknumber int.
Läg sedan in värdena 1-52.
I SQL kommandot skriver du sedan

```
"SELECT weeknumber  from tblWeeknumbers where weeknumber NOT IN (
SELECT distinct uge FROM news WHERE ar = " & whatyearisitnow & "
) order by weeknumber asc"
```

Då får du enbart ut de veckonummerna som INTE finns med i News tabellen.
Och då är det bara att loop ut ditt recordset som vanligt

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

## #10 — Denkan, 2004-10-25T23:52Z

Annars en lite mer udda lösning:

```
<%
Set RecSet = Conn.Execute("SELECT uge FROM news WHERE ar = " & whatyearisitnow & " ORDER BY uge ASC")

Dim foundWeeks
foundWeeks = ""
If NOT RecSet.EOF Then
     Do Until RecSet.EOF
     foundWeeks = foundWeeks & RecSet("uge")& "|"
     RecSet.MoveNext
     Loop
End If

RecSet.Close()
Set RecSet = Nothing
%>

<tr>
<td align="left" width="150">

<select name="uge">
     <% For i = 1 To 52  %>
          <% If InStr(foundWeeks,i& "|") > 0 Then%>
          <option value="<%=i%>">Uge <%=i%></option>
          <%End If%>
     <% Next  %> 
</select>
```

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

## #11 — Meng, 2004-10-26T06:59Z

> **Denkan skrev:**
>
> Annars en lite mer udda lösning:
> 
>
>
> ```
> <%
> Set RecSet = Conn.Execute("SELECT uge FROM news WHERE ar = " & whatyearisitnow & " ORDER BY uge ASC")
> 
> Dim foundWeeks
> foundWeeks = ""
> If NOT RecSet.EOF Then
>      Do Until RecSet.EOF
>      foundWeeks = foundWeeks & RecSet("uge")& "|"
>      RecSet.MoveNext
>      Loop
> End If
> 
> RecSet.Close()
> Set RecSet = Nothing
> %>
> 
> <tr>
> <td align="left" width="150">
> 
> <select name="uge">
>      <% For i = 1 To 52  %>
>           <% If InStr(foundWeeks,i& "|") > 0 Then%>
>           <option value="<%=i%>">Uge <%=i%></option>
>           <%End If%>
>      <% Next  %> 
> </select>
> ```

Nu visas vecka 1-19 och 21-47 ? hur går det till? vecka 1-17 existerar ju inte..

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

## #12 — Denkan, 2004-10-27T18:10Z

Råkade vända på det.

```
<%
Set RecSet = Conn.Execute("SELECT uge FROM news WHERE ar = " & whatyearisitnow & " ORDER BY uge ASC")

Dim foundWeeks
foundWeeks = ""
If NOT RecSet.EOF Then
     Do Until RecSet.EOF
     foundWeeks = foundWeeks & RecSet("uge")& "|"
     RecSet.MoveNext
     Loop
End If

RecSet.Close()
Set RecSet = Nothing
%>

<tr>
<td align="left" width="150">

<select name="uge">
     <% For i = 1 To 52  %>
          <% If InStr(foundWeeks,i& "|") = 0 Then%>
          <option value="<%=i%>">Uge <%=i%></option>
          <%End If%>
     <% Next  %> 
</select>
```

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/114351-skriv-inte-ut-det-som-finns