Jag försöker att lägga till smileys i en textarea. Jag får inga fel, men det fungerar inte, ingenting lägs in.

<code>
<script language="JavaScript">
<!--
function insertSmiley(smiley) {
document.Kolla.Inlagg.value += " " + smiley + " ";

}
// -->
</SCRIPT>
'lite längre ner i koden
<textarea rows="8" name="Inlagg" cols="60" CLASS = "skugga"></textarea> </font></small>
<%
Dim i,smiles
i=1
sURL="Icons/"
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder(server.mappath(sURL))
Set files = folder.Files
i=0
For Each file in Files
if i = 7 then
i = 1
response.write "<BR>"
else
i=i +1
end if

smiles = "<img border=""0"" src="& sURL & file.Name & ">"
response.write "" & smiles & " "

Next
Set files = folder.Files
Set file = Nothing
Set fso = Nothing

%>
</code>
Om jag sedan skriver ut vad FSO gör(länkarna så ser det ut så här:
<code>
 
 
 
 
osv...
</code>
Finns det någon möjlighet att få ihop detta?

Alltså de lägg se ej till i textarean eller?

		  function AddSmile(smile) {
		  	document.forms[1].meddelande.value += smile+" ";
			document.forms[1].meddelande.focus();
		  }

Problem.
Jag gör alltså så här:
<code>
<script language="JavaScript">
<!--
function insertSmiley(smiley) {
document.forms[1].Inlagg.value += smiley+" ";
document.forms[1].Inlagg.focus();
}
// -->
</SCRIPT>
<form method="POST" name="Kolla" action="guestbookin.asp" ONSUBMIT="return DataValidation();">
<!-- lite mera kod här
<%
'mera kod här
response.write "" & smiles & " "
%>
<!-- lite mera kod här
textarea rows="8" name="Inlagg" cols="60" CLASS = "skugga"></textarea>

</code>
Nu får jag ett error:
<code>
Rad 22
Tecken:4
Kod: 0
Fel: 'document.forms.1.Inlagg' är null eller inte ett objekt.
</code>
Något förslag till ändring?