<% SI=".net" Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "aemcm.net.aemcm" %>

		CATALOGOS EMPRESAS                  | Volver | <% sqlstr="SELECT * FROM TODAS " sqlstr= sqlstr & "WHERE PAGINA LIKE '%" & SI & "%' ORDER BY EMPRESA ASC;" set rsUsers=Conn.Execute(sqlstr) Do While Not rsUsers.EOF %> <%else%> ',480,490,200,0);"><%=rsUsers("EMPRESA")%> <%end if%> <% rsUsers.MoveNext Loop %> Empresa Dirección Población Teléfono/Fax/e-mail <% if rsUsers("PAGINA")<>"" then%> " target="_blank"><%=rsUsers("EMPRESA")%> <%=rsUsers("DIR_R")%> <%=rsUsers("LOCALIDAD_R")%>, (<%=rsUsers("PROVINCIA_R")%>) Tlf: <%=rsUsers("TELEFONO")%> Fax: <%=rsUsers("FAX")%> e-mail: "><%=rsUsers("E_MAIL")%> web: "><%=rsUsers("WEB")%>

5> <% rsUsers.Close Conn.Close Set rsUsers = Nothing Set Conn = Nothing %>