ASP-tagwall

Hey Asp-folk
Jeg har to små problemer.
Grunden til jeg tror de er små, er fordi de nok ER små. Ved bare ikke lige hvordan man løser dem

Det drejer sig om en tagwall, som ligger på adressen: http://user.domaindlx.com/webmok/test/tagwall.asp

- Jeg kan simpelthen ikke få den første smiley man skriver til at virke.

Her kommer lige koden for en sikkerheds skyld

<%
'---------------------------------------------'
'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 & "<font class=font2>" & URL & "</font>"

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://www.home.no/webmok/abc.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="#031123" text="#ffffff" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" link="#FFFFFF" vlink="#FFFFFF" alink="#FFFFFF">
<center>
<br>
<div align="center"> <b><font class="fun">Tagwall</font><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 class='fun'>Der er ingen beskeder i tagwall'en :(</font></p><p><a href='?side=skriv_tag' class='linksjov'>Opret tag</font></a></p>")
else
response.write ("<p><a href='?side=skriv_tag' class='linksjov'>Opret tag</font></a></p>")
do until rs.eof
%>
<table width="475" border="0" cellspacing="0" cellpadding="3" height="18" bgcolor="#3E4B5D" style="border: 1 solid #3E4B5D">
<tr>
<td height="1%">
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="15">
<tr>
<td width="5" height="8"></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 ("172234") 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="fun">
<%
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'>")
besked = replace(besked, " webred", "<font color='red'>")
besked = replace(besked, " webblue", "<font color='blue'>")
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='http://www.home.no/webmok/images/smil.gif' align='middle'>")
besked = replace(besked, ":D", "<img src='http://www.home.no/webmok/images/stortsmil.gif' align='middle'>")
besked = replace(besked, "8D", "<img src='http://www.home.no/webmok/images/cool.gif' align='middle'>")
besked = replace(besked, ":I", "<img src='http://www.home.no/webmok/images/roedmer.gif' align='middle'>")
besked = replace(besked, ":P", "<img src='http://www.home.no/webmok/images/tunge.gif' align='middle'>")
besked = replace(besked, " ond", "<img src='http://www.home.no/webmok/images/ond.gif' align='middle'>")
besked = replace(besked, ";)", "<img src='http://www.home.no/webmok/images/blinker.gif' align='middle'>")
besked = replace(besked, "", "<img src='http://www.home.no/webmok/images/klovn.gif' align='middle'>")
besked = replace(besked, "B)", "<img src='http://www.home.no/webmok/images/klovn.gif' align='middle'>")
besked = replace(besked, " spm", "<img src='http://www.home.no/webmok/images/spm.gif' align='middle'>")
besked = replace(besked, " fuck", "<img src='http://www.home.no/webmok/images/fuck.gif' align='middle'>")
besked = replace(besked, ":(", "<img src='http://www.home.no/webmok/images/sur.gif' align='middle'>")
besked = replace(besked, "8)", "<img src='http://www.home.no/webmok/images/genert.gif' align='middle'>")
besked = replace(besked, ":O", "<img src='http://www.home.no/webmok/images/shokeret.gif' align='middle'>")
besked = replace(besked, ":!", "<img src='http://www.home.no/webmok/images/vred.gif' align='middle'>")
besked = replace(besked, "xx(", "<img src='http://www.home.no/webmok/images/doed.gif' align='middle'>")
besked = replace(besked, " sovn", "<img src='http://www.home.no/webmok/images/sovnig.gif' align='middle'>")
besked = replace(besked, ":X", "<img src='http://www.home.no/webmok/images/kys.gif' align='middle'>")
besked = replace(besked, " ^", "<img src='http://www.home.no/webmok/images/godkender.gif' align='middle'>")
besked = replace(besked, " V", "<img src='http://www.home.no/webmok/images/afviser.gif' align='middle'>")
besked = replace(besked, " skummel", "<img src='http://www.home.no/webmok/images/skummel.gif' align='middle'>")
besked = replace(besked, " puke", "<img src='http://www.home.no/webmok/images/puke.gif' align='middle'>")
besked = replace(besked, " slimshady", "<img src='http://www.home.no/webmok/images/slim.gif' align='middle'>")
besked = replace(besked, " hemmelig1", "<img src='http://www.home.no/webmok/images/hopper.gif' align='middle'>")
besked = replace(besked, " hemmelig2", "<img src='http://www.home.no/webmok/images/hopper2.gif' align='middle'>")
besked = replace(besked, " awpman", "<img src='http://www.home.no/webmok/images/awp.gif' align='middle'>")
besked = replace(besked, " pornking", "<img src='http://www.home.no/webmok/images/pron.gif' align='middle'>")
besked = replace(besked, " webberman", "<img src='http://www.home.no/webmok/images/websted.gif' align='middle'>")
besked = replace(besked, " firedevil", "<img src='http://www.home.no/webmok/images/devil.gif' align='middle'>")
besked = replace(besked, " gulli", "<img src='http://www.home.no/webmok/images/gulsmile.gif' align='middle'>")
besked = replace(besked, " redguy", "<img src='http://www.home.no/webmok/images/red.gif' align='middle'>")
besked = replace(besked, " ownedman", "<img src='http://www.home.no/webmok/images/owned.gif' align='middle'>")
besked = replace(besked, " websterpic", "<img src='http://www.home.no/webmok/images/webster.jpg' align='middle'>")
besked = replace(besked, " steffzak", "<img src='http://www.home.no/webmok/images/zakpokemon.gif' 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="475" border="0" cellspacing="0" cellpadding="0" style="border: 1 solid #3E4B5D">
<form action="tagwall.asp?side=opret_tag" method="post">
<tr>
<td width="6" bgcolor="#172234"><b></b></td>
<td width="111" bgcolor="#172234">
<p><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="#3E4B5D">&nbsp; </td>
<td bgcolor="#3E4B5D" colspan="2">
<textarea name="besked" rows="8" cols="45"></textarea>
</td>
</tr>
<% if instillinger("tekstcolor") = True then %>
<tr>
<td width="6" bgcolor="#172234"><b></b></td>
<td width="111" bgcolor="#172234"><b><font class="fun">Tekst
farve:</font></b></td>
<td width="10" bgcolor="#3E4B5D">&nbsp; </td>
<td width="97" bgcolor="#3E4B5D" height="30">
<input type="text" name="tekstcolor" size="10" maxlength="6">
</td>
<td width="286" bgcolor="#172234" height="30"><a href="java script:PopWin('farvekoder.htm',400,400);"><font class="fun">Farvekoder</font></a></td>
</tr>
<% end if %>
<% if instillinger("bokscolor") = True then %>
<tr>
<td width="6" bgcolor="#172234"><b></b></td>
<td width="111" bgcolor="#172234"><b><font class="fun">Baggrund:</font></b></td>
<td width="10" bgcolor="#3E4B5D">&nbsp; </td>
<td width="97" bgcolor="#3E4B5D" height="30">
<input type="text" name="bokscolor" size="10" maxlength="6">
</td>
<td width="286" bgcolor="#3E4B5D" height="30"><a href="java script:PopWin('farvekoder.htm',400,400);"><font class="fun">Farvekoder</font></a></td>
</tr>
<% end if %>
<tr>
<td width="6" bgcolor="#172234"><b></b></td>
<td width="111" bgcolor="#172234"><b><font class="font">Nick:</font></b></td>
<td width="10" bgcolor="#3E4B5D">&nbsp; </td>
<td bgcolor="#3E4B5D" height="30" colspan="2">
<input type="text" name="forfatter" size="25" maxlength="25">
</td>
</tr>
<tr>
<td width="6" bgcolor="#172234"><b></b></td>
<td width="111" bgcolor="#172234"><b><font class="font">E-mail:</font></b></td>
<td width="10" bgcolor="#3E4B5D">&nbsp; </td>
<td bgcolor="#3E4B5D" height="30" colspan="2">
<input type="text" name="email" size="25" maxlength="25">
</td>
</tr>
<tr>
<td width="6" bgcolor="#172234"><b><font class="fun"></font></b></td>
<td width="111" bgcolor="#172234">&nbsp;</td>
<td width="10" bgcolor="#3E4B5D">&nbsp; </td>
<td bgcolor="#3E4B5D" height="30" colspan="2">
<input type="submit" name="Submit" value="Tag">
</td>
</tr>

</form>
</table>
<p>
<a href="?" class="linksjov">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 class='fun'>Hvad med at skrive noget?</font><br><font class='fun'>Besked og Forfatter <u>SKAL</u> udfyldes!<p><a href='java script:history.back(-1)' class='fun'>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='fun'>Tak for dit tag !</font></p><a href='?' class='linksjov'>Se tags</font></a>")
end if
end if
%>
</div>
</body>
</html>

- Den anden ting er, at jeg gerne vil have at når man f.eks. skriver cool så kommer der til at stå Webmok med en grøn skrift i nick-feltet

- håber en gider hjælpe mig!