Removing 1 of 2 url parameters after inserting a record

Can u post the code here for us to have a look. It might have to be handled at the background using some ASP skills.

Zombeen

Code is below, apologies for the delay...  I tried to cut out the stuff that was irrelevant, but there still a good  bit.  For reference, there are two url parameters that are getting passed to this asp page, "vendor_id" and "resis_id".  After I do the submit to delete the record (or edit, I have the same issue with both), both parameters are getting bassed back to the redirect page after the submission.  I would only like to pass back one, the "vendor_id" parameter.  Thanks for any help, John.

<%@LANGUAGE="JAVASCRIPT" CODEPAGE="1252"%>
<%
// *** Edit Operations: declare variables

// set the form action variable
var MM_editAction = Request.ServerVariables("SCRIPT_NAME");
if (Request.QueryString) {
  MM_editAction += "?" + Request.QueryString;
}

// boolean to abort record edit
var MM_abortEdit = false;

// query string to execute
var MM_editQuery = "";
%>
<%
// *** Delete Record: declare variables

if (String(Request("MM_delete")) == "form1" &&
    String(Request("MM_recordId")) != "undefined") {

  var MM_editConnection = MM_hosted_auburn_STRING;
  var MM_editTable = "resis_data";
  var MM_editColumn = "resis_id";
  var MM_recordId = "" + Request.Form("MM_recordId") + "";
  var MM_editRedirectUrl = "resis_list.asp";

  // append the query string to the redirect URL
  if (MM_editRedirectUrl && Request.QueryString && Request.QueryString.Count > 0) {
    MM_editRedirectUrl += ((MM_editRedirectUrl.indexOf('?') == -1)?"?":"&") + Request.QueryString;
  }
}
%>
<%
// *** Delete Record: construct a sql delete statement and execute it

if (String(Request("MM_delete")) != "undefined" &&
    String(Request("MM_recordId")) != "undefined") {

  // create the sql delete statement
  MM_editQuery = "delete from " + MM_editTable + " where " + MM_editColumn + " = " + MM_recordId;

  if (!MM_abortEdit) {
    // execute the delete
    var MM_editCmd = Server.CreateObject('ADODB.Command');
    MM_editCmd.ActiveConnection = MM_editConnection;
    MM_editCmd.CommandText = MM_editQuery;
    MM_editCmd.Execute();
    MM_editCmd.ActiveConnection.Close();

    if (MM_editRedirectUrl) {
      Response.Redirect(MM_editRedirectUrl);
    }
  }

}
%>
<%
var vendor_rec__MMColParam = "1";
if (String(Request.QueryString("vendor_id")) != "undefined" && 
    String(Request.QueryString("vendor_id")) != "") {
  vendor_rec__MMColParam = String(Request.QueryString("vendor_id"));
}
%>
<%
var vendor_rec = Server.CreateObject("ADODB.Recordset");
vendor_rec.ActiveConnection = MM_hosted_auburn_STRING;
vendor_rec.Source = "SELECT vendor_id, vendor_name FROM vendor_data WHERE vendor_id = "+ vendor_rec__MMColParam.replace(/'/g, "''") + "";
vendor_rec.CursorType = 0;
vendor_rec.CursorLocation = 2;
vendor_rec.LockType = 1;
vendor_rec.Open();
var vendor_rec_numRows = 0;
%>
<%
var resis_rec__MMColParam = "1";
if (String(Request.QueryString("resis_id")) != "undefined" && 
    String(Request.QueryString("resis_id")) != "") {
  resis_rec__MMColParam = String(Request.QueryString("resis_id"));
}
%>
<%
var resis_rec = Server.CreateObject("ADODB.Recordset");
resis_rec.ActiveConnection = MM_hosted_auburn_STRING;
resis_rec.Source = "SELECT r.*,r.watts*r.qty*r.h_w/1000*4.33*ec.kwh_cost as resis_op  FROM resis_data r,elec_cost ec  WHERE resis_id = "+ resis_rec__MMColParam.replace(/'/g, "''") + "";
resis_rec.CursorType = 0;
resis_rec.CursorLocation = 2;
resis_rec.LockType = 1;
resis_rec.Open();
var resis_rec_numRows = 0;
%>
<% var MM_paramName = ""; %>
<%
// *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters

// create the list of parameters which should not be maintained
var MM_removeList = "&index=";
if (MM_paramName != "") MM_removeList += "&" + MM_paramName.toLowerCase() + "=";
var MM_keepURL="",MM_keepForm="",MM_keepBoth="",MM_keepNone="";

// add the URL parameters to the MM_keepURL string
for (var items=new Enumerator(Request.QueryString); !items.atEnd(); items.moveNext()) {
  var nextItem = "&" + items.item().toLowerCase() + "=";
  if (MM_removeList.indexOf(nextItem) == -1) {
    MM_keepURL += "&" + items.item() + "=" + Server.URLencode(Request.QueryString(items.item()));
  }
}

// add the Form variables to the MM_keepForm string
for (var items=new Enumerator(Request.Form); !items.atEnd(); items.moveNext()) {
  var nextItem = "&" + items.item().toLowerCase() + "=";
  if (MM_removeList.indexOf(nextItem) == -1) {
    MM_keepForm += "&" + items.item() + "=" + Server.URLencode(Request.Form(items.item()));
  }
}

// create the Form + URL string and remove the intial '&' from each of the strings
MM_keepBoth = MM_keepURL + MM_keepForm;
if (MM_keepBoth.length > 0) MM_keepBoth = MM_keepBoth.substring(1);
if (MM_keepURL.length > 0)  MM_keepURL = MM_keepURL.substring(1);
if (MM_keepForm.length > 0) MM_keepForm = MM_keepForm.substring(1);
%>
<html>
<head>
<


  <p>
    <input name="Submit" type="submit" onClick="MM_validateForm('textfield2','','R','textfield3','','RisNum','textfield4','','RisNum','textfield5','','NisNum','textfield6','','RisNum');return document.MM_returnValue" value="Delete?">
    <a href="resis_list.asp?<%= MM_keepNone + ((MM_keepNone!="")?"&":"") + "vendor_id=" + resis_rec.Fields.Item("vendor_id").Value %>">Cancel
    and Return to Vendor Detail</a> </p>
  <p>&nbsp;</p>
  <p><IMG SRC="charts/resis_single.asp?<%= MM_keepURL %>">
  </p>
  <p> </p>
  <input type="hidden" name="MM_delete" value="form1">
  <input type="hidden" name="MM_recordId" value="<%= resis_rec.Fields.Item("resis_id").Value %>">
</form>
<p>&nbsp; </p>
</body>
</html>
<%
vendor_rec.Close();
%>
<%
resis_rec.Close();
%>

One more thought.  What's wrong with the below code?  This should work, as I get the behavior I want (only one url parameter, vendor_id) when I setup a hyperlink this way, but I can't get the redirect url to use this.  Pardon my ignorance on this...  Thanks.

var MM_editRedirectUrl = "resis_list.asp" + <%= MM_keepNone + ((MM_keepNone!="")?"&":"") + "vendor_id=" + resis_rec.Fields.Item("vendor_id").Value %>;

I get a error of
Error Type:
Microsoft JScript compilation (0x800A03EA)
Syntax error

on the line.