<% Dim LinksRecordset__MMColParam LinksRecordset__MMColParam = "1" If (Request.QueryString("Yes") <> "") Then LinksRecordset__MMColParam = Request.QueryString("Yes") End If %> <% Dim LinksRecordset Dim LinksRecordset_numRows Set LinksRecordset = Server.CreateObject("ADODB.Recordset") LinksRecordset.ActiveConnection = MM_EDSConnection_STRING LinksRecordset.Source = "SELECT * FROM Links WHERE LNormal = " + Replace(LinksRecordset__MMColParam, "'", "''") + " ORDER BY LNameAL ASC" LinksRecordset.CursorType = 0 LinksRecordset.CursorLocation = 2 LinksRecordset.LockType = 1 LinksRecordset.Open() LinksRecordset_numRows = 0 %>