<% Set registered_cmd = Server.CreateObject ("ADODB.Command") registered_cmd.ActiveConnection = MM_grantconn_STRING registered_cmd.CommandText = "SELECT * FROM dbo.Presentation WHERE ConfYear=2014 AND ConfMonth=5 AND ConfName='UCRN' ORDER BY PaperGroupNo, ListofAuthors" registered_cmd.Prepared = true Set registered = registered_cmd.Execute registered_numRows = 0 %> <% Dim MM_editAction MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME")) If (Request.QueryString <> "") Then MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString) End If ' boolean to abort record edit Dim MM_abortEdit MM_abortEdit = false %>