MÅ IK SPAMMES I TAGWALL!

ka jeg ik lave en funktion så folk i OVerspammer
min Tagwall med fis????  link www.friserverplads.dk/zob/tag fordi jeg har en masse billeder og i dag var der en som jeg tror at han skrev [ak] 100 gange og så ku min Tagwall ik vises ka man ik lave en Funktion så de ik kan overspamme den med billeder og tekst`???
jeg viser jer index.asp men er ik sikker på at det er den som der skal laves noget i
her får i den så :)
:
<%
Session.LCID = 1030
%>
<%
If (Request("Mode")) = "Add" then
                Response.Redirect("add.asp")       
END IF
%>
<%
Response.Buffer = True

Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("tagwall.mdb")
    Set rs = Server.CreateObject("ADODB.RecordSet")
    strSQL = "SELECT * FROM TagWall ORDER BY dato DESC"
    rs.Open strSQL, myConn, 1, 3
%>
<html>
<head>
<META NAME="Generator" CONTENT="Microsoft FrontPage 5.0">
<!-- Minus AutoDato -->
<link rel="stylesheet" type="text/css" href="../style.css">
<title> ZoB-> Tagwall</title>
</head>
<body Link="#000000">
<table border="0" cellpadding="0" cellspacing="0" width="550" align=center>
<tr>
        <td height="15" Background="../build/3-1.gif" align="center"
          style="font-size:12px; font-weight: bold">
          .... TagWall ....</td>
        </tr>
</table>

<body>
<center>
<table border="0" cellpadding="2" cellspacing="0">
  <tr>
    <td align="center"><a href="index.asp?Mode=Add"><small><font face="Verdana">Opret Tag</font></small></a></td>
  </tr>
</table>
</center><BR>
<%
intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
    intPage = 1
End If

Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("tagwall.mdb")
    Set rs = Server.CreateObject("ADODB.RecordSet")
    strSQL = "SELECT * FROM TagWall ORDER BY dato DESC"
    rs.Open strSQL, myConn, 1, 3
If Not (rs.BOF Or rs.EOF) Then
    rs.PageSize = 12
    rs.AbsolutePage = intPage
    intRecCount = rs.PageSize
    intPageCount = rs.PageCount
  Do While Not rs.EOF And intRecCount > 0
  intRecCount = intRecCount - 0
%>
<%
besked = rs("besked")
navn = rs("navn")
emne = rs("emne")

besked = Replace(besked, "<", "&lt;")
besked = Replace(besked, ">", "&gt;")
besked = Replace(besked, "", "<b>")
besked = Replace(besked, "", "</b>")
besked = Replace(besked, "", "<i>")
besked = Replace(besked, "", "</i>")
besked = Replace(besked, "", "<u>")
besked = Replace(besked, "", "</u>")
besked = Replace(besked, ":(", "<img src=""billeder/smileys/sur.gif"">")
besked = Replace(besked, ":)", "<img src=""billeder/smileys/smil.gif"">")
besked = Replace(besked, "[tunge]", "<img src=""billeder/smileys/tunge.gif"">")
besked = Replace(besked, "[cool]", "<img src=""billeder/smileys/cool.gif"">")
besked = Replace(besked, "[ak]", "<img src=""billeder/smileys/ak.gif"">")
besked = Replace(besked, "[ryg]", "<img src=""billeder/smileys/ryg.gif"">")
besked = Replace(besked, "[op]", "<img src=""billeder/smileys/op.gif"">")
besked = Replace(besked, "[ned]", "<img src=""billeder/smileys/ned.gif"">")
besked = Replace(besked, "[bah]", "<img src=""billeder/smileys/bah.gif"">")
besked = Replace(besked, "[skummel]", "<img src=""billeder/smileys/skummel.gif"">")
besked = Replace(besked, "[aug]", "<img src=""billeder/smileys/aug.gif"">")
besked = Replace(besked, "[mp5]", "<img src=""billeder/smileys/mp5.gif"">")
besked = Replace(besked, ":O", "<img src=""billeder/smileys/suprise.gif"">")
besked = Replace(besked, "[colt]", "<img src=""billeder/smileys/colt.gif"">")
besked = Replace(besked, "[vink]", "<img src=""billeder/smileys/vink.gif"">")
besked = Replace(besked, ":D", "<img src=""billeder/smileys/big.gif"">")
besked = Replace(besked, "?", "<img src=""billeder/smileys/spm.gif"">")
besked = Replace(besked, "[lol]", "<img src=""billeder/smileys/lol.gif"">")
besked = Replace(besked, "[sej]", "<img src=""billeder/smileys/sej.gif"">")

besked = Replace(besked, vbCrLf, "<br>")

navn = Replace(navn, "<", "&lt;")
emne = Replace(emne, "<", "&lt;")
%>
<CENTER>
<table border="0" bgcolor="#000000" cellpadding="0" cellspacing="0"  width="550">
  <tr>
    <td BGCOLOR="#669966" height="15" width="370">&nbsp;<img src="<% =RS("funimg")%>.gif" alt="Fun" border="0"> <small>#</small>
<%
If rs("url") = "" Then

      Response.Write "<img src=billeder/tagwall/homepage.gif alt='Ingen hjemmeside' border=0 WIDTH=14 HEIGHT=14>"
    Else
    Response.Write "<a href=http://"& rs("url") &" target=_blank><img src=billeder/tagwall/homepage.gif alt='Gå til: "& rs("url") &"' border=0 WIDTH=14 HEIGHT=14></a>"
    End If
%>
<a href="mailto:<%=RS("email")%>">
    <img src="billeder/tagwall/mail.gif" border="0" alt="Send post til: <%=RS("navn")%>" WIDTH="14" HEIGHT="11"></a>
<small><font face="Verdana"># <strong>
<a navn="<% =RS("emne")%>"></a>
<% =RS("emne")%></strong></font></small></td>
    <td BGCOLOR="#669966" WIDTH="250"><p align="right"><small><% =RS("dato")%>
    </small></td>
    <td BGCOLOR="#669966"><% nydato = dateadd("d", 1 , RS("dato"))
If nydato > Date() Then%>
<FONT SIZE="-1" COLOR="RED">
    Ny</FONT><% End If %></td>
  </tr>
  <tr>
    <TD VALIGN="top" bgcolor="#ffffff" WIDTH="700"><BR><p align="left"><%=besked%><br><br><br><font color="#800000" face="Verdana" SIZE="1">-&nbsp; <%=RS("navn")%></font></td>
    <td width="585" bgcolor="#ffffff" colspan="3" height="30"><p align="right"></P>
<%
If rs("icq") = "" Then

      Response.Write "<P ALIGN=right><font SIZE=1>Ingen ICQ</FONT></P>"
    Else
    Response.Write "<P ALIGN=right><font SIZE=1>ICQ:</FONT> <a href=http://wwp.icq.com/scripts/contact.dll?msgto="& rs("icq") &"><img src=http://wwp.icq.com/scripts/online.dll?icq="& rs("icq") &"&amp;img=2 alt=ICQ #"& rs("icq") &" border=0></a></P>"
    End If
%>
    <p align="right">IP: <% =RS("IP")%></P><BR> </td>
  </tr>
</table>
</center>
<BR>
<%
    intRecCount = intRecCount - 1
    rs.MoveNext
    Loop
End If
rs.Close
Set rs = Nothing
Response.Write "<CENTER>"
    Response.Write "<TABLE WIDTH=400 HEIGHT=25 BORDER=0><TR><TD>"
Response.Write "<FONT SIZE=1>Gå til side:</FONT></TD>"
Response.Write "<TD ALIGN=center>"
If Clng(intPage) > 1 Then
    Response.Write "<FONT SIZE=1><a href=index.asp?page=" & intPage - 1 & ">&lt;&lt;</a></FONT>"
Else
    Response.Write "<FONT SIZE=1>&lt;&lt;</FONT>"
End If

Response.Write "&nbsp;"
For intNum = 1 To intPageCount
    Response.Write "<FONT SIZE=1><a href=index.asp?page=" & intNum & ">" & intNum & "</a></FONT> "
Next
If Clng(intPage) < Clng(intPageCount) Then
    Response.Write "<FONT SIZE=1><a href=index.asp?page=" & intPage + 1 & ">&gt;&gt;</a></FONT>"
Else
    Response.Write "<FONT SIZE=1>&gt;&gt;</FONT>"
End If
    Response.Write "</TD><TD ALIGN=right><FONT SIZE=1>Side " & intPage & " af " & intPageCount & "</FONT></TD></TR></TABLE>"
Response.Write "</CENTER>"
%>
<BR>
<CENTER><A HREF="login.asp">Adminsystem</A></CENTER>
</body>
</html>