<% SqlStr = "Select * From project where groupid = " & groupid Set rs = RunX.RunSqlMdb2(SqlStr) if id= empty then id = rs("id") end if while Not rs.Eof%> <% rs.MoveNext wend Set rs=Nothing%>

" <%if Cint(id)= rs("id") then%>style="color:#ff8a00"<%end if%>><%=rs("projname")%>

<% SqlStr = "Select * From projectpic where projectid = " & id Set rs = RunX.RunSqlMdb2(SqlStr) pid = rs("id") pic2 = rs("pic2") while not rs.EOF%>/<%=rs("pic2")%>'">/<%=rs("pic1")%>" width="70" height="70" border="0"><% rs.MoveNext wend%>