fncTextChange problem ASP
Hejsa NG.Jeg har lidt problemer med min fncTextChange, som sjovt nok virker på en helt anden side af min.
Den virker kun indtil , derefter stopper den. Nogen der kan hjælpe?
<%
strSQL = "SELECT * FROM forumindlaeg WHERE replyid = '"& rs6("id")&"' ORDER BY id"
Set rs7 = objConn.Execute(strSQL)
Function fncTextChange(strText)
strTekst = Trim(strText)
fncTextChange = Replace(strTekst,"'","'")
fncTextChange = Replace(fncTextChange,"""","""")
fncTextChange = Replace(fncTextChange," "," ")
fncTextChange = Replace(fncTextChange,vbCrLf,"<BR>")
fncTextChange = Replace(fncTextChange,"","<b>")
fncTextChange = Replace(fncTextChange,"","</b>")
fncTextChange = Replace(fncTextChange,"","<i>")
fncTextChange = Replace(fncTextChange,"","</i>")
fncTextChange = Replace(fncTextChange,"","<u>")
fncTextChange = Replace(fncTextChange,"","</u>")
fncTextChange = Replace(fncTextChange,"[link]","<a href='")
fncTextChange = Replace(fncTextChange,"[/link]","' target='_new'>Link</a>")
fncTextChange = Replace(fncTextChange,"[spoiler]","Marker for at læse:<br><font color='#EFEFEF'>")
fncTextChange = Replace(fncTextChange,"[/spoiler]","</font>")
fncTextChange = Replace(fncTextChange,"lort","censur")
fncTextChange = Replace(fncTextChange,"Lort","censur")
fncTextChange = Replace(fncTextChange,"Pis","censur")
fncTextChange = Replace(fncTextChange,"pisse","censur")
fncTextChange = Replace(fncTextChange,"røven","censur")
fncTextChange = Replace(fncTextChange,"fuck","censur")
fncTextChange = Replace(fncTextChange,"FUCK","censur")
fncTextChange = Replace(fncTextChange,"Fuckt","censur")
fncTextChange = Replace(fncTextChange,"fock","censur")
fncTextChange = Replace(fncTextChange,"boller","censur")
fncTextChange = Replace(fncTextChange,"porno","censur")
fncTextChange = Replace(fncTextChange,"smatso","censur")
fncTextChange = Replace(fncTextChange,"bøsse","censur")
fncTextChange = Replace(fncTextChange,"røvhul","censur")
fncTextChange = Replace(fncTextChange,"røv","censur")
fncTextChange = Replace(fncTextChange,"RØV","censur")
fncTextChange = Replace(fncTextChange,"spasser","censur")
fncTextChange = Replace(fncTextChange,"kæft","censur")
fncTextChange = Replace(fncTextChange,"KÆFT","censur")
fncTextChange = Replace(fncTextChange,"fucking","censur")
fncTextChange = Replace(fncTextChange,"@","Dele af mailadresse slettet!")
End Function
if rs7.eof or rs7.bof then
Response.Write"<table cellpadding='0' cellspacing='0' width='98%'>"
else
do while not rs7.EOF
i = i + 1 %>
<table cellpadding="0" cellspacing="0" width="98%">
<tr>
<td colspan="3" height="10"></td>
</tr>
<tr>
<td colspan="3" valign="center">
<table cellpadding="0" cellspacing="0" width="100%">
<tr>
<td width="100%" class="forum_comment_top">#<%Response.Write(""& i &"")%> | <%=rs7("forfatter")%> skrev d. <%=rs7("dato")%></td>
<td width="20" class="forum_comment_top"><a href="#TOP"><img src="grafik/gfx/arrowup.gif" border="0"></a></td>
</tr>
</table>
</td>
</tr>
<tr>
<td colspan="3" class="gery_background" height="2">
</td>
</tr>
<tr>
<td valign="top" width="150" class="forum_comment_user" align="center" valign="top"><img src="grafik/images/avatar/<%=rs7("avatar")%>.gif"><p><span class='list_font_link_4'>Antal indlæg:
<%
AntalKommentarerUser=0
Set rsUser=objConn.Execute("SELECT COUNT(*) FROM forumindlaeg where forfatter LIKE '" & rs7("forfatter") & "'")
AntalKommentarerUser=rsUser(0).Value
Response.Write "" & AntalKommentarerUser & "</span>"
%>
</p></td>
<td class="grey_background" width="2"></td>
<td class="forum_comment_indhold" valign="top" width="88%"><%Response.Write("" & fncTextChange(rs7("indhold"))& "")%><br><br><i>
<%if "citat" <> "" then
Response.Write("<span class='list_font_link_3'>"&rs7("citat")&"</span>")
else
Response.Write("")
End if%></td>
</tr>
<%
rs7.MoveNext
loop
end if
%>
