<%@ 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 = Request.QueryString("Ownerid") if lngOwnerid = "" then lngOwnerid = 1 end if lngSprakId = Request.QueryString("Sprakid") lngMenuid = 0 'Om sitemap: sätt den till 0. strEgenSpaarning = "Sitemap" '*************************************** %> <%=strEgenSpaarning%> "/> "/> "/>

<%=Session("Sitemap-text_" & lngsprakid)%>

<% OBJdbConnection.Close Set OBJdbConnection = Nothing %>