browolf

<%
name= Request.ServerVariables("auth_user")
n2=split(name,"\")
name=n2(1)

story = request.form("text")
dim fs,f
set fs=Server.CreateObject("Scripting.FileSystemObject")
set f=fs.openTextFile("d:\intranet\test\stories.txt",8,true)
f.write (name & ":--> " & story & chr(13) )

browolf

<SCRIPT LANGUAGE="JavaScript"> 
function CountLeft(field, count, max) {
if (field.value.length > max)
field.value = field.value.substring(0, max);
else
count.value = max - field.value.length;
}
</script>