<%@LANGUAGE="VBSCRIPT"%> <% Dim MM_paramName %> <% ' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters Dim MM_keepNone Dim MM_keepURL Dim MM_keepForm Dim MM_keepBoth Dim MM_removeList Dim MM_item Dim MM_nextItem ' create the list of parameters which should not be maintained MM_removeList = "&index=" If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "=" End If MM_keepURL="" MM_keepForm="" MM_keepBoth="" MM_keepNone="" ' add the URL parameters to the MM_keepURL string For Each MM_item In Request.QueryString MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item)) End If Next ' add the Form variables to the MM_keepForm string For Each MM_item In Request.Form MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item)) End If Next ' create the Form + URL string and remove the intial '&' from each of the strings MM_keepBoth = MM_keepURL & MM_keepForm If (MM_keepBoth <> "") Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1) End If If (MM_keepURL <> "") Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1) End If If (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1) End If ' a utility function used for adding additional parameters to these strings Function MM_joinChar(firstItem) If (firstItem <> "") Then MM_joinChar = "&" Else MM_joinChar = "" End If End Function %> server
                    Products

             Sampling System

 
         Weighing Calibration
 
On-line Analysers
 
           Metal Clearing Systems
 
 

Service Purpose:

  • To obtain complete client satisfaction
  • Continual customer liaison
  • Service is one of Tony Tech's core advantages, it is of profound strategic importance
  • High quality service for persistence, efficiency, quick response and convenience
  • Best service possible
  • As an engineering company specializing in providing solution and service in processing bulk materials for power plants, coal mines, etc., such as sampling, weighing, analysing etc., we keep every client in our minds.
  • Provide the best service while providing the best products.
  • Clients'100 percent' satisfaction with Tony Tech is based on our 100 percent high quality service.
  • We believe the best service is the technical support system in combination with project design, engineering installation, support and training.


    Service email: service@tonytech.com.au
 
 
 
   Copyright © 2005 TonyTech Australia Pty. Ltd.