smiley i tagwall
HejHvorfor kommer der ikke noget frem i kommentar området, når jeg bruger replace funktion, for at smide smileys ind på siden.
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=d:\web\localuser\pivskid.dk\database\database.mdb"
Conn.Open DSN
commentID = request.querystring("id")
SQLstringK="SELECT * FROM kommentar WHERE id2 = '" & commentID & "' order by id desc"
SET rs = Conn.Execute(SQLstringK)
%>
<% if rs.eof then
response.write("Piveren her har desværre ikke modtaget nogen beskeder endnu...<br><br>")
end if %>
<%
While Not Rs.eof
kommentar = rs("kommentar")
kommentar = Replace(kommenter,":)","smiley.gif")
%>
<table border="1" width="100%" id="table2" style="border-collapse: collapse" bordercolor="#666666">
<tr>
<td width="40%" bgcolor="#6699FF">
<a href="profil.asp?id=<% = rs("afsender") %>"><% = rs("navn") %></a></td>
<td bgcolor="#CCCCCC"> <% = rs("dato") %></td>
</tr>
<tr>
<td colspan="2" bgcolor="#999999"> <% = rs("kommentar") %></td>
</tr>
</table>
<% if "" & rs("id") & "" = "" & Session("login") & "" then %>
<a href="profil_slet_tagwall.asp?id=<% = rs2("id") %>">
<img border="0" src="iconer/delete.gif" width="44" height="14"></a><br><br>
<% end if %>
<br>
<%
rs.MoveNext
wend
%>
