<% set rs=Server.CreateObject("ADODB.recordset") sql="SELECT DISTINCT canal FROM consulta1 ORDER BY canal" rs.Open sql,strConn country=request.form("canal") %> Base10 - Banco de Dados Web
.
 

<% if country<>"" then sql="SELECT * FROM consulta1 WHERE canal='" & country & "'" set rs=Server.CreateObject("ADODB.Recordset") rs.Open sql,strConn %>

" hspace="8" vspace="2" border="0" align="left" />
<%=rs.fields("url")%>
" border="0" align="left" hspace="8" vspace="2" />
<% do until rs.EOF response.write("") response.write("

") response.write("") response.write("") response.write("") rs.MoveNext loop rs.close set rs=Nothing set strConn=Nothing%>
" & rs.fields("feed") & "
" & rs.fields("script") & "

<% end if %>