nyhedting...

den lette er med left:

MAX_ANTAL_CHAR = 30
if len(dinStreng) > MAX_ANTAL_CHAR then
  response.write LEFT(dinStreng,MAX_ANTAL_CHAR) & "..."
else
  response.write dinStreng
end if

eller:

<a href=laes_nyhed.asp?id=<%=rs("id")%>><%= left(rs("tekst"),50)%></a>

Her en function som klipper i en lang linie ved et mellemrum bagud, angiv streng og længde:


Function CutString (YourString, intCut)
if len(YourString) > intCut then
  posstart = InStrRev(YourString, " ",intCut)
  if (posstart <> 0) then
    YourString = Left(YourString, posstart) & "..."
    Exit Function
  end if
end if
CutString = YourString
End function


Response.write CutString(dinStreng,75)

mener nu min er nemmere :)

Jeps den klikker også fuldstændig ukritsik selv midt i ord. Ligeledes sætter min ... så man kan se at der er mere til strengen og ikke bare slutter under

men så kan denne kode jo komme ind

      <%
      If len(rs("tekst")) > 50 then
      Response.Write "...(<a href=laes_nyhed?ID="& rs("ID") &"' onfocus='blur()'>læs mere</a>)"
      End if     
      %>

altså :

<%= left(rs("tekst"),50)%><%
      If len(rs("tekst")) > 50 then
      Response.Write "...(<a href=laes_nyhed?ID="& rs("ID") &"' onfocus='blur()'>læs mere</a>)"
      End if     
      %>

Ja, men skal vi nu ikke lade agg-zeus bruger en af de to eller måske endda en blanding af vores forslag som passer til hans ønsker/behov til koden.

Hvis der nu er krav om at der kun må klippes i et mellemrum for ikke at hvavde halve ord i teksten, så skal man havde lidt mere kode som jeg har vist...

eagleye får pointne, da jeg synes hans løsning er bedst... Takker...

Har et lille problem, den siger hele tiden at "variablen posstart er udefineret" ! Hvorfor det!?

Hele scriptet ser således ud:



set rs = server.createobject("adodb.recordset")


sql = "Select top 3 * from news Order by maanedaar desc, dag desc;"
rs.open sql,cn
Dim posstart
Function CutString (YourString, intCut)
if len(YourString) > intCut then
  posstart = InStrRev(YourString, " ",intCut)
  if (posstart <> 0) then
    YourString = Left(YourString, posstart) & "..."
    Exit Function
  end if
end if
CutString = YourString
End function

Do While not rs.EOF



Dim nyhed
nyhed = Replace(rs.fields("nyhed"),"''","'")
nyhed = CutString(nyhed,75)


Response.Write "<tr><td><div class=""infobox"">"&rs.fields("dag")&"-"&rs.fields("maanedaar")&" <br>" _
& "<i>"&nyhed&"</i><br>&nbsp;&nbsp;&nbsp;[<a href='asp/newsall.asp?newsid="&rs.fields("newsid")&"' target='center'>Læs mere</a>]</div></td></tr>" _
& "<tr><td><hr size=""1"" color=""#CCCCCC""></td></tr>"

    rs.movenext
Loop

du skal nok havde Dim posstart ind i functionen:


Function CutString (YourString, intCut)
Dim posstart
if len(YourString) > intCut then
  posstart = InStrRev(YourString, " ",intCut)
  if (posstart <> 0) then
    YourString = Left(YourString, posstart) & "..."
    Exit Function
  end if
end if
CutString = YourString
End function

Nu skriver den ikke nogen nyhed... der er bare tomt!!!

Function CutString (YourString, intCut)
Dim posstart
if len(YourString) > intCut then
  posstart = InStrRev(YourString, " ",intCut)
  if (posstart <> 0) then
    CutString = Left(YourString, posstart) & "..."
    Exit Function
  end if
end if
CutString = YourString
End function

eagleeye >>> Jeg kan ikke få det til at virke...

Prøv den sidste der er en lille retelse i...

Lækkert... nu virker den.. tak..