CNC Technology Investment Group

<%@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 Investment Group


		Home
		Finance
		Insurance
		Warranty
		Contact Us

CNC Protection Proposal Form

CNC Technology Insurance

CNC Technology Insurance is a specialist provider of insurance products to the engineering industry. Designed to protect your investment in high value CNC Machine Tools, CNC Technology Protection will help in keeping costs fixed in this competitive environment, removing the possibility of potentially crippling bills.

Full repair costs (parts & labour) in the event of mechanical & electrical breakdown, to the original manufacturer�s specification, subject to a policy excess of £250.
Cover is provided against sudden & unforeseen damage, including operator error.
In the event of a temporary repair being necessary, costs of up to £10,000 will be paid, in addition to the full repair.
All repairs will be carried out on a �new for old� basis on machinery up to 5 years old. Claims on older machines will be settled on an indemnity basis.
The machine must be serviced & repaired in accordance with the manufacturers recommended guidelines.
The cost of the insurance is fixed for the duration of cover, regardless of the incidence of claims.
A daily compensation payment of £250 per day can be made in the event of downtime exceeding 5 days.