<%@ 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 = 5 'Sätts från webbyggaren 'lngMenuid: Denna sätts unik för varje webbyggsida av webbyggsverktyget. Om mellanstartsida: sätt den till 0. lngMenuid = 171 'Sätts från webbyggaren 'lngTextid: Denna sätts unik för varje webbyggsida av webbyggsverktyget. lngTextid = 134 'Sätts från webbyggaren lngSprakId = 1 'Sätts från webbyggaren '*************************************** strSQL = "SELECT Name FROM OwnerInfo WHERE ownerid = " & lngOwnerId Set RSoName = objdbconnection.execute(strSQL) %> "/> Kvalitet och miljö prioriteras hos Thor Ahlgren "/>

<%=RSoName("Name")%>

Kvalitet och miljö

Genom alla år har vi haft ett högt kvalitetstänkande. Med kvalitet menar vi att dagligen leva i en ständig förbättringsprocess. Våra kvalitetssystem har implementerats under lång tid. Detta påverkar våra medarbetare, vår dokumentation, våra produkter och produktionsmetoder, våra leverantörer och övriga samarbetspartners.

Vi är idag tredjepartscertifierade enligt ISO-9001:2008 samt ISO/TS 16949:2009.

När det gäller miljön så är vi certifierade enligt miljöledningssytem ISO 14001:2004. För oss är det en angelägenhet att göra allt vi kan för att reducera resursanvändningen. Vi minimerar spill, återanvänder material och återvinner restprodukter. Alla måste hjälpa till för en bättre miljö.

<% OBJdbConnection.Close Set OBJdbConnection = Nothing %>