<%@LANGUAGE="VBSCRIPT"%>

<%
Option Explicit

'no cache for this page
Response.Expires = 60
Response.Expiresabsolute = Now() - 2
Response.AddHeader "pragma","no-cache"
Response.AddHeader "cache-control","private"
Response.CacheControl = "no-cache"
Response.Buffer = true

Dim strConn
Dim Menu
Dim Titel
Dim Admin

'response.write Request.servervariables("APPL_PHYSICAL_PATH")

strConn = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
              "Data Source=D:\EMS-Cortex\HostingRoot\KenV\KenV\wwwroot\db\kenvdb.mdb;" & _
              "Persist Security Info=False"

ControlStats
%><!--#include file="ADOVBS.INC" --><!--#include file="function.asp" --><!--#include file="components.asp" -->