12 svar · 365 visningar · startad av Pellefant
Hej!
Hur gör man om man vill ha tre punkter "..." direkt efter det 26:e tecknet, om titeln är 26 eller fler tecken.
<A HREF="saljes.asp?sort=datum"><b><%=RecSet("titel")%>
Förmodar att det är med len(RecSet("titel"))>26 på ngt sätt, men får inte ihop det riktigt.
Ett exempel:
strTitel = RecSet("titel")
if Len(strTitel) > 26 then
Response.write Left(strTitel, 26) & "..."
Else
Response.write strTitel
End if
Mvh,
Kul att det fungerar!
Jag kikade på din sida, och titt som tätt dyker detta fel upp:
Active Server Pages error 'ASP 0113'
Script timed out
/Default.asp
The maximum amount of time for a script to execute was exceeded. You can change this limit by specifying a new value for the property Server.ScriptTimeout or by changing the value in the IIS administration tools.
På olika ställen dessutom, men speciellt på högersidan. :(
Dessutom står det med fetstil i informationstexten på sidan, tre gånger, studenbok.com. Kanske något att fixa till? ;)
mvh,
Hej! :)
Nu är det bara fetstil första gången. :)
mmm, jag har också märkt nu under morgonen att scripten ibland time:ar ut, det var ännu värre för någon timme sedan, då var sidan verkligen seg som sirap, så jag kollade på https://www.kritan.net som hostar min sida, och testade med några andra sidor som också är hostade där, och dessa gick också segt då. Första gången jag märkt att det är segt, i vanliga fall brukar dock sidan vara normalsnabb, så det är nog bara något tillfälligt, förhoppningsvis.
Nu var det inte just fetstilen jag reagerade på, utan snarare att det saknades ett t i studentbok på alla ställen. ;)
Mvh
Opps!.
Tack för att du skrev det. Nu är de feta och rättstavade igen. :)
Nu verkar även sidan ladda snabbt igen, inga time out längre, så det var nog bara tillfälligt igår. :)
Jag kommer inte in överhuvudtaget. :(
Lite korkat att göra strängen längre om den är t.ex. 27 tecken. Bättre då att skriva:
strTitel = RecSet("titel")
if Len(strTitel) > 26 then
Response.write Left(strTitel, 23) & "..."
Else
Response.write strTitel
End if
Josef skrev:
Jag kommer inte in överhuvudtaget. :(
Inte jag heller :( Brukar inte vara såhär...
Kommer inte heller in på http://www.kritan.net nu (webbhotellet)
Brukar fungera utmärkt annars dock. (förutom tidvis igår).
Skickade admin ett mail nu, så de ska nog komma upp snart igen.
Eller så kan man använda en funktion...
Function CutString(ByVal sStr, lMaxLength)
If Len(sStr) > lMaxLength Then
CutString = Left(sStr, lMaxLength - 3) & "..."
Else
CutString = sStr
End If
End Function
Tack för förslagen Erik.
Nu är den uppe sedan några timmar igen. :)