split

myarr = split(recset("sv_text"), " ")
Dim i
i = 0
do until i = 4
if i = 3 then 
response.write myarr(i) & " <a href=""shownews.asp?read=test"" target=""show"">Läs mer...</a>"
else
response.write myarr(i) & " "
end if
i = i + 1
loop

Om jag skriver nu 2 ord.. får jag error :( hur gör man så att den inte MÅSTE ha mer än 4 ord eller vad det är...

Nyckeln är ubound()
Går nog iofs o skriva bättre än detta.

myarr = split(recset("sv_text"), " ")
Dim i
i = 0
If ubound(myarr) > 3 then 
	slutet = 4
else 
	slutet = ubound(myarr)
End If

do until i = slutet
if i = 3 then 
response.write myarr(i) & " <a href=""shownews.asp?read=test"" target=""show"">Läs mer...</a>"
else
response.write myarr(i) & " "
end if
i = i + 1
loop

myarr = split(recset("sv_text"), " ")
Dim i
i = 0
for i = lbound(myarr) to ubound(myarr)
   select case i
	case 3
		response.write(myarr(i) & " <a href='shownews.asp?read=test' target='show'>Läs mer...</a>")
	case else
		response.write(myarr(i) & " ")
   end select
next

cyprys skrev:

myarr = split(recset("sv_text"), " ")
Dim i
i = 0
for i = lbound(myarr) to ubound(myarr)
   select case i
	case 3
		response.write(myarr(i) & " <a href='shownews.asp?read=test' target='show'>Läs mer...</a>")
	case else
		response.write(myarr(i) & " ")
   end select
next

Om jag använder denna så får jag:
"Hej och välkommen läs mera... till min sida"

.red råkade ta "citat" på mitt förra mess :(

ändra till case 2 istället för case 3. :)
eller nää, hur ska det vara då?:OO

att jag ska bara ha x antal ord och sen kommer läs mera ...

det blir ju inte x antal ord om du har case 3, då blir det ju alltid läs mera efter 3:e ordet!

Man måste ju se till att hoppa ur loopen när man skrivit ut länken.

myarr = split(recset("sv_text"), " ")
Dim i
i = 0
for i = lbound(myarr) to ubound(myarr)
   select case i
	case 3
		response.write(myarr(i) & " <a href='shownews.asp?read=test' target='show'>Läs mer...</a>")
		[b]exit for[/b]
	case else
		response.write(myarr(i) & " ")
   end select
next