<% 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 %>