<%
function getSourceOption(currentid,tablename)
dim ifselect,rs,sql
sql="select id,Title from "&tablename&" order by id asc"
Set rs = conn.Execute(sql)
if rs.eof or rs.bof then
	getSourceOption="<option value=""0"">ÔÝÊ±Ã»ÓÐ</option>"&Chr(13)
else
	getSourceOption="<option value=""0"">=ÇëÑ¡Ôñ=</option>"&Chr(13)
end if
while not rs.eof
	if(Clng(rs(0))=Clng(currentid)) then
		ifselect=" selected"
	else
		ifselect=""
	end if
	getSourceOption=getSourceOption&"<option value="""&rs(0)&""" "&ifselect&">"&rs(1)&"</option>"&Chr(13)
	rs.movenext
wend
rs.close
set rs=nothing
end function
%>