<% openconn duan=replace(request.QueryString("duan"),"'","''") set rs=server.CreateObject("adodb.recordset") rs.open"Select * from tblduan where idduan="&duan&"",conn,3,1 %>

<% openconn set rs1= server.CreateObject("adodb.recordset") rs1.open "select * from tblasp where idduan="&rs("idduan")&" order by idasp asc", conn if not rs1.eof then do while not rs1.eof %>

" src="<%=rs1("image")%>"/>

<% rs1.movenext loop end if rs1.close %>

<%=rs("title")%>

<%=rs("trichdan")%>

<%=rs("quotation")%>

<% openconn set rs2=server.CreateObject("adodb.recordset") rs2.open"Select * from tbldichvu where iddichvu="&rs("iddichvu")&"",conn,3,1 %>

" href="?saoviet=4&Du-an.html"><%=rs2("name")%>

<% openconn duan=replace(request.QueryString("duan"),"'","''") set rs1=server.CreateObject("adodb.recordset") rs1.open"Select top 10 * from tblduan where iddichvu="&rs2("iddichvu")&" order by idduan ASC",conn,3,1 if not rs1.eof then do while not rs1.eof %> &<%=ConvertiTitoloInNomeScript(rs1("title"))%>.html" class="<%if rs1("idduan")=rs("idduan") then%>active<%else%><%end if%> project-list-item block-link">

" src="<%=rs1("image")%>"/> <%=rs1(

- Active" src="<%=rs1("image")%>"/>

<%=rs1("title")%>

<%=rs1("trichdan")%>

<% rs1.MoveNext loop end if rs1.close %> <% rs2.close %>

<% rs.close %> <% openconn duan=replace(request.QueryString("duan"),"'","''") set rs=server.CreateObject("adodb.recordset") rs.open"Select * from tblduan where idduan="&duan&"",conn,3,1 %>