---
title: "Räknar inte?"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/10130-räknar-inte"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Inferis"
published: "2001-06-18T20:41:00.000Z"
updated: "2001-06-19T13:15:00.000Z"
replies: 2
views: 161
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/10130-räknar-inte"
---

# Räknar inte?

## #1 — Inferis, 2001-06-18T20:41Z

Jag använder en kod jag hittade här på forumet, men när jag använder så visas bara första posten fast på tre ställen?

```
set rs = Server.CreateObject("ADODB.RecordSet")
sqltext = "SELECT  TOP 3 * FROM news ORDER BY id desc"
rs.Open sqltext,myconn,3,3

while not rs.eof

Strang = rs("message")
theArr= Split(strang, " ")
maxLangd= 30
i=0
while i<= uBound(theArr)
If len(theArr(i)) > maxLangd then
j=0
while j<(len(theArr(i))/maxLangd)
splittOrd=splittOrd & mid(theArr(i),(1+j*maxLangd),maxLangd) &" "
j=j+1
wend
theArr(i)=splittOrd
End If
nyStrang=nystrang & theArr(i) &" "
i=i+1
wend
nyStrang=Replace(nyStrang,vbCrlf,"<br>")

If Len(rs("message")) > 50 Then
Response.write Left(nystrang,50) & "..."
Else
Response.write rs("message")
End If
```

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

## #2 — jepsO, 2001-06-19T08:10Z

Jag skulle rekommendera att du placerar koden som formaterar nyheten i en funktion och sedan anropa funktionen i din while-loop. Jag är mest van vid do-loopar, så nåt sånt här:

```
function format_news(strang)
theArr= Split(strang, " ")
maxLangd= 30
i=0
while i<= uBound(theArr)
If len(theArr(i)) > maxLangd then
j=0
while j<(len(theArr(i))/maxLangd)
splittOrd=splittOrd & mid(theArr(i),(1+j*maxLangd),maxLangd) &" "
j=j+1
wend
theArr(i)=splittOrd
End If
nyStrang=nystrang & theArr(i) &" "
i=i+1
wend
nyStrang=Replace(nyStrang,vbCrlf,"<br>")
format_news = nyStrang
end function

do until rs.EOF
If Len(rs("message")) > 50 Then
Response.write Left(format_news(rs("message"),50) & "..."
Else
Response.write rs("message")
End If
```

Totalt otestad kod.

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

## #3 — Inferis, 2001-06-19T13:15Z

Nja.... Nu är den testad iallafall...

Den fungerar precis som jag hade hoppats!

Fast det gick inte att använda 

```
do until rs.EOF
```

Men annars så fungerade

```
while not rs.eof
```

Saknades även en parentes i

```
Response.write Left(format_news(rs("message")[red])[/red],50) & "..."
```

Skrev tillägen bara ifall nån annan får samma fel som mig och hittar det via en sökning.

Tack för hjälpen!

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/10130-räknar-inte