Invalid use of null med InStrRev

Ditt recordset rs innehåller förmodligen inga poster.

InstrRev(Left(rs("Infotext") & " ", 150), " "))

Nä, det trodde inte jag heller men kör jag en Response.Write rs("Infotext") så nog fan kommer det ut en massa text. (skrev en djäkla massa bara för att ha nått att testa med. :)

Det lustiga är att den inte verkar vilja känna av när jag kör InStrRev för att hitta mellanslagen. Tror kanske det är den som returnerar null. Men jag har ingen aning om varför och vad jag ska göra åt det? :/

If rs("Infotext")<>"" Then
If Len(rs("Infotext")) > 150 Then
  Response.Write Left(rs("Infotext"), InstrRev(Left(rs("Infotext"), 150), " ")) & _
  "<br><a href=""visa_info.asp?""" & rs("NID") & ">Läs mer här >>></a>"
Else
  Response.Write rs("Infotext") & "<br>"
End If
End If

InstrRev(Left(rs("Infotext") & " ", 150), " "))

Sorry missa ditt inlägg aleborg har du lust att förklara lite nogrannare?

Asch... du är ju för snabb för mig. ;)

If rs("Infotext")<>"" Then

Hmm... när jag testar ditt exempel aleborg så visar den inte infotexten alls?

Men kör jag bara en Response.Write så visar den massor?

Kan det ha med att den är av typen Text från databasen?

Just det. Textkolumner kan bara läsas en gång från ett recordset.

Tilldela värdet till en lokal variabel innan du börjar meka,

Dim strInfo

strInfo = Nz(rs("Infotext"), "")

If strInfo <> "" Then
  If Len(strInfo) > 150 Then
    Response.Write Left(strInfo, InStrRev(strInfo, " ", 150)) & _
    "<br><a href=""visa_info.asp?""" & rs("NID") & ">Läs mer här >>></a>"
  Else
    Response.Write strInfo & "<br>"
  End If
End If

Jaha? Kan de det? Det förklarar ju en del problem jag haft tidigare.

Tack för hjälpen allihop man lär så länge man lever. :)