<% set Conn = Server.CreateObject("ADODB.Connection") Conn.Open Session("BDADOS") SQL2 = "SELECT fase1, fase2, fase3, fase4, u2 FROM GrupProd2 where u2<>'' ORDER BY fase1, fase2, fase3, fase4" set PAGES = Conn.Execute(SQL2) do while not PAGES.eof%> http://www.atera.com.br/lista/<%=PAGES("fase1")%>/<%=PAGES("fase2")%>/<%=PAGES("fase3")%>/<%=PAGES("fase4")%>/<%=replace(PAGES("U2")," ","+") %> <%=YEAR(DATE())%>-<%=MONTH(DATE())%>-<%=DAY(DATE())%> <% PAGES.movenext loop %>