<%@ Language=VBScript %> <%Option Explicit%> <%Response.CharSet = Application("WebbyggCharset") Response.Buffer=TRUE%> <% Set OBJdbConnection = Server.CreateObject("ADODB.Connection") strConnect = "Driver={SQL Server};" & "Server=" & Application("DSN") & ";Database=" & Application("Database") & ";UID=" & Application("SrvUserId") & ";PWD=" & Application("SrvPassword") OBJdbConnection.Open strConnect Dim RSoName '*************************************** 'lngOwnerId: Denna sätts automatiskt för varje webbyggsida av webbyggsverktyget. Om mellanstartsida: Hårdkoda rätt ownerid. lngOwnerId = 15 'Sätts från webbyggaren 'lngMenuid: Denna sätts unik för varje webbyggsida av webbyggsverktyget. Om mellanstartsida: sätt den till 0. lngMenuid = 175 'Sätts från webbyggaren 'lngTextid: Denna sätts unik för varje webbyggsida av webbyggsverktyget. lngTextid = 137 'Sätts från webbyggaren lngSprakId = 2 'Sätts från webbyggaren '*************************************** strSQL = "SELECT Name FROM OwnerInfo WHERE ownerid = " & lngOwnerId Set RSoName = objdbconnection.execute(strSQL) %> "/> Quality & environment "/>

<%=RSoName("Name")%>

Quality & environment

We have continuously from the start had a high quality approach. Quality for us means that we every day live in a continuous improvement process. Our quality control system has been implemented and developed over a long period of time, and secures the quality of our employees, our documentation, our products, our production methods, our suppliers and other co-operation partners.

 

Today we have third party certification in accordance with ISO-9001:2008 and ISO/TS 16949:2009.

 

With regard to the environment, we are certified in accordance with the environmental management system ISO14001:2004 . For us it is vital that we do everything we can to reduce resource usage. We therefore minimise waste, re-use materials and recycle residual products. Everyone is obliged to contribute to a better environment.

<% OBJdbConnection.Close Set OBJdbConnection = Nothing %>