<% Set RunX = new myclass id = request("id") groupid = request("groupid") %> THOMAS CHAN designs limited
/title.gif">
<% SqlStr = "Select * From project where groupid = " & groupid &" order by pos desc" Set rs = RunX.RunSqlMdb2(SqlStr) pc = rs.RecordCount if id="" 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("cprojname")%>


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

copyright © 陳建中設計有限公司. 2007 版權所有 不得轉載. e-quota.net 設計及製作