En tagwall...

Hey... jeg har en tagwall: http://www.friserverplads.dk/webster/tagwall/tagwall.asp

- Når man tagger, og så skriver et link, og derefter skriver en tekst, så viser den somom teksten derefter OGSÅ er et link... det skal den ikke.. nogen der kan hjælpe mig?

Koden er følgende:

<%
'---------------------------------------------'
'Denne source er lavet af:                    '
'Henrik Urlund (tjaz@tjaz.dk)                '
'ICQ: 112401036                              '
'                                            '
'Nyeste update af denne tagwall kan altid    '
'findes på adressen: www.tjaz.dk              '
'---------------------------------------------'
    Response.Expires = 0
    response.buffer = true
    side = Request.QueryString("side")
   
    Function Dato(date)
    Dato = day(date) & "/" & month(date)
    End Function
   
    Function LinkTekst(Tekst)
    LinkTekst = ""
    A_Start = 1

    if InStr(Tekst, "www") then
    do until A_Start >= len(Tekst)
    LinkChr = InStr(A_Start, Tekst, "www")
    NextSpace = InStr(LinkChr, Tekst, "" & "<br>")

    if NextSpace = 0 then NextSpace = Len(Tekst) + 1

    URL = Mid(Tekst, LinkChr, NextSpace - LinkChr)

    LinkTekst = LinkTekst & Mid(Tekst, A_Start, LinkChr - A_Start)
      LinkTekst = LinkTekst & "<A href=http://" & URL & " class=overskrift>" & URL & "</A>"

      if Int(LinkChr) = Int(InStrRev(Tekst, "www")) then
      LinkTekst = LinkTekst & Mid(Tekst, NextSpace, Len(Tekst) - A_Start)
    A_Start = Len(Tekst)
    else
    A_Start = NextSpace
    end if
    loop
    else
    LinkTekst = Tekst
    end if
    End Function

    Set conn = Server.CreateObject("ADODB.Connection")
    Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("tagwall.mdb")
%>
<html>
<head>
<LINK REL="stylesheet" TYPE="text/css" HREF="http://webmok.web1000.com/tagwall.css">
<title>Tagwall v0.3</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<script language="JavaScript">
<!-- Gem koden for gamle browsere

function PopWin(url,h,w) {
popupWin = window.open(url, 'popup', 'scrollbars,height=' + h + ',width=' + w + ',top=50,left=25')
}
// -->
</script>
</head>

<body bgcolor="#000000" text="#ffffff" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" link="#FFFFFF" vlink="#FFFFFF" alink="#FFFFFF">
<br>
<div align="center"> <b><font class="font">Tagwall</font> <font face="Verdana" size="3"><i><br>
  </i></font>
  </b>
  <%
if side = "" then
    set instillinger = conn.execute("SELECT * FROM instillinger")
    set rs = conn.execute("SELECT * FROM tags ORDER BY id DESC")
    if rs.eof or rs.bof then
    response.write("<p><font face='Verdana' size='2'>Der er ingen beskeder i tagwall'en :(</font></p><p><a href='?side=skriv_tag'><font class='font'>Opret tag</font></a></p>")
    else
    response.write ("<p><a href='?side=skriv_tag'><font class='font'>Opret tag</font></a></p>")
    do until rs.eof
%>
  <table width="500" border="0" cellspacing="0" cellpadding="3" height="18" bgcolor="#333333" style="border: 1 solid #333333">
    <tr>
      <td height="1%">
        <table width="100%" border="0" cellspacing="0" cellpadding="0" height="15">
          <tr>
            <td width="5" height="8"> <font face="Verdana" size="1"></font></td>
            <td width="369" height="8"><% if rs("email") = "" then %><font class='linkcolor'><%=rs("forfatter")%></font><% else %><a href='mailto:<%=rs("email")%>' class='linkcolor'><%=rs("forfatter")%></font></a><% end if %></b></font></td>
            <td width="122" height="8"><b><font class="font">Skrevet
              d. <%=Dato(rs("dato"))%></font></b></td>
          </tr>
        </table>
      </td>
    </tr>
    <tr>
      <td bgcolor="#<% if rs("bokscolor") <> "" then response.write rs("bokscolor") else response.write ("000011") end if %>">
        <table width="100%" border="0" cellspacing="0" cellpadding="0" height="58">
          <tr>
            <td height="5" colspan="2"></td>
          </tr>
          <tr>
            <td width="5">&nbsp;</td>
            <td width="481"><font class="font">
<%
besked = rs("besked")
besked = replace(besked, vbcrlf, "<br>")
besked = replace(besked, "Www", "www")
besked = replace(besked, "wWw", "www")
besked = replace(besked, "wwW", "www")
besked = replace(besked, "WWW", "www")
besked = replace(besked, "[webyellow]", "<font class='overskrift'>")
besked = replace(besked, "[webgreen]", "<font color='green'>")
if instillinger("html") = True then
besked = replace(besked, "&lt;b&gt;", "<b>")
besked = replace(besked, "&lt;/b&gt;", "</b>")
besked = replace(besked, "&lt;i&gt;", "<i>")
besked = replace(besked, "&lt;/i&gt;", "</i>")
besked = replace(besked, "&lt;u&gt;", "<u>")
besked = replace(besked, "&lt;/u&gt;", "</u>")
besked = replace(besked, "&lt;p&gt;", "<p>")
besked = replace(besked, "&lt;/p&gt;", "</p>")
besked = replace(besked, "&lt;center&gt;", "<center>")
besked = replace(besked, "&lt;/center&gt;", "</center>")
besked = replace(besked, "&lt;br&gt;", "<br>")
end if
if instillinger("smileys") = True then
besked = replace(besked, ":)", "<img src='images/smil.gif' align='middle'>")
besked = replace(besked, ":D", "<img src='images/stortsmil.gif' align='middle'>")
besked = replace(besked, "8D", "<img src='images/cool.gif' align='middle'>")
besked = replace(besked, ":I", "<img src='images/roedmer.gif' align='middle'>")
besked = replace(besked, ":P", "<img src='images/tunge.gif' align='middle'>")
besked = replace(besked, "[ond]", "<img src='images/ond.gif' align='middle'>")
besked = replace(besked, ";)", "<img src='images/blinker.gif' align='middle'>")
besked = replace(besked, ":o)", "<img src='images/klovn.gif' align='middle'>")
besked = replace(besked, "B)", "<img src='images/klovn.gif' align='middle'>")
besked = replace(besked, "[spm]", "<img src='images/spm.gif' align='middle'>")
besked = replace(besked, "[fuck]", "<img src='images/fuck.gif' align='middle'>")
besked = replace(besked, ":(", "<img src='images/sur.gif' align='middle'>")
besked = replace(besked, "8)", "<img src='images/genert.gif' align='middle'>")
besked = replace(besked, ":O", "<img src='images/shokeret.gif' align='middle'>")
besked = replace(besked, ":!", "<img src='images/vred.gif' align='middle'>")
besked = replace(besked, "xx(", "<img src='images/doed.gif' align='middle'>")
besked = replace(besked, "[sovn]", "<img src='images/sovnig.gif' align='middle'>")
besked = replace(besked, ":X", "<img src='images/kys.gif' align='middle'>")
besked = replace(besked, "[^]", "<img src='images/godkender.gif' align='middle'>")
besked = replace(besked, "[V]", "<img src='images/afviser.gif' align='middle'>")
besked = replace(besked, "[skummel]", "<img src='images/skummel.gif' align='middle'>")
besked = replace(besked, "[puke]", "<img src='images/puke.gif' align='middle'>")
besked = replace(besked, "[slimshady]", "<img src='images/slim.gif' align='middle'>")
besked = replace(besked, "[hemmelig1]", "<img src='images/hopper.gif' align='middle'>")
besked = replace(besked, "[hemmelig2]", "<img src='images/hopper2.gif' align='middle'>")
besked = replace(besked, "[awpman]", "<img src='images/awp.gif' align='middle'>")
besked = replace(besked, "[pornking]", "<img src='images/pron.gif' align='middle'>")
besked = replace(besked, "[webberman]", "<img src='images/websted.gif' align='middle'>")
besked = replace(besked, "[firedevil]", "<img src='images/devil.gif' align='middle'>")
besked = replace(besked, "[gulli]", "<img src='images/gulsmile.gif' align='middle'>")
besked = replace(besked, "[redguy]", "<img src='images/red.gif' align='middle'>")
besked = replace(besked, "[ownedman]", "<img src='images/owned.gif' align='middle'>")
besked = replace(besked, "[websterpic]", "<img src='images/webster.jpg' align='middle'>")
end if
response.write LinkTekst(besked)
%>
              </font></td>
          </tr>
          <tr>
            <td height="5" colspan="2"></td>
          </tr>
              </table>
            </td>
          </tr>
        </table>
      </td>
    </tr>
  </table>
  <p>
<%
rs.movenext
loop
end if
%>
<%
end if
%>
<%
if side = "skriv_tag" then
set instillinger = conn.execute("SELECT * FROM instillinger")
%>
<p>
  <table width="500" border="0" cellspacing="0" cellpadding="0">
    <form action="tagwall.asp?side=opret_tag" method="post">
      <tr>
        <td width="6" bgcolor="#333333"><b></b></td>
        <td width="111" bgcolor="#333333">
          <p><font face="Verdana"><b><font class="font"><br>Besked:<br>
            </font></b><font class="font">Brug smileys:<br><br>
            <b><a href="java script:PopWin('smileys.htm',400,400);" class="overskrift">Klik her!</a></p><br><br><br>
          </td>
        <td width="10" bgcolor="#666666">&nbsp; </td>
        <td bgcolor="#666666" colspan="2">
          <textarea name="besked" rows="8" cols="45"></textarea>
        </td>
      </tr>
      <% if instillinger("tekstcolor") = True then %>
      <tr>
        <td width="6" bgcolor="#333333"><b></b></td>
        <td width="111" bgcolor="#333333"><b><font face="Verdana" size="1" color="#FFFFFF">Tekst
          farve:</font></b></td>
        <td width="10" bgcolor="#666666">&nbsp; </td>
        <td width="97" bgcolor="#666666" height="30">
          <input type="text" name="tekstcolor" size="10" maxlength="6">
        </td>
        <td width="286" bgcolor="#333333" height="30"><a href="java script:PopWin('farvekoder.htm',400,400);"><font face="Verdana" size="1" color="#FFFFFF">Farvekoder</font></a></td>
      </tr>
      <% end if %>
      <% if instillinger("bokscolor") = True then %>
      <tr>
        <td width="6" bgcolor="#333333"><b></b></td>
        <td width="111" bgcolor="#333333"><b><font face="Verdana" size="1" color="#FFFFFF">Baggrund:</font></b></td>
        <td width="10" bgcolor="#666666">&nbsp; </td>
        <td width="97" bgcolor="#666666" height="30">
          <input type="text" name="bokscolor" size="10" maxlength="6">
        </td>
        <td width="286" bgcolor="#666666" height="30"><a href="java script:PopWin('farvekoder.htm',400,400);"><font face="Verdana" size="1" color="#FFFFFF">Farvekoder</font></a></td>
      </tr>
      <% end if %>
      <tr>
        <td width="6" bgcolor="#333333"><b></b></td>
        <td width="111" bgcolor="#333333"><b><font class="font">Nick:</font></b></td>
        <td width="10" bgcolor="#666666">&nbsp; </td>
        <td bgcolor="#666666" height="30" colspan="2">
          <input type="text" name="forfatter" size="25" maxlength="25">
        </td>
      </tr>
      <tr>
        <td width="6" bgcolor="#333333"><b></b></td>
        <td width="111" bgcolor="#333333"><b><font class="font">E-mail:</font></b></td>
        <td width="10" bgcolor="#666666">&nbsp; </td>
        <td bgcolor="#666666" height="30" colspan="2">
          <input type="text" name="email" size="25" maxlength="25">
        </td>
      </tr>
      <tr>
        <td width="6" bgcolor="#333333"><b><font color="#FFFFFF" face="Verdana" size="1"></font></b></td>
        <td width="111" bgcolor="#333333">&nbsp;</td>
        <td width="10" bgcolor="#666666">&nbsp; </td>
        <td bgcolor="#666666" height="30" colspan="2">
          <input type="submit" name="Submit" value="Tag">
        </td>
      </tr>

    </form>
  </table>
<p>
<a href="?"><font class="font">Tilbage</font></a>
</p>
  <%
end if
%>
  <%
if side = "opret_tag" then
if (Server.HTMLEncode(Request("besked")) = "" OR Server.HTMLEncode(Request("besked")) = "" OR Server.HTMLEncode(Request("forfatter")) = "") then
response.write ("<p><font face='Verdana' size='2' color='#ffffff'>Hvad med at skrive noget?</font><br><font face='Verdana' size='1' color='#FF0000'>Besked og Forfatter <u>SKAL</u> udfyldes!<p><a href='java script:history.back(-1)'><font face='Verdana' size='1' color='#000000'>Skriv tag</font></a></p>")
else
    Set rs = Server.CreateObject("ADODB.RecordSet")
    strSQL = "SELECT * FROM tags"
    rs.Open strSQL, Conn, 1, 3
                                       
        rs.AddNew
        rs("besked") = Server.HTMLEncode(Request("besked"))
        rs("tekstcolor") = Server.HTMLEncode(Request("tekstcolor"))
        rs("bokscolor") = Server.HTMLEncode(Request("bokscolor"))
        rs("forfatter") = Server.HTMLEncode(Request("forfatter"))
        rs("email") = Server.HTMLEncode(Request("email"))
        rs("dato") = date()
        rs.Update

            response.write("<p><font class='font'>Tak for dit tag !</font></p><a href='?'><font class='font'>Se tags</font></a>")
end if
end if
%>
</div>
</body>
</html>