<%
   dim conn   
   dim connstr

   on error resume next
   connstr="DBQ="+server.mappath("aspLink.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
     set conn=server.createobject("ADODB.CONNECTION")
     if err then 
      err.clear
%>
<script language="javascript">
      top.location="sessionerr.htm"
  </script>
<%      
     else
        conn.open connstr 
        if err then 
          err.clear
       %>
<script language="javascript">
          top.location="sessionerr.htm"
       </script>
<%      
        end if
     end if
%>

