<%
   dim conn,connstr
   on error resume next
if chatdate=1 then  
   connstr="Provider=SQLOLEDB;SERVER=(Local);UID=sa;PWD=;DATABASE="
elseif chatdate=0 then
   connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("dachat.asp")
end if
   set conn=server.createobject("adodb.connection")
   conn.open connstr
   if err then 
      err.clear
   else
        conn.open connstr 
        if err then 
           err.clear
        end if
   end if
%>