<%option explicit response.buffer = true dim sQuery, sForm, sFormQuery, sPath, aPath, iAcctID for each sForm in Request.Form sFormQuery = sFormQuery & "&" & sForm & "=" & Request.Form(sForm) next if sFormQuery <> "" then sFormQuery = "&translate=Y" & sFormQuery if inStr(sFormQuery, "sl_action") <> 0 then sFormQuery = "" end if sQuery = Request.ServerVariables("QUERY_STRING") if sQuery = "" then sPath = Request.ServerVariables("PATH_INFO") aPath = split(sPath, "/") iAcctID = aPath(ubound(aPath) - 1) sQuery = "site=" & iAcctID end if Response.Redirect "/index.asp?" & sQuery & sFormQuery %>