---
title: "Konstig loop"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/54106-konstig-loop"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Jesper T"
published: "2002-09-24T01:14:12.000Z"
updated: "2002-09-24T09:34:46.000Z"
replies: 2
views: 228
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/54106-konstig-loop"
---

# Konstig loop

## #1 — Jesper T, 2002-09-24T01:14Z

Tabellen heter "plan"
och kolumnerna:

[Tabellen](http://hem.passagen.se/vurma/bilder.htm) 
När jag loopar ut posterna så visas samma post \*(gånger) antalet poster jag har skrivit.
tex.
"123","2002-09-02","07:05"," osv...
"123","2002-09-02","07:05"," osv...
"123","2002-09-02","07:05"," osv...

Det är ju fel, eller hur!
Jag vill självklart lista ut samtliga poster som är mina.
Vad kan vara fel?

```
 <%

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.mappath("dbas.mdb")
user = request.cookies("username")
fran = Request.form("fran")
till = Request.form("till")

SQL = "SELECT datum,frantid,tilltid,id,rubrik,detalj,user,privat FROM plan WHERE user='"& user &"' and datum BETWEEN #"& fran &"# and #"& till &"#" & _
" order by datum,tilltid asc"

Set RecSet = Server.CreateObject("ADODB.Recordset")
RecSet.Open sql, conn, 3, 3

startdatum = RecSet("datum")
slutdatum = startdatum
frantid = RecSet("frantid")
tilltid = RecSet("tilltid")
rubrik = RecSet("rubrik")
detalj = RecSet("detalj")
privat = RecSet("privat")
plats = "Ingen specificering"

response.AddHeader "content-disposition", "attachment; filename=Export_"& user &".csv"
'Markera kolumnerna
Response.write """Ämne"",""Startdatum"",""Starttid"",""Slutdatum"","&_
"""Privat"",""Sluttid"",""Plats"""& vbcrlf
'Loopa ut samtliga händelser

if RecSet.eof then
Response.write "Det finns inga poster att hämta mellan dom datumen!"
else
Do while not RecSet.EOF
	Response.write """"& rubrik &""","""& startdatum &""","""& frantid &""","""& slutdatum &""","""& privat &""","""& frantid &""","""& plats &""""& vbcrlf
	
			RecSet.movenext
			loop

end if
RecSet.close
set RecSet = nothing
conn.close
set conn = nothing
%>
```

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

## #2 — @nders, 2002-09-24T04:16Z

Du gör variabeltilldelningen utanför loopen. Då blir det så.

Mvh,

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

## #3 — Jesper T, 2002-09-24T09:34Z

Tack, vilket slarvfel. :r

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/54106-konstig-loop