Halløj i NGen
jeg har et problem med at tilføje rækker til en access database.
Jeg får følgende fejl meddelse, når jeg prøvet på at opdatere
databasen med RS.Update.
Jeg får følgende fejlmeddelse:
ADODB.Recordset fejl '800a0bb9'
Argumenterne har en forkert type eller er uden for det angivne område,
eller der er opstået en konflikt mellem dem.
/ny_hardware-pcs-add.asp, linje 292
Min kode ser sådan ud:
Dim Conn, RS, Showitem, adOpenstatic, adLockOptimistic, Query
'On Error Resume Next
'ShowItem
Request("Navn"),Request("Ram"),Request("Ram_Add"),Request("Hd"),Request("Hd_Add"),Request("Cpu_Brand"),Request("Cpu_Mhz"),Request("Cpu_Oc"),Request("Cpu_Add"),Request("Internet"),Request("Internet_Add"),Request("Monitor"),Request("Monitor_Add"),Request("Andet"),
Date
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &
Server.Mappath ("db/db.mdb")
Set RS = Server.CreateObject("ADODB.Recordset")
Query = "SELECT * FROM add_pcs"
RS.Open Query, Conn, adOpenStatic, adLockOptimistic
RS.AddNew
RS ("Dato") = Date
RS ("Navn") = Request("Navn")
RS ("Ram") = Request("Ram")
RS ("Ram_Add") = Request("Ram_Add")
RS ("Hd") = Request("Hd")
RS ("Hd_Add") = Request("Hd_Add")
RS ("Cpu_Brand") = Request("Cpu_Brand")
RS ("Cpu_Mhz") = Request("Cpu_Mhz")
RS ("Cpu_Oc") = Request("Cpu_Oc")
RS ("Cpu_Add") = Request("Cpu_Add")
RS ("Internet") = Request("Internet")
RS ("Internet_Add") = Request("Internet_Add")
RS ("Monitor") = Request("Monitor")
RS ("Monitor_Add") = Request("Monitor_Add")
RS ("Andet") = Request("Andet")
RS.Update
If Err.Number = 0 Then
%>
<p>Tak for du brugte lidt tid på at tilføje din computer.</p>
<p>Du kan se dine oplysninger <a
href="ny_hardware.pcs.asp">HER</a></p>
<% Else %>
Der opstod en fejl #<%=Err.Number%>: <%=Err.Description%>
<% End If %>
<% End If %>
Nogen der kan se hvor det går galt, for jeg kan sgu ikke :(
mvh Ryan