<% nombref=Request.QueryString("nombre") Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "aemcm.net.aemcm" %> <% sqlstr="SELECT * FROM TODAS " sqlstr= sqlstr & "WHERE EMPRESA LIKE '%" & nombref & "%' ORDER BY LOCALIDAD_R ASC;" set rsUsers=Conn.Execute(sqlstr) %>
Ficha Técnica 
Información General
Empresa* 
<%=rsUsers("EMPRESA")%>
Dirección* 
<%=rsUsers("DIR_R")%>
Localidad* 
<%=rsUsers("LOCALIDAD_R")%>
Provincia/C.postal* 
<%=rsUsers("PROVINCIA_R")%><%=rsUsers("CPOSTAL_R")%>
Teléfono/Fax* 
<%=rsUsers("TELEFONO")%><%=rsUsers("FAX")%>
e-mail* 
<%=rsUsers("E_MAIL")%>

Datos de Producto
Actividad* 
<%=rsUsers("ACTIVIDAD")%>
Productos fabric.* 
<%=rsUsers("PRODUCTOS")%>
Materiales* 
<%=rsUsers("MATERIAL")%>
Estilo de producto* 
<%=rsUsers("ESTILO")%>
Ferias* 
<%=rsUsers("FERIAS")%>

Otros datos de la Empresa
Patentes y marcas* 
<%=rsUsers("PAT_MARC")%>
Acreditaciones* 
<%=rsUsers("ACREDITACION")%>
<% rsUsers.Close Conn.Close Set rsUsers = Nothing Set Conn = Nothing %>