Merhaba arkadaşlar kullandığım bir scriptte bu şekilde bir hata alıyorum. Sebebi ve çözümü nedir tam olarak, yardımlarınızı bekliyorum bu konuda.

Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][ODBC Microsoft Access Driver]General error Unable to open registry key 'Temporary (volatile) Jet DSN for process 0x165c Thread 0xd10 DBC 0x21db0bd4 Jet'.

/klasor1/register.asp, line 27

register.asp kodları ise aşşağıdadır.

<!-- #include file="Filtter.asp" -->
<title>sayfa basligi </title>
  <%
  Set osman=Server.CreateObject("Adodb.Connection")
  osman.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("veritabaniklasroru/DB.mdb") & ";pwd=adminadmin"
  
  %>

  <%  
  Set kayit=Server.CreateObject("Adodb.Recordset")
  Sorgu="Select * from UYELER"
  kayit.Open sorgu, osman, 1 , 3 
  
  dim rumuz
  dim sifre
  dim email
  dim cinsiyet
  
  rumuz    = duz(request.form("rumuz"))
  sifre    = duz(request.form("sifre"))
  email    = duz(request.form("email"))
  cinsiyet = duz(request.form("cinsiyet"))
  
yer=server.mappath("veritabaniklasoru/DB.mdb")
ac="DBQ="& yer &";Driver={Microsoft Access Driver (*.mdb)}"
set baglanti=server.createobject("adodb.connection")
baglanti.open ac,1,3
set rs=server.createobject("adodb.recordset")

SQLkont="Select * from UYELER where rumuz='"& rumuz &"'"
rs.open SQLkont, baglanti, 1, 3
if not rs.eof then
response.write "<br><br><br><center><br><br><font color=red size=1 face=verdana> Bu Rumuz baskasi
tarafindan kullaniliyor. !<br><br>"
response.end
end if
rs.close

  kayit.addnew
  kayit("rumuz")    = rumuz
  kayit("sifre")    = sifre
  kayit("email")    = email
  kayit("cinsiyet") = cinsiyet
  kayit.update
  %>[/color]
    
<script>
alert("Üyelik isleminiz basari ile gerçeklesti. Login sayfamizdan giris yapabilirsiniz..");history.back()
</script>