%@LANGUAGE="VBSCRIPT"%> <% Dim rsdatos__MMColParam rsdatos__MMColParam = "1" if (Request.Form("Jarduera") <> "") then rsdatos__MMColParam = Request.Form("Jarduera") %> <% set rsdatos = Server.CreateObject("ADODB.Recordset") rsdatos.ActiveConnection = MM_directorio_STRING rsdatos.Source = "SELECT Enpresa, Jarduera, Izena, Abizena, Helbidea, pk, Weborria, Postaelektronikoa, Ezaugarriak, Telefonoa, Probintza, Herria FROM maileuskara WHERE Jarduera LIKE '%" + Replace(rsdatos__MMColParam, "'", "''") + "%' ORDER BY Enpresa ASC" rsdatos.CursorType = 0 rsdatos.CursorLocation = 2 rsdatos.LockType = 3 rsdatos.Open() rsdatos_numRows = 0 %>
|