%@LANGUAGE="VBSCRIPT"%> <% Dim rsdatos_ciudad__MMColParam rsdatos_ciudad__MMColParam = "1" if (Request.Form("Ciudad") <> "") then rsdatos_ciudad__MMColParam = Request.Form("Ciudad") %> <% set rsdatos_ciudad = Server.CreateObject("ADODB.Recordset") rsdatos_ciudad.ActiveConnection = MM_directorio_STRING rsdatos_ciudad.Source = "SELECT Organizacion, Actividad, Nombre, Apellido, Direccion, CP, Website, Email, Logo, Descripcion, Telefono, Provincia, Ciudad FROM mailinternet WHERE Ciudad = '" + Replace(rsdatos_ciudad__MMColParam, "'", "''") + "' ORDER BY Organizacion ASC" rsdatos_ciudad.CursorType = 0 rsdatos_ciudad.CursorLocation = 2 rsdatos_ciudad.LockType = 3 rsdatos_ciudad.Open() rsdatos_ciudad_numRows = 0 %>
|