HTMLencode

Tja! varför får jag detta fel?

Microsoft VBScript runtime error '800a000d' 

Type mismatch: 'server.HTMLEncode' 

/kommun/Andratext.Asp, line 3

Kod:

Function byt(strText) 
strText = Replace(server.HTMLEncode(strText),vbCrlf,"<br>")
Set objRegExp = New regexp
objRegExp.Global = true
objRegExp.IgnoreCase = true
objRegExp.Pattern = "([url]http://[/url](\w|\.|/|-|\?|=|&|;|~){1,}\w*)"
strText = objRegExp.Replace(strText,"<a href='$1' target='_blank'>$1</a>")

Vad finns på rad 3 i Andratext.asp?

Jag antar att det är denna rad:

strText = Replace(server.HTMLEncode(strText),vbCrlf,"<br>")

Men det är ju inget fel på den, och du har ju inte bifogat all kod, så det är lite svårt att säga tycker jag iaf.

Trodde inte jag behövde all kod! Det är en include fil!

<% 
Function byt(strText) 
strText = Replace(server.HTMLEncode(strText),vbCrlf,"<br>")
Set objRegExp = New regexp
objRegExp.Global = true
objRegExp.IgnoreCase = true
objRegExp.Pattern = "([url]http://[/url](\w|\.|/|-|\?|=|&|;|~){1,}\w*)"
strText = objRegExp.Replace(strText,"<a href='$1' target='_blank'>$1</a>") 

strText = Replace(strText,"[r]","<font color=""red"">") 
strText = Replace(strText,"[/r]","</font>") 
strText = Replace(strText,"[b]","<font color=""blue"">") 
strText = Replace(strText,"[/b]","</font>") 
strText = Replace(strText,"[g]","<font color=""yellow"">")
strText = Replace(strText,"[/g]","</font>")
strText = Replace(strText,"[f]","<b>") 
strText = Replace(strText,"[/f]","</b>") 
strText = Replace(strText,"[c]","<center>") 
strText = Replace(strText,"[/c]","</center>")
strText = Replace(strText,"[h]","<right>")
strText = Replace(strText,"[h]","</right>") 
strText = Replace(strText,":D","<img src='bilder/smile/D.gif'>")
strText = Replace(strText,";)","<img src='bilder/smile/;).gif'>")
strText = Replace(strText,":)","<img src='bilder/smile/).gif'>")
strText = Replace(strText,":P","<img src='bilder/smile/p.gif'>")
strText = Replace(strText,":birp","<img src='bilder/smile/DD.gif'>")
strText = Replace(strText,"8)","<img src='bilder/smile/cool.gif'>")
strText = Replace(strText,"8P","<img src='bilder/smile/blah.gif'>")
strText = Replace(strText,"[D]","<img src='bilder/smile/devel.gif'>")
strText = Replace(strText,"(d)","<img src='bilder/smile/teufel041.gif'>")
strText = Replace(strText,"!D","<img src='bilder/smile/devilgrin.gif'>")
strText = Replace(strText,":?","<img src='bilder/smile/fragend001.gif'>")
strText = Replace(strText,"[h]","<img src='bilder/smile/huepfen015.gif'>")
strText = Replace(strText,"(i)","<img src='bilder/smile/idea.gif'>")
strText = Replace(strText,"(h)","<img src='bilder/smile/liebe009.gif'>")
strText = Replace(strText,"(m)","<img src='bilder/smile/musik001.gif'>")
strText = Replace(strText,":(","<img src='bilder/smile/sauer022.gif'>")
strText = Replace(strText,":=","<img src='bilder/smile/shame.gif'>")
strText = Replace(strText,":o","<img src='bilder/smile/redface.gif'>")
strText = Replace(strText,"(s)","<img src='bilder/smile/stud.gif'>")
strText = Replace(strText,":'(","<img src='bilder/smile/traurig001.gif'>")
strText = Replace(strText,"Lunarstorm","DiDjo")

byt = strText 
End Function

O där jag skriver ut de:

<%if rs1("ager") = "Villa" OR rs1("ager") = "Lägenhet" OR rs1("ager") = "Lyx Villa" then
if rs2("present") = True then
if rs1("kort") = "" then
response.write("Jag har inte skrivit något!")
else%>
<%=byt(rs1("kort"))%>
<%end if%>
<%else%>
  Jag äger ingen Presentation
  <%end if
  else%>
  Jag äger ingen Presentation
  <%end if%>

Det blir det felet, när man inte skrivit nått!

Betyder det att du försöker skicka in null i funktionen?

Function byt(strText)
strText = "" & strText
.......
.......

tackar!