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