<%@language=vbscript codepage=936 %>
<%
dim conn
dim connstr
dim db
db="database/kjc.asa"
on error resume next
connstr="DBQ="+server.mappath(db)+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
conn.Open connstr

sub CloseConn()
	conn.close
	set conn=nothing
end sub
%>