*ファンクション部分 <script language="vbscript"> Function GetAtai(e) msgbox e End Function </script>
*function呼び出し部分 <SELECT onclick="GetAtai(value)"> <% Do Until (objRs.EOF) if(objRs.EOF) then exit do end if dim keijyou_value keijyou_value = objRs.Fields("KEIJYOU") %> <OPTION value="<%=keijyou_value%>"> <%= keijyou_value%> <% objRs.Movenext Loop %> </SELECT>