%@LANGUAGE="VBSCRIPT"%>
<%
Dim rsemprllissa__MMColParam
rsemprllissa__MMColParam = "empresa"
if (Request("MM_EmptyValue") <> "") then rsemprllissa__MMColParam = Request("MM_EmptyValue")
%>
<%
Dim rsemprllissa__varnombre
rsemprllissa__varnombre = "%"
if (Request("txtempr") <> "") then rsemprllissa__varnombre = Request("txtempr")
%>
<%
set rsemprllissa = Server.CreateObject("ADODB.Recordset")
rsemprllissa.ActiveConnection = MM_llissa01_STRING
rsemprllissa.Source = "SELECT Id, tipo, nombre, dir1, dir2, dir3, ciudad, prov, cod, pais, tel, fax, email, web, mapa, logo, activ, obs, foto1, foto2 FROM tbempresa WHERE nombre LIKE '" + Replace(rsemprllissa__varnombre, "'", "''") + "' AND tipo = '" + Replace(rsemprllissa__MMColParam, "'", "''") + "'"
rsemprllissa.CursorType = 0
rsemprllissa.CursorLocation = 2
rsemprllissa.LockType = 3
rsemprllissa.Open()
rsemprllissa_numRows = 0
%>
Activa3.com & locura digital
<%
rsemprllissa.Close()
%>