Skip to content

Instantly share code, notes, and snippets.

@browolf
browolf / submit.asp
Created November 3, 2011 14:36
submit file for nanoween.asp
<%
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
browolf / nanoween.asp
Created November 3, 2011 14:33
web page for nano ween story
<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>