<%
dim conn
dim DBPath
if isobject(session("DesignConn")) then
set conn=session("DesignConn")
else
set conn=server.createobject("ADODB.CONNECTION")
' conn.open "WebDesignData","",""
DBPath = Server.MapPath("webdate.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
set session("DesignConn")=conn
end if
%>