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