---

Hej ..
Jeg har dette lille script, som henter de sidste nyheder, og
udskriver dem:

strSQL = "Select * From " & strTablenews & " Order By ID Desc
LIMIT 5"
Set rs = Conn.Execute(strSQL)
if not rs.EOF Then

Do
   Response.Write rs("overskrift") & "<br>"
   rs.movenext

Loop while not rs.EOF
end if

Det eg godt ville have den til, var at hvis rs("overskrift")
bestod af mere end f.eks 15 tegn, skulle den slette de sidste og
skrive "..." i stedet for.

Håber i forstår hvad jeg mener, og ved hvad jeg skal gøre ;)

--
Vil du lære at kode HTML, XHTML, CSS, SSI eller ASP?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials

---

Kasper Nielsen skrev:

> Det eg godt ville have den til, var at hvis rs("overskrift")
> bestod af mere end f.eks 15 tegn, skulle den slette de sidste og
> skrive "..." i stedet for.

Du kan bruge denne her:

Function klipTekst(input, maxlen)
   ' Afkort input så det maks har længden maxlen
   If len(input & "") >= maxlen Then
         ' Når input er for langt klipper vi 4 positioner før
         ' Det sikrer at den længst mulige uforkortede værdi
         ' er præcis lige så lang som alle forkortede værdier
       klipTekst = Left(input, maxlen - 4) & "..."
   Else
       klipTekst = input   
   End If
End Function


Kaldes fx med

<%= klipTekst(rs("overskrift"), 15) %>
--
Jens Gyldenkærne Clausen
Svar venligst under det du citerer, og citer kun det der er
nødvendigt for at forstå dit svar i sammenhængen. Se hvorfor og
hvordan på http://usenet.dk/netikette/citatteknik.html

---

"Jens Gyldenkærne Clausen" <jens@gyros.invalid> wrote in message
news:Xns93F295B00C2C8jcdmfdk@gyrosmod.dtext.news.tele.dk...
> Kasper Nielsen skrev:
>
> > Det eg godt ville have den til, var at hvis rs("overskrift")
> > bestod af mere end f.eks 15 tegn, skulle den slette de sidste og
> > skrive "..." i stedet for.
>
> Du kan bruge denne her:
>
> Function klipTekst(input, maxlen)
> ' Afkort input så det maks har længden maxlen
> If len(input & "") >= maxlen Then
> ' Når input er for langt klipper vi 4 positioner før
> ' Det sikrer at den længst mulige uforkortede værdi
> ' er præcis lige så lang som alle forkortede værdier
> klipTekst = Left(input, maxlen - 4) & "..."
> Else
> klipTekst = input
> End If
> End Function
>
>
> Kaldes fx med
>
> <%= klipTekst(rs("overskrift"), 15) %>

Jeg ved ikke om mySQL er anderledes end access, ellers plejer jeg at bruge
denne.

<%=left(oRs("ArticleData"),15)%> ...
--

Mvh / Regards
-=< Christian >=-
What capital has 164 letters in its name? See my web page to find out.
http://www.cmnielsen.dk ICQ: 25308942
"If you kneel at the fence by the priest, you get dog biscuits. Anna 6
years."

---

"Jens Gyldenkærne Clausen" <jens@gyros.invalid> wrote:
| Kasper Nielsen skrev:
|
| > Det eg godt ville have den til, var at hvis rs("overskrift")
| > bestod af mere end f.eks 15 tegn, skulle den slette de sidste og
| > skrive "..." i stedet for.
|
| Du kan bruge denne her:
|
| Function klipTekst(input, maxlen)
| ' Afkort input så det maks har længden maxlen
| If len(input & "") >= maxlen Then
| ' Når input er for langt klipper vi 4 positioner før
| ' Det sikrer at den længst mulige uforkortede værdi
| ' er præcis lige så lang som alle forkortede værdier
| klipTekst = Left(input, maxlen - 4) & "..."
| Else
| klipTekst = input
| End If
| End Function


Eller en variant som deler strengen på første mellomrom, og ikke midt inne i
ordet:

If Len(input & "...") > maxlen Then
Kliptekst = Mid(input, 1, InstrRev(input, " ", maxlen)) & "..."
Else
klipTekst = input
End If

terje

---

Christian M. Nielsen skrev:

> Jeg ved ikke om mySQL er anderledes end access, ellers plejer
> jeg at bruge denne.
>
> <%=left(oRs("ArticleData"),15)%> ...

Ovenstående er uafhængigt af databasen da det er asp/vbscript-
funktionen left der benyttes. Den virker fint, men man kan ikke se
om den udskrevne værdi er forkortet eller ej.
--
Jens Gyldenkærne Clausen
Svar venligst under det du citerer, og citer kun det der er
nødvendigt for at forstå dit svar i sammenhængen. Se hvorfor og
hvordan på http://usenet.dk/netikette/citatteknik.html

---

Ok.

Tusind tak alle sammen, det hjalp :D

--
Vil du lære at kode HTML, XHTML, CSS, SSI eller ASP?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials