<%@ 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 = 2 'Sätts från webbyggaren 'lngMenuid: Denna sätts unik för varje webbyggsida av webbyggsverktyget. Om mellanstartsida: sätt den till 0. lngMenuid = 202 'Sätts från webbyggaren 'lngTextid: Denna sätts unik för varje webbyggsida av webbyggsverktyget. lngTextid = 167 '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) %> "/> Sammansatta detaljer vid montering för funktionell helhet "/>

<%=RSoName("Name")%>

Sammansatta detaljer

Vi tillverkar sammansatta produkter med höga krav på funktion och precision. 

                            sammansatta detaljer

 

Produktegenskaper

 Våra sammansatta detaljer har stora krav på funktion och tillverkas i små och stora serier.

 

<% OBJdbConnection.Close Set OBJdbConnection = Nothing %>