fel helt plötsligt - Type mismatch: 'HTMLEncode'

Hej!
Jag får helt plösligt ett fel i min gästbok.

Microsoft VBScript runtime error '800a000d'

Type mismatch: 'HTMLEncode'

/gastbok_las.asp, line 114

Det funkart att loopa ut meddelandena med <%=replace(server.HTMLEncode(RS("MESSAGE")),vbcrlf,"<br>")%>

Men inte svaren....
<%=replace(server.HTMLEncode(RS("REPLY")),vbcrlf,"<br>")%>

skriver jag därmeot <%=rs("REPLÝ")%> så funkar det....

<%

sql = "SELECT * from gastbok where sort='OK' order by DAT desc"

rs.open sql, mincon, 3, 3

intsida=trim(Request.QueryString("sida"))
if intsida = "" then
intsida = 1
else
intsida = cint(intsida)
end if

%>

<table border="0" cellpadding="3" cellspacing="0" ALIGN="CENTER">

<caption>Läs i gästboken</caption>

<tr>
	<td colspan="2"></td>
</tr>
				
<tr>
	<td colspan="2" height="20">&nbsp;</td>
</tr>

<tr>
	<td colspan="2" height="20" align="center" class="brodtext"><a href="gastbokmain.htm">Klicka här för att skriva i gästboken</td>

</tr>

<tr>
	<td colspan="2" height="20">&nbsp;</td>
</tr>
<tr>

	<td>

<%
if rs.EOF=true then 
Response.Write("Det finns inga inlägg i gästboken")
else
rs.PageSize = 5
rs.AbsolutePage = intsida
end if
%>

<%
do until rs.eof or intantal >= rs.PageSize
intantal = intantal + 1
%>

<table border="1" cellpadding="0" cellspacing="0" align="center" width="460" bordercolor="#ffffff">

<tr><td bordercolor="#808080">

<table border="0" cellpadding="3" cellspacing="0" align="center" width="460">

<tr>

	<td width="15" class="mrubrik" background="bilder/gbtop.gif"><img src="bilder/<%=rs("SMILE")%>"></td>
<td background="bilder/gbtop.gif" class="mrubrik"><a href="mailto:<%=rs("EMAIL")%>"><%=rs("NAME")%></a> från <%=rs("CITY")%> | <a href="mailto:<%=rs("EMAIL")%>" title="<%=rs("EMAIL")%>">E-post</a> | </b> <a href="<%=rs("HOMEPAGE")%>" target="_blank" title="<%=rs("HOMEPAGE")%>">Hemsida</a></td>
<td class="mrubrik" align="right"><%=rs("DAT")%></td>
	
</tr> 

<tr>
	<td width="25%" class="brodtext" colspan="3"></td>
</tr>

<tr>
	<td colspan="3" class="brodtext"><b>Meddelande:</b><br>

<%=replace(server.HTMLEncode(RS("MESSAGE")),vbcrlf,"<br>")%><br><br></td>	
</tr>

<tr>
	<td colspan="3" class="brodtext" bgcolor="#F3F7FA"><i>Svar:<br>

<%=replace(server.HTMLEncode(RS("reply")),vbcrlf,"<br>")%>

</i></td>
</tr>

</table>

</td></tr></table><br>

<%
rs.movenext
loop
%>

<table border="1" cellpadding="0" cellspacing="0" align="center" width="460" bordercolor="#ffffff">

<tr><td>

Sida: <%if rs.Pagecount > 1 then 
for i = 1 to rs.PageCount
if i <> intsids then 
Response.Write("<a href='gastbok_las.asp?sida=" & I & "' & > " & I & " -</a>") 

	else
	Response.Write(I & " " )
	end if
	next
end if

%>

</td></tr>

</table>