<%@ Language=VBScript %> <%Option Explicit%> <%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") strConnect = "Driver={SQL Server};" & "Server=" & Application("DSN") & ";Database=" & Application("Database") & ";UID=" & Application("SrvUserId") & ";PWD=" & Application("SrvPassword") OBJdbConnection.Open strConnect '*************************************** 'lngOwnerId: Denna sätts automatiskt för varje webbyggsida av webbyggsverktyget. Om mellanstartsida: Hĺrdkoda rätt ownerid. lngOwnerId = 11 lngSprakId = 2 Session("SprakId") = 2 '*************************************** strSQL = "SELECT * FROM startsida WHERE ownerid =" & lngOwnerId Set RS = objdbconnection.execute(strSQL) %> Manufacturing subcontractor for sheet-metal - Thor Ahlgren AB "/> "/> "/>

Du saknar Flash Player! För att se innehållet i den här rutan krävs att du minst har Flash Player 7 installerat i din webbläsare.

<%=Replacer(RS("Rubrik")) %>

<%=Replacer(RS("text1")) %>

<% OBJdbConnection.Close Set OBJdbConnection = Nothing %>