Jag får fram detta felmeddelande:

Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][Drivrutin för ODBC Microsoft Access]Allmänt fel Det går inte att öppna registernyckeln 'Temporary (volatile) Jet DSN for process 0xc30 Thread 0xd78 DBC 0x10dfdbc Jet'.


<%
id=Request.Querystring("produktID")

Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("data.mdb")&";pwd=ulla"
sql = "SELECT * FROM produkter where produktID = '" & produktID & "' ORDER BY titel"
set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 3, 3
%>

vad är det som är fel?

Hej!

Du använder en access 97 db? Jag gjorde det på mina sidor och har haft samma problem som du.
Hittade följande på mitt webbhotells support sidor:

OBS! Efter att ha installerat Microsofts senaste säkerhetsuppdatering på våra servrar upphör stödet för MS Access97 databaser.

Följande felmeddelande dyker upp om man råkat ut för detta:

Microsoft JET Database Engine error '80004005'
Cannot open database ''. It may not be a database that your application recognizes, or the file may be corrupt.

------------------------------------------------------

Ovanstående gäller om man kör med JET 3.5/4.0 och det här under får man om man använder ex. en sådan här connection:
conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("main.mdb")&";pwd=*****"

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 0x6ec Thread 0x828 DBC 0xb75e8cc Jet'.

/admin/fiske/main.asp, line 86

Lösningen på det hela är att uppgradera db:n till access 2000.

//Tomas

Hade access 2000 databas, och har t.o.m konverterat till 2002 format nu, inget funkar.

<b>>> conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("data.mdb")&";pwd=ulla"</b>

Byt driver till Jet 4.0 istället för den du kör med så fixar det sig säkert.

typ:

conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("data.mdb") & ";pwd=ulla"

nu står det:

Microsoft JET Database Engine (0x80004005)
Det går inte att hitta installerbar ISAM.

hmm?

ingen som vet? kommer inte vidare annars :(

Det beror nog på att att det skall vara:

<code>
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Server.MapPath("data.mdb") & ";" & _
"Persist Security Info=False;" & _
"Jet OLEDB:Database Password=ulla"
</code>

Jag antar att "ulla" är lösenordet för databas.

nu står det:

Feltyp:
Körningsfel i Microsoft VBScript (0x800A01A8)
Objekt krävs.: ''

Kan var ett fel som ligger längre ned i din sida. Komplett kod bör ser ut något s

<code>
<%
id=Request.Querystring("produktID")

Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Server.MapPath("data.mdb") & ";" & _
"Persist Security Info=False;" & _
"Jet OLEDB:Database Password=ulla"

set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "SELECT *" & vbCrLf & _
"FROM produkter" & vbCrLf & _
"WHERE produktID = '" & produktID & "'" & vbCrLf & _
"ORDER BY titel", conn, 3, 3
%>
</code>

Nu börjar jag bli tokig, nu står det:

ADODB.Field (0x80020009)
Antingen är BOF eller EOF satt till True, eller så har aktuell post raderats. Den begärda åtgärden kräver en aktuell post.

Har inte varit med om detta innan.

Missade ett av dina misstag. Du säter variabeln id men använder produktID. Du slipper sådana här problem om du använder Option Explicit överst i din sidor. Lägg också en koll inna du försöker skriva ut värden från recordsetet:
:

<code>
<%
Dim rs
Dim conn
Dim produktID
produktID=Request.Querystring("produktID")

Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Server.MapPath("data.mdb") & ";" & _
"Persist Security Info=False;" & _
"Jet OLEDB:Database Password=ulla"

set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "SELECT *" & vbCrLf & _
"FROM produkter" & vbCrLf & _
"WHERE produktID = '" & produktID & "'" & vbCrLf & _
"ORDER BY titel", conn, 3, 3

If rs.EOF Then
Response.Write "Det går inte att hitta angiven post."
Else
Response.Write "osv..." & rs("Fältnamn")
End If
%>
</code>