Nyhet som visar dom typ 10 första orden

läste inte frågan...

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

response.write left(nyheten,10)

response.write left(nyheten,10)

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

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)

myarr = split(nyheten, " ")

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

eller så....

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

jaja, skriv till det då

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

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

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
%>

Och varför är det fel?

får error bara

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.

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
%>

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
%>

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
%>

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

<%
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