<body>
<form name= "Form1" method= "Post" action= "Action=submit" >
<label>
<textarea name= "textarea" cols= "rows=" "7" ></textarea>
</label>
<p>
<label>
<input type= "text" name= "TextField" >
</label>
</p>
<p>
<label>
<input type= "Submit" name= "Submission" value= "submitted" >
</label>
</p>
</form>
</body>
<%
If Request ("action") = "Submit" Then
ubbhtml = nohtml (Request. Form ("textarea")
Ubbtitle = nohtml (Request. Form ("TextField")
If ubbhtml = "" Then
' Hint
Else
' Save data
End If
Else
Response. Write ("uncommitted content")
End If
Function nohtml (ByVal str)
If IsNull (str) or trim (str) = "" Then
Nohtml= ""
Exit function
End If
Dim re
Set re=new REGEXP
Re. IgnoreCase =true
Re. Global=true
Re. Pattern= "(<.[ ^<]*>) "
Str=re.replace (str, "")
Re. Pattern= "(</[^<]*>)"
Str=re.replace (str, "")
Set re=nothing
Str=replace (STR,CHR (34), "")
Str=replace (str, "'", "")
Nohtml=str
End Function
%>