2 svar · 431 visningar · startad av DavidB
Jag laddade hem forumet från Mikrodatorns hemsida och nu har jag ändrat lite men det är några funktioner som jag inte får att fungera:
När jag har följande kod:
<%= radbryt(HTMLtecken(RS3("Comment")))%>
felet är följande
Körningsfel i Microsoft VBScript fel '800a000d'
Inkompatibla typer: 'Server.HTMLEncode'
/forum/functions.inc, rad 27
funktionen HTMLtecken ser ut fäljande:
Function HTMLTecken(txtString)
txtString = Server.HTMLEncode(Trim(txtString))
HTMLTecken = txtString
End Function
och funktionen radbryt ser ut följande
Function Radbryt(rfix)
rfix = "<P>" & Replace(rfix, vbCrLf, "<br>") & "</P>"
Radbryt = rfix
End Function
om jag bara använder funktionen radbryt så uppkommer följande fel:
Körningsfel i Microsoft VBScript fel '800a005e'
Ogiltig användning av Null: 'Replace'
/forum/functions.inc, rad 45
Rad 45 är följande
rfix = "<P>" & Replace(rfix, vbCrLf, "<br>") & "</P>"
och rad 27
txtString = Server.HTMLEncode(Trim(txtString))
dessa fel är väldigt störande för annars kan ju folk skriva in HTML i sina inlägg och förstöra forumet.
------------------
// David
Hmm, jag kollade igenom lite snabbt och det jag kan tänka mig på rak arm är att RS3("Comment") inte är initierad rätt eller att den inte innehåller något (null). Testa att byta ut RS3("Comment") mot en hårdkodad textsträng typ "hejsan" i din kod och se om du fortfarande får fel, om inte så är det något knas med RS3..
------------------
per@svanstrom.nu
www.svanstrom.nu
jag fixade det men fattar fortfarande inte vad som var fel. Jag gjorde så att jag kopigerade
<%= HTMLtecken(RS3("namn"))%>
och ersatte namn med comment sedan lade jag till en funktion i taget. Jag tycker detta var ganska konstigt att det fungerade för det var ju samma kod som innan fast den var inskrivet på annat sätt.
------------------
// David