Denne fejl?

Fejl?

lol.. fejlen:

Microsoft OLE DB Provider for ODBC Drivers error \'80040e14\'

[Microsoft][ODBC Microsoft Access Driver] Syntax error (comma) in query expression \'id=2, 1\'.

Hvad er koden?

\'id=2, 1\'...

DU må ikke have et komma imellem dem

fejlen er i denne linje:

    rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic

det er i forbindelse med dette:

Const adOpenKeyset = 1
Const adLockOptimistic = 3

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

    Set rs = Server.CreateObject(\"ADODB.RecordSet\")
    strSQL = \"Select * FROM bilertilsalg WHERE id=\" & request.form(\"id\")
    rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
%>

hvad er resten af koden

Er det ikke nok at skrive:

rs.Open strSQL

?

HELE koden:

<% mode = request(\"mode\") %>
<% Response.buffer = true %>
<% if mode = \"\" then %>
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"porche.mdb\")
strSQL = \"select* from bilertilsalg ORDER BY ID DESC\"
set rs = Conn.execute(strSQL)

if rs.EOF then
Response.write \"<font face=\"\"Verdana\"\" size=\"\"2\"\">Der er ingen indlæg i databasen!</font>\"
else
Do Until rs.EOF
%>
<form method=\"POST\" action=\"?mode=update\">
<input type=\"hidden\" name=\"id\" size=\"50\" value=\"<%=RS(\"id\")%>\">
<center>
<table border=\"0\" width=\"90%\" cellspacing=\"0\" cellpadding=\"0\" height=\"166\">
  <tr>
    <td width=\"90%\" colspan=\"4\" background=\"images/streg_2_1.gif\" height=\"15\"><font size=\"1\" face=\"Tahoma\" color=\"#FFFFFF\"><%=rs(\"hej\")%></font></td>
  </tr>
<%RS.MoveNext
Loop
end if

Conn.Close
Set Conn = Nothing%>
<% end if %>
<table border=\"0\" width=\"90%\" cellspacing=\"0\" cellpadding=\"0\">
  <tr>
    <td width=\"90%\" colspan=\"3\" background=\"images/streg_2_1.gif\"><font size=\"1\" face=\"Tahoma\" color=\"#FFFFFF\">.</font></td>
  </tr>
</table>
</div>
</center>
</body>
<% if mode = \"update\" then %>
<%
Const adOpenKeyset = 1
Const adLockOptimistic = 3

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

    Set rs = Server.CreateObject(\"ADODB.RecordSet\")
    strSQL = \"Select * FROM bilertilsalg WHERE id=\" & request.form(\"id\")
    rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
%>
<% if Request.form(\"delete\") = \"ON\" then
      Rs.delete
Response.Redirect \"admin.asp\"
%><% end if %>

<% 
    rs.Update
rs(\"hej\") = Hej
      rs.Update

    rs.Close
    Set rs = Nothing

Conn.Close
set Conn = Nothing

Response.Redirect \"admin.asp\"
%>
<% end if %>

hvad gør: adOpenKeyset, adLockOptimistic

Prøv at fjerne det...

så siger den dette:
ADODB.Recordset error \'800a0e7d\'

Operation is not allowed on an object referencing a closed or invalid connection.

/raistlin/porche/biladmin.asp, line 94

okay... så kan jeg ikke hjælpe dig...

jeg hjalp ham vidst lidt over icq og han vil gerne give mig point så jeg svarer lige, men jeg sagde han skulle prøve at lave form feltet om fra hidden til text