<%@LANGUAGE="VBSCRIPT"%> <% Response.buffer = True ' first we put the data from the form into a variable fullname = Request.Form("fullname") jobtitle = Request.Form("jobtitle") company = Request.Form("company") email = Request.Form("email") telephone = Request.Form("telephone") eventname = Request.Form("eventname") eventdate= Request.Form("eventdate") eventvenue= Request.Form("eventvenue") 'then we can set the cookie value using this: Response.Cookies("fullname") = fullname Response.Cookies("jobtitle") = jobtitle Response.Cookies("company") = company Response.Cookies("email") = email Response.Cookies("telephone") = telephone Response.Cookies("eventname") = eventname Response.Cookies("eventdate") = eventdate Response.Cookies("eventvenue") = eventvenue %> <% ' *** Edit Operations: declare variables MM_editAction = CStr(Request("URL")) If (Request.QueryString <> "") Then MM_editAction = MM_editAction & "?" & Request.QueryString End If ' boolean to abort record edit MM_abortEdit = false ' query string to execute MM_editQuery = "" %> <% ' *** Insert Record: set variables If (CStr(Request("MM_insert")) <> "") Then MM_editConnection = MM_conn_sqldb_STRING MM_editTable = "dbo.ITF_Events_Reg" MM_editRedirectUrl = "registered.asp" MM_fieldsStr = "fullname|value|jobtitle|value|company|value|email|value|telephone|value|eventdate|value|eventname|value|eventvenue|value" MM_columnsStr = "fullname|',none,''|jobtitle|',none,''|company|',none,''|email|',none,''|telephone|',none,''|eventdate|',none,''|eventname|',none,''|eventvenue|',none,''" ' create the MM_fields and MM_columns arrays MM_fields = Split(MM_fieldsStr, "|") MM_columns = Split(MM_columnsStr, "|") ' set the form values For i = LBound(MM_fields) To UBound(MM_fields) Step 2 MM_fields(i+1) = CStr(Request.Form(MM_fields(i))) Next ' append the query string to the redirect URL If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString Else MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString End If End If End If %> <% ' *** Insert Record: construct a sql insert statement and execute it If (CStr(Request("MM_insert")) <> "") Then ' create the sql insert statement MM_tableValues = "" MM_dbValues = "" For i = LBound(MM_fields) To UBound(MM_fields) Step 2 FormVal = MM_fields(i+1) MM_typeArray = Split(MM_columns(i+1),",") Delim = MM_typeArray(0) If (Delim = "none") Then Delim = "" AltVal = MM_typeArray(1) If (AltVal = "none") Then AltVal = "" EmptyVal = MM_typeArray(2) If (EmptyVal = "none") Then EmptyVal = "" If (FormVal = "") Then FormVal = EmptyVal Else If (AltVal <> "") Then FormVal = AltVal ElseIf (Delim = "'") Then ' escape quotes FormVal = "'" & Replace(FormVal,"'","''") & "'" Else FormVal = Delim + FormVal + Delim End If End If If (i <> LBound(MM_fields)) Then MM_tableValues = MM_tableValues & "," MM_dbValues = MM_dbValues & "," End if MM_tableValues = MM_tableValues & MM_columns(i) MM_dbValues = MM_dbValues & FormVal Next MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")" If (Not MM_abortEdit) Then ' execute the insert Set 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 <> "") Then Response.Redirect(MM_editRedirectUrl) End If End If End If %> CNC Technology Investment Group
 
Welcome to the website of the CNC Technology Investment Group
CNC Technology Warranty Group



image



CNC Protection Proposal Form

 

CNC Technology Warranty

With increasing pressure on Machine Tool Suppliers to provide longer warranty periods to their customers, CNC Warranty, a specialist UK supplier, is able to remove the financial risk & provide manufacturer partners with bespoke Extended Warranty Programmes.

CNC Warranty provides the opportunity to provide extended   periods of cover. Underwritten by the world’s largest insurer, this provides peace of mind & allows machine tool suppliers the ability to provide extended periods of cover at a realistic cost.

This also allows the realistic opportunity of increased service revenues, as the machines must be serviced, maintained & repaired by the OEM or their appointed agent throughout the period of cover.

Cover is available throughout Europe on the following CNC machine tools:

  • Vertical Milling
  • Horizontal Milling
  • 5 Axis Milling
  • Turning
  • Grinding
  • EDM Wire Erosion
  • EDM Spark Erosion
  • CMM’s
  • Punch Press
  • Laser Cut

Operator Error

The policy can be upgraded in order to cover the damage caused by Operator Error.

The addition of this cover not only protects the customer but also the machine tool supplier, reducing the costs arising from “Goodwill” repairs.

This will reduce costs, enhance customer relationships & lost management time

 

cnc warrantyKey Benefits

  • Increased sales
  • Improved customer confidence
  • Reduced Financial Risk
  • Enhanced revenues
  • Improved receivables
  • Minimal paperwork
  • Improved cashflow
  • Improved receivables