Avatar billede finntoft Nybegynder
18. november 2001 - 03:26 Der er 1 løsning

Problem med Indtastnig i Database!

Hej...
Er der nogle som kan fortælle hvad jeg gør forkert?
Der kommer denne fejlmeddelse!

Fejltype:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Microsoft Access-driver]Der opstod en generel fejl. Registreringsnøglen Temporary (volatile) Jet DSN for process 0x4a0 Thread 0x540 DBC 0x2176b24 Jet kan ikke åbnes.


Min Kode:

<%

Const adOpenKeyset = 1
Const adLockOptimistic = 3

Set Conn1 = Server.CreateObject(\"ADODB.Connection\")
Conn1.Open \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"../../data.mdb\") & \";UID=admin;PWD=;\"

    Set rs1 = Server.CreateObject(\"ADODB.RecordSet\")
    strSQL1 = \"Select * From download\"
    rs1.Open strSQL1, Conn1, adOpenKeyset, adLockOptimistic
   


      rs1.AddNew
      rs1(\"DownName\") = Request.form(\"DownName\")
      rs1(\"Beskrivelse\") = Request.form(\"Beskrivelse\")
      rs1(\"url\") = Request.form(\"url\")
      rs1(\"Dato\") = Now
     
     
     
      If Request.form(\"KatNy\") = \"\" Then
      rs1(\"Katdown\") = Request.form(\"Kat\")
      rs1.Update
     
        rs1.Close
        Set rs1 = Nothing
        Conn1.Close
        set Conn1 = Nothing
     
     
      Else

      rs1(\"Katdown\") = Request.form(\"Katny\")
      rs1.Update
        rs1.Close
        Set rs1 = Nothing
        Conn1.Close
        set Conn1 = Nothing
     
    \'-------------------------------------------------
               
        Set Conn2 = Server.CreateObject(\"ADODB.Connection\")
        Conn2.Open \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"../../data.mdb\") & \";UID=admin;PWD=;\"

          Set rs2 = Server.CreateObject(\"ADODB.RecordSet\")
          strSQL2 = \"Select * From katdown\"
          rs2.Open strSQL2, Conn2, adOpenKeyset, adLockOptimistic
     
      rs2.AddNew
      rs2(\"Kat\") = Request.form(\"Katny\")
      rs2.Update
     
        rs2.Close
        Set rs2 = Nothing
        Conn2.Close
        set Conn2 = Nothing
      End if

response.redirect (\"admin.asp\")
%>

På forhånd tak!
Avatar billede finntoft Nybegynder
18. november 2001 - 12:11 #1
Har selv fundet ud af det!
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester