Räkna tecken

8 svar · 308 visningar · startad av andreas_lindh 27 feb. 2002

andreas_lindhMedlem sedan jan. 20011 140 inlägg

Frågan27 feb. 2002 10:13#1

Hur ska jag få det här att fungera.

<% if len(rsn("nyhet")) < 200 then %>
<%=radbryt(fetstil(Geturl(htmlkod(fixatecken(rsn("nyhet")))))) %> 
<% else %>
<% nyhet=left(radbryt(fetstil(Geturl(htmlkod(fixatecken(rsn("nyhet")))))),200) 
response.write nyhet 
response.write "<br>"
response.write "<a href=""javascript:news "& rsn("Id")()&""">Läs mer</a>"
end if
%>

Jag får ett felmeddelande:
Körningsfel i Microsoft VBScript (0x800A005E)
Ogiltig användning av Null: 'Replace'
/tik2002/functions.inc, line 40

Och funktionen är.

Function FixaTecken(sfix)

sfix = Replace(Trim(sfix), "'", "''")
sfix = Replace(sfix, "|", "")
FixaTecken = sfix

End Function

@ndersMedlem sedan juni 200032 967 inlägg

27 feb. 2002 10:53#2

Function FixaTecken(sfix)
if not isnull(sfix) then
sfix = Replace(Trim(sfix), "'", "''")
sfix = Replace(sfix, "|", "")
FixaTecken = sfix
else
FixaTecken = ""
end if
End Function

Mvh,

andreas_lindhMedlem sedan jan. 20011 140 inlägg

27 feb. 2002 12:08#3

Får fortfarande samma fel.

@ndersMedlem sedan juni 200032 967 inlägg

27 feb. 2002 12:18#4

Öh? Och felet härstammar i den funktionen?

Då provar vi igen.

Function FixaTecken(sfix)
sfix = "" & sfix
sfix = Replace(Trim(sfix), "'", "''")
sfix = Replace(sfix, "|", "")
FixaTecken = sfix
End Function

Mvh,

andreas_lindhMedlem sedan jan. 20011 140 inlägg

27 feb. 2002 14:31#5

Nu får jag inga felmeddelanden men det enda som skrivs ut är läs mer. Nyheten skrivs inte ut.
Är det något fel på det här?

<% if len(rsn("nyhet")) < 200 then %>
<%=radbryt(fetstil(Geturl(htmlkod(fixatecken(rsn("nyhet")))))) %> 
<% else %>
<% left(radbryt(fetstil(Geturl(htmlkod(fixatecken(rsn("nyhet")))))),200) 
 %>
<%
response.write "<br>"
response.write "<a href=""javascript:news()"">Läs mer</a>"
end if
%>

@ndersMedlem sedan juni 200032 967 inlägg

27 feb. 2002 14:37#6

Är nyhet av typen PM/Memo?

I så fall måste du:

Specificera fältet sist i SELECT-listan i SQL-frågan
Lägga in det i en variabel när du hämtat recordsetet, och sedan använda variabeln.

Det beror på en begränsning som finns i ADO.

Mvh,

andreas_lindhMedlem sedan jan. 20011 140 inlägg

27 feb. 2002 14:44#7

Ja nyhet är ett pm fält

Skulle du kunna visa lite kod?

BrimbaMedlem sedan dec. 19995 874 inlägg

27 feb. 2002 15:20#8

testa med:

<% myNews = rsn("nyhet") %>
<% if len(myNews) < 200 then %>
<%=radbryt(fetstil(Geturl(htmlkod(fixatecken(myNews))))) %> 
<% else %>
<% left(radbryt(fetstil(Geturl(htmlkod(fixatecken(myNews))))),200) 
 %>
<%
response.write "<br>"
response.write "<a href=""java script:news()"">Läs mer</a>"
end if
%>

andreas_lindhMedlem sedan jan. 20011 140 inlägg

27 feb. 2002 15:42#9

Tack. Nu fungerar det