<%
DbName="info/bgz.mdb"
Set Conn=Server.CreateObject("ADODB.CONNECTION")
ConnStr="DBQ="+Server.Mappath(DbName)+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
Conn.Open ConnStr
Set Rs=Server.CreateObject("ADODB.RECORDSET")
%>