Just for kicks here's a variation:
This one doesn't seem to like ID's though.. If I try to use ID's the onChange doesn't work anymore. Even if I use NAME and ID fields.. Same values and/or different ones for NAME/ID.Code:<HTML> <HEAD><TITLE>TEST</TITLE> <META HTTP-EQUIV="CACHE-CONTROL" CONTENT="NO-CACHE"> <SCRIPT LANGUAGE=PerlScript> sub myform::klik_onClick { my $aa = $window->document->myform->myselect->{"Value"}; $window->document->write("<h1>klik: $aa</h1>"); } sub myform::myselect_onChange { my $aa = $window->document->myform->myselect->{"Value"}; $window->document->write("<h1>change: $aa</h1>"); } </SCRIPT> </HEAD> <BODY> <FORM NAME=myform><SELECT NAME=myselect> <OPTION VALUE=1>Choice 1</OPTION> <OPTION VALUE=2>Choice 2</OPTION> </SELECT><INPUT TYPE=button VALUE="Go" NAME=klik></FORM> </BODY> </HTML>
Oh well, got enough to get me going![]()




Reply With Quote