Nyhet som visar dom typ 10 första orden

läste inte frågan... :r

------------------
Icaaq, mannen med korven. (!)

[Redigerat av icaaq den 02 nov 2001]

Det var bara 10 tecken.. inte 10 ord =)

------------------
//voigtan
:: voigtan.org

"de går inte att lära en gammal norrläning byta namn på irc" - gammalt kinesiskt uttryck

response.write left(nyheten,10)

------------------
essentitia preter non sans multiplicandum

response.write left(nyheten,10)

Det är fortfarande 10 bokstäver och inte 10 ord.

------------------
//voigtan
:: voigtan.org

"de går inte att lära en gammal norrläning byta namn på irc" - gammalt kinesiskt uttryck

Då miisförstod jag dig, jag trodde att du kommenterade din titel (och jag hann aldrig läsa icaaqs inlägg)

set o = new regexp
o.global = true
o.pattern = "(([a-zA-z0-9])*([\ \,\.])*)"
t = rs("yourColumn")
Set Matches = o.Execute(t)
if matches.count > 9 then i = 9 else i = matches.count
response.write mid(t,1,matches.item(i).firstindex+matches.item(i).length)

Det beror på vad du menar med ett ord, men nu har använt space , . som avslutning på ord. Det går att lägga till fler om man vill det.

red: felstavning av korvmannen (inte bra)
------------------
essentitia preter non sans multiplicandum

[Redigerat av LarsG den 02 nov 2001]

myarr = split(nyheten, " ")

Dim i
i = 0
do until i = 9
   respone.write myarr(i)
i = i + 1

eller så....

------------------
Mvh
Patrik aka Brimba
<A HREF="http://www.brimba.nu/default.asp?oPID=poll&PollID=20" TARGET=_blank>Har du husdjur hemma?
</A>Varför får man inte dricka saltvatten?

[Redigerat av Brimba den 02 nov 2001]

Någon Loop behövs för din brimba

------------------
//voigtan
:: voigtan.org

"de går inte att lära en gammal norrläning byta namn på irc" - gammalt kinesiskt uttryck

jaja, skriv till det då ;)

------------------
Mvh
Patrik aka Brimba
<A HREF="http://www.brimba.nu/default.asp?oPID=poll&PollID=20" TARGET=_blank>Har du husdjur hemma?
</A>Varför får man inte dricka saltvatten?

men jag vet inte var loop:en ska vara..

------------------
//voigtan
:: voigtan.org

"de går inte att lära en gammal norrläning byta namn på irc" - gammalt kinesiskt uttryck

myarr = split(nyheten, " ")
Dim i
i = 0
do until i = 9
respone.write myarr(i)
i = i + 1
loop

------------------
Doesn't 'expecting the unexpected' make the unexpected expected?
webeye.nu

detta e fel det vet jag, men jag MÅSTE få koden:

<%
nyheten = spel("Resention1")
myarr = split(nyheten, " ")
Dim i
i = 0
do until i = 9
respone.write myarr(i)
i = i + 1
loop
%>

------------------
//voigtan
:: voigtan.org

"de går inte att lära en gammal norrläning byta namn på irc" - gammalt kinesiskt uttryck

Och varför är det fel?

------------------
Doesn't 'expecting the unexpected' make the unexpected expected?
webeye.nu

får error bara

------------------
//voigtan
:: voigtan.org

"de går inte att lära en gammal norrläning byta namn på irc" - gammalt kinesiskt uttryck

Det är lite svårt för oss att se vad du fått för error, och utan det så är det lite svårt att hjälpa till, så visa alltid felmeddelanden.

------------------
Doesn't 'expecting the unexpected' make the unexpected expected?
webeye.nu

Körningsfel i Microsoft VBScript fel '800a01a8'

Objekt krävs.: ''

/spel/test.asp, rad 32

Så!

Rad 32:
respone.write myarr(i)

och koden är:

<%
nyheten = spel("Resention1")
myarr = split(nyheten, " ")
Dim i
i = 0
do until i = 9
respone.write myarr(i)
i = i + 1
loop
%>

------------------
//voigtan
:: voigtan.org

"de går inte att lära en gammal norrläning byta namn på irc" - gammalt kinesiskt uttryck

response heter det... ;)

Sedan måste till koll in i loopen:

<%
nyheten = spel("Resention1")
myarr = split(nyheten, " ")
Dim i
i = 0
do until i = 9
respone.write myarr(i)
if i = ubound( myarr ) then exit do
i = i + 1
loop
%>

------------------
Doesn't 'expecting the unexpected' make the unexpected expected?
webeye.nu

Felstavning av response, sen så bör du skriva dit ett mellanslag efter varje ord.

<%
nyheten = spel("Resention1")
myarr = split(nyheten, " ")
Dim i
i = 0
do until i = 9
response.write myarr(i) & " "
i = i + 1
loop
%>

------------------
essentitia preter non sans multiplicandum

Om jag skulle vilja ha "..." efter de 10 orden som jag nu har lagt till typ.. hur gör jag :r

------------------
//voigtan
:: voigtan.org

"de går inte att lära en gammal norrläning byta namn på irc" - gammalt kinesiskt uttryck

<%
nyheten = spel("Resention1")
myarr = split(nyheten, " ")
if ubound(myarr) <= 9 then
   response.write nyheten
else
Dim i
for i = 0 to 9
if i = 9 then 
response.write myarr(i) & "..."
else
response.write myarr(i) & " "
end if
next
end if
%>

red: for loop är snyggare
------------------
essentitia preter non sans multiplicandum

[Redigerat av LarsG den 02 nov 2001]