ASP common functions: Checkboxscript ()

Program code

<%
' function: to tick which values on a specified checkbox
' Source: http://www.cncms.com/asp.asp

Function checkboxscript (ByVal formelement, ByVal elementvalue)
  checkboxscript = "<SCR" & "IPT Langua ge= "JavaScript" "Type=" "Text/javascript" ">" & vbCrLf & "String.prototype."
  Checkboxscript = checkboxscript & Reallydo=function () {return this.replace (/(^s*) | ( s*$)/g, "" "" ");}" & vbCrLf
  checkboxscript = checkboxscript & "var Jorkin =" "& Elementvalue &" "". Split ("", ""); "& vbCrLf
  checkboxscript = Checkboxscript &" for (i = 0; I < "& FormElement &". Length; i++) {"& vbCrLf
  checkboxscript = checkboxscript &"   for (j = 0; J < Jorkin.length; J + +) {"& vbCrLf
  checkboxscript = checkboxscript &"   if (jorkin[j). Reallydo () = = "& FormElement &" [I].value. Reallydo ()) {"& vbCrLf
  checkboxscript = checkboxscript &"   "& FormElement &" [I].check ed = true}}</scr "&" ipt> "& VbCrLf
End Function
%>

Example:

Program code
<form name= "Form1" >
<input name= "Reallydo" type= "checkbox" id= "ReallyDo1" value= "ten"/>10
<input name= "Reallydo" type= "checkbox" id= "ReallyDo2" value= "/>20"
<input name= "Reallydo" type= "checkbox" id= "ReallyDo3" value= "/>30"
<input name= "Reallydo" type= "checkbox" id= "ReallyDo4" value= ""/>40
<input name= "Reallydo" type= "checkbox" id= "ReallyDo5" value= "a"/>50
</form>
<%=checkboxscript ("Form1.reallydo", "10,30, M")%>