<%
function getRoleOption(roleid)
	dim rs_getRoleOption,arr_getRoleOption,roleSelect
	set rs_getRoleOption=server.CreateObject("adodb.recordset")  
	rs_getRoleOption.open "select id,rolename from role order by id asc",conn,3,1
	if not rs_getRoleOption.eof then
		arr_getRoleOption=rs_getRoleOption.GetRows()
		rs_getRoleOption.close
		set rs_getRoleOption=nothing
		for i=0 to ubound(arr_getRoleOption,2)
			if(roleid=arr_getRoleOption(0,i)) then
				roleSelect=" selected"
			else
				roleSelect=""
			end if
			getRoleOption=getRoleOption&"<option value="""&arr_getRoleOption(0,i)&""""&roleSelect&">"&arr_getRoleOption(1,i)&"</option>"
		next
	else
		getRoleOption="ûԐ¼Ȃ¼"
	end if
end function
%>