%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim RScallejero__MMColParam RScallejero__MMColParam = "1" If (Request.QueryString("idasociacion") <> "") Then RScallejero__MMColParam = Request.QueryString("idasociacion") End If %> <% Dim RScallejero Dim RScallejero_numRows Set RScallejero = Server.CreateObject("ADODB.Recordset") RScallejero.ActiveConnection = MM_Sqk68713_5_STRING RScallejero.Source = "SELECT * FROM callejero WHERE idCalle = " + Replace(RScallejero__MMColParam, "'", "''") + "" RScallejero.CursorType = 0 RScallejero.CursorLocation = 2 RScallejero.LockType = 1 RScallejero.Open() RScallejero_numRows = 0 %>