Notifikationer

Markér alle som læst Log ud

plato Juniormester

19. november 2003 - 11:18 Der er 4 kommentarer og
1 løsning

Begrænsning af antal ord.

Hejsa NG.

Jeg bruger lige nu denne her left(rs("omtale"),150)
for at korte ned på viste antal tegn. Men det ser dumt ud at et ord bliver skåret over..

F.eks:
Det bliver Nemo til sidst så træt af, at han svømmer for langt ud på åbe...

Det lyder jo skørt..

Er det muligt at skære ned på antal ord istedet for tegn?

Synes godt om

dk_akj Nybegynder

19. november 2003 - 11:58 #1

ls = left(rs("omtale"),150)
' find sidste space
pos = instrrev(ls," ")

' kort ned igen
ls = left(ls,pos)

//akj

Synes godt om

plato Juniormester

19. november 2003 - 12:42 #2

Skal det bare sættes ind der hvor jeg har left(rs("omtale"),150)?

<%
strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.Mappath("../db/anmeld.mdb")
Set objConn = Server.CreateObject ("ADODB.Connection")
objConn.Open strConnect

strSQL = "SELECT TOP 6 * FROM anmeld ORDER BY id DESC"
Set rs = objConn.Execute(strSQL)

'Udskriv top 5
placering = 1

do while (not rs.EOF)

Response.Write ("<tr><td valign='top' width='70'><a style='font-family:tahoma, verdana;font-size:12px;color:#000000;text-decoration:none;' href='review.asp?id=" & rs("Id") & "' title='" & rs("titel") & "'><img src='http://www.filmnet.dk/pics/" & rs("pic") & "' width='80' height='110' alt='" & rs("titel") & "' border='0'></a></td>")
Response.Write ("<td valign='top' style='border-bottom:solid;border-color:#000000;border-width:1px;font-family:tahoma, verdana;font-size:12px;color:#000000;'><a style='font-family:tahoma, verdana;font-size:12px;color:#000000;text-decoration:none;' href='review.asp?id=" & rs("Id") & "' title='" & rs("titel") & "'>" & rs("titel") & "</a> " & left(rs("omtale"),150) & "... <a style='font-family:tahoma, verdana;font-size:12px;color:#000000;text-decoration:none;' href='review.asp?id=" & rs("Id") & "' title='" & rs("titel") & "'>- Læs mere</a></td></tr>")

placering = placering + 1
rs.MoveNext
loop
%>

Synes godt om

dk_akj Nybegynder

19. november 2003 - 12:45 #3

do while (not rs.EOF)
ls = left(rs("omtale"),150)
' find sidste space
pos = instrrev(ls," ")

' kort ned igen
ls = left(ls,pos)

Response.Write ("<tr><td valign='top' width='70'><a style='font-family:tahoma, verdana;font-size:12px;color:#000000;text-decoration:none;' href='review.asp?id=" & rs("Id") & "' title='" & rs("titel") & "'><img src='http://www.filmnet.dk/pics/" & rs("pic") & "' width='80' height='110' alt='" & rs("titel") & "' border='0'></a></td>")
Response.Write ("<td valign='top' style='border-bottom:solid;border-color:#000000;border-width:1px;font-family:tahoma, verdana;font-size:12px;color:#000000;'><a style='font-family:tahoma, verdana;font-size:12px;color:#000000;text-decoration:none;' href='review.asp?id=" & rs("Id") & "' title='" & rs("titel") & "'>" & rs("titel") & "</a> " & ls & "... <a style='font-family:tahoma, verdana;font-size:12px;color:#000000;text-decoration:none;' href='review.asp?id=" & rs("Id") & "' title='" & rs("titel") & "'>- Læs mere</a></td></tr>")

placering = placering + 1
rs.MoveNext
loop

Synes godt om

plato Juniormester

19. november 2003 - 13:19 #4

Tusind tak :-)

Synes godt om

dk_akj Nybegynder

19. november 2003 - 13:58 #5

selvtak :-)

//akj

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	9	25/06/202622:20	29/06/202621:55
Tjek alle checkbox i form Af bsn i ASP	4	18/05/202601:57	19/05/202613:33
Lost focus Af bsn i ASP	1	07/11/202415:34	01/01/202514:58
ASP classic Af bsn i ASP	8	28/10/202423:11	30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP	5	23/05/202409:56	24/05/202400:02

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS