PHP下拉复选框有关问题，

PHP下拉复选框问题，求助！
代码如下:
<SELECT style="WIDTH: 180px;" name=DepartID>
  <OPTION value=ALL>全部门店</OPTION>
  <%
  TempSQL = "Select * From Sys_Depart Order By DepartID"
  Set TempRS = Server.CreateObject("ADODB.Recordset") 
  TempRS.Open TempSQL,conn,1,1  
  Do While Not TempRS.eof
  vID = TempRS("DepartID")
  vName = TempRS("DepartName")
  %>

  <%if vID = vDepartID then %>
  <OPTION value=<%=vID%> selected ><%=vName%></OPTION>
  <%else %>
  <OPTION value=<%=vID%>><%=vName%></OPTION>
  <%end if %>

  <%
  TempRS.MoveNext
  Loop  
  %>
  </SELECT>
请问该如何修改成选项前面可以打上小勾的复选框?

[解决办法]

VBScript code

<input type="checkbox" name="DepartID" value="ALL">全部门店  <%  TempSQL = "Select * From Sys_Depart Order By DepartID"  Set TempRS = Server.CreateObject("ADODB.Recordset")    TempRS.Open TempSQL,conn,1,1     Do While Not TempRS.eof  vID = TempRS("DepartID")  vName = TempRS("DepartName")  if vID = vDepartID then %>      vChecked = " checked=""checked"""  else      vChecked = ""   end if%>  <input type="checkbox" name="DepartID" value="<%=vID%>"<%=vChecked%>><%=vName%>  <%  TempRS.MoveNext  Loop     %>