<%
session.abandon
'Server.ScriptTimeOut=500
function opendb(DBPath,sessionname,dbsort)
dim conn,StrCnn
if not isobject(session(sessionname)) then
Set conn=Server.CreateObject("ADODB.Connection")
'DBPath1=server.MapPath("/office/office/database/myoffice.mdb")
'conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath1
StrCnn = "Driver={SQL Server};Server=127.0.0.1;UID=chht;PWD=ttsskkee;Database=myoa"
conn.Open StrCnn
'response.write DBPath1
'response.end

set session(sessionname)=conn
end if
set opendb=session(sessionname)
end function
%>