<%
Dim rsCo, sqlCo
set rsCo = Server.CreateObject("ADODB.RecordSet")
sqlCo = "select * from project where CateID='" & UserLocationID & "' order by ID Asc"
rsCo.Open sqlCo, conn,1,1
%>
<table width="98%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="30">
<%
if rsCo.bof and rsCo.eof then
Response.Write("")
else
do while not rsCo.eof
%>
<a href="co.asp?id=<%=rsco("id")%> " target="_blank"><font color="#996600"><MARQUEE onmouseover=this.stop() onmouseout=this.start() scrollamount="3" scrolldelay="100">
<%=rsCo("title")%></font></a>
<%
rsCo.MoveNext
loop
%>
<%
end if
rsCo.Close
set rsCo=nothing
%></MARQUEE></td></tr>
</table>