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!
