Opdatere Access giver fejl: Unable to open registry key

Den kan ikke finde din database

prøv at smide dit script herind...

Global.asa:
<SCRIPT LANGUAGE=VBScript RUNAT=Server>
SUB Session_OnStart

Session("DB") = "DBQ="&Request.ServerVariables("APPL_PHYSICAL_PATH")&"...\Database\indeks.mdb;" &_
  "DefaultDir="&Request.ServerVariables("APPL_PHYSICAL_PATH")&"...\Database\;" &_
  "Driver={Microsoft Access Driver (*.mdb)};" &_
  "DriverId=25;FIL=MS Access;" &_
  "ImplicitCommitSync=Yes;" &_
  "MaxBufferSize=512;" &_
  "MaxScanRows=8;" &_
  "PageTimeout=5;" &_
  "SafeTransactions=0;" &_
  "Threads=3;UID=admin;" &_
  "UserCommitSync=Yes;"

END SUB
</SCRIPT>
----------------------------------------------------------
Login.asp:
<%@ LANGUAGE="VBSCRIPT" %>
<!-- #include file="Adovbs.inc" -->
<%
SET Conn = Server.CreateObject("ADODB.Connection")
Conn.Open Session("DB")

SQL = "SELECT * FROM IndeksEmner Where BrugerID = '"&strBrugernavn&"' AND Password = '"&strAdgangskode&"'"
SET Rs = Conn.Execute(SQL)
 
if not rs.eof then 
  xID = rs.Fields("ID")
  xOk = "1"
  xAntalBesog = Rs.Fields("AntalBesog") + 1                           
end if

RS.Close
Set RS = Nothing

if strBrugernavn = "demo" then xOk = "2"

if xOk = "1" then
  Set MyConn=Server.CreateObject("ADODB.Connection")
  MyConn.Open Session("DB")

  SQL = "Update IndeksEmner Set "
  SQL = SQL & " AntalBesog = " & xAntalBesog
  SQL = SQL & " Where [ID] = " & xID
  MyConn.Execute(SQL)

  MyConn.Close
  Set MyConn = Nothing
:
:
------------------------

på serveren har jeg installeret Front page, for at kunne håndtere asp,
men er noget med, at der skal være installeret extensions - hvordan gør man det - og kan det evt. løse det beskrevne problem ???

fraråder at bruge frontpage til asp, men nok om det...

denne er ikke gyldig:

Session("DB") = "DBQ="&Request.ServerVariables("APPL_PHYSICAL_PATH")&"...\Database\indeks.mdb;" &_

udskiftes med:

Session("DB") = "DBQ=" & server.mappath("../Database/indeks.mdb") & "; " &_
"DefaultDir=" & server.mappath("../Database/indeks.mdb") &_
  " Driver={Microsoft Access Driver (*.mdb)};" &_
  "DriverId=25;FIL=MS Access; " &_
  "ImplicitCommitSync=Yes; " &_
  "MaxBufferSize=512; " &_
  "MaxScanRows=8;" &_
  "PageTimeout=5;" &_
  "SafeTransactions=0; " &_
  "Threads=3;UID=admin; " &_
  "UserCommitSync=Yes; "


Prøv det

men en lidt nemmere model end den du laver der:

<%
set conn = server.createobject("adodb.connection")
session("DB") = "DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ=" & server.mappath("../Database/indeks.mdb"), 1, 3
conn.Open session("DB")
%>

tak - jeg afprøver imorgen ...

lukketid?

Vi prøver lige igen... Skal vi lukke? Synes du ikke at det er ved at være tiden...

Så jekk... Så må det da være tiden...

så må det da være lukketid...! Næste step: Anmeldelse!