从数据库中取值给复选框赋值的有关问题

从数据库中取值给复选框赋值的问题
从数据库取值给复选框赋值，当有多个值时以下代码只能选中一个复选框，哪不对呢？

<% 

sql3 = "select * from wjy where lr=  '" & lr& "'"

  set rs3=Conn.Execute(sql3)

  If not rs3.EOF  Then

            document=Split(rs3("yy"),",")'这里的逗号取决于你之前保存到数据库中的分割符 

Function check(temp) 

check="" 

For I=0 To UBound(document) 

if temp=document(I) Then 

check="checked" 

End if 

Next 

End Function 

%> 

<input name="checkbox" type="checkbox" value="asp" <%=check("asp")%>> 

<input name="checkbox" type="checkbox" value="java" <%=check("java")%>> 

<input name="checkbox" type="checkbox" value="php" <%=check("php")%>> 

------解决方案--------------------
把那个end if加上去。
------解决方案--------------------
是逗号分隔符有没有去掉的问题吧？
------解决方案--------------------
<% 
sql3 = "select * from wjy where lr=  '" & lr& "'"
  set rs3=Conn.Execute(sql3)
  If not rs3.EOF  Then
            document=rs3("yy")
Else
            document=""
End If
rs3.close
%> 
<input name="checkbox" type="checkbox" value="asp" <%If  instr(document,"asp")>0 Then Response.Write(" checked")%>> 
<input name="checkbox" type="checkbox" value="java"  <%If  instr(document,"java")>0 Then Response.Write(" checked")%>> 
<input name="checkbox" type="checkbox" value="php"  <%If  instr(document,"php")>0 Then Response.Write(" checked")%>>