% 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%>
<% 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%>