0) Then ' get the value of the parameter MM_param = Request.QueryString(MM_paramName) ' find the record with the unique column value equal to the parameter value MM_offset = 0 Do While (Not MM_rs.EOF) If (CStr(MM_rs.Fields.Item(MM_uniqueCol).Value) = MM_param) Then Exit Do End If MM_offset = MM_offset + 1 MM_rs.MoveNext Loop ' if not found, set the number of records and reset the cursor If (MM_rs.EOF) Then If (MM_rsCount < 0) Then MM_rsCount = MM_offset End If If (MM_size < 0 Or MM_size > MM_offset) Then MM_size = MM_offset End If MM_offset = 0 ' reset the cursor to the beginning If (MM_rs.CursorType > 0) Then MM_rs.MoveFirst Else MM_rs.Close MM_rs.Open End If End If End If %> ]]>