---
title: "Sista posten i en loop?"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/64260-sista-posten-i-en-loop"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "bigsky"
published: "2003-01-08T23:12:18.000Z"
updated: "2003-01-29T14:13:36.000Z"
replies: 14
views: 330
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/64260-sista-posten-i-en-loop"
---

# Sista posten i en loop?

## #1 — bigsky, 2003-01-08T23:12Z

I en loop skriver jag ut e-postadresser med ett "," mellan varje adress. De ska sedan ingå i "To" funktionen i CDONTS. Hur gör jag för att INTE skriva ut ett "," efter den sista posten i loopen, men mellan alla andra adresser?

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

## #2 — Jörgen HP, 2003-01-08T23:17Z

Hej, du kan ta bort sista tecknet i strängen efter loopen:

```
theString = left(theString, len(theString)-1)
```

Lägger du det i en array med getrows() kan du använda

```
ubound(myArray, 2)
```

för att kolla så att det är sista posten

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

## #3 — bigsky, 2003-01-08T23:21Z

Raden som skriver ut ser ut enligt nedan:

```
Response.Write(rsGetEmail("Email") & ", ")
```

Hur impleterar man din kod i den?

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

## #4 — Jesper T, 2003-01-08T23:27Z

```
theString=(rsGetEmail("Email") & ", ")
response.write left(theString, len(theString)-1)
```

Kanske.

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

## #5 — CatZ, 2003-01-08T23:31Z

```
theString = Response.Write(rsGetEmail("Email") & ", ")
For i = 0 UBound(Din Array)
   theString
Next

theString = left(theString, len(theString)-1)
```

:q

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

## #6 — cyprys, 2003-01-08T23:58Z

```
theString = left(theString, len(theString)-[b]2[/b]) ? ;)
```

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

## #7 — bigsky, 2003-01-09T00:06Z

Problemet är att då försvinner både kommat och mellanrummet. Så egentligen fungerar inte något av föslagen ovan. Dessutom tas ju kommat och/eller mellanrummet bort från samtliga poster och det var inte meningen. Det ska bara tas bort från den sista posten. Så här är det nu:

<1@mail.com>, <2@mail.com>, <3@mail.com>, 

Vill ha det så här:

<1@mail.com>, <2@mail.com>, <3@mail.com>

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

## #8 — cyprys, 2003-01-09T00:14Z

```
Dim strepostadresser
do until rs.eof
strepostadresser = strepostadresser & rs("epost") & ", "
rs.movenext
loop

strepostadresser = left(strepostadresser, len(strepostadresser) - 2)
```

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

## #9 — CatZ, 2003-01-09T00:22Z

/RED det va inget :r stirrade fel någonstans

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

## #10 — bigsky, 2003-01-09T00:23Z

Använder inte någon Array.

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

## #11 — bigsky, 2003-01-09T00:32Z

Löste det med:

```
Do Until rsGetEmail.EOF
If Not rsGetEmail("Email") = "" Then
  StrEmail = StrEmail & rsGetEmail("Email") & ", "
End If
rsGetEmail.MoveNext
Loop
	
Response.Write Left(StrEmail, Len(StrEmail) - 2)
```

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

## #12 — crisse6, 2003-01-29T03:55Z

Hej!

Sag detta och har fatt ihop det ganska bra bara att om det ar mer an en person som fyller ar sa tar den bara en av dom! why?

```
strCheckBirthDay = "select * from t_users where cint(mid(BirthDay,6,2)) = month(now()) and cint(mid(BirthDay,9,2)) = day(now())"
Set objBirthDay = objConn.execute(strCheckBirthDay)

If objBirthDay.eof then
	strBirthDayKid = "Ingen av våra inneboende fyller år idag."
else
Do Until objBirthDay.eof
strBirthDayKid = 	objBirthDay("usrname")&_
					"("&_
					DateDiff("yyyy",objBirthDay("BirthDay"),Date())&_
					")"&","

objBirthDay.movenext
Loop
End IF
```

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

## #13 — @nders, 2003-01-29T05:33Z

Tja, du skulle ju kunna prova att, istället för att skriva om variabeln strBirthDayKid, lägga till saker till den. 

```
[b]strBirthDayKid = strBirthDayKid & [/b]objBirthDay("usrname")&_
					"("&_
					DateDiff("yyyy",objBirthDay("BirthDay"),Date())&_
					")"&","
```

Mvh ;)

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

## #14 — crisse6, 2003-01-29T14:10Z

det har du ju sa ratt i, stang denna trad ocksa..... maste vila upp mig eller nat, har haft 3 daliga ASP dagar nu...... hej da :)

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

## #15 — @nders, 2003-01-29T14:13Z

Nehej, du, denna tråd stängs icke. Dels skall du skämmas (;)), dels är det inte du som startat tråden.

Mvh,

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/64260-sista-posten-i-en-loop