Hej
Jeg sidder og leger med et scipt der skal opdatere en hel tabel. Jeg kan dog
ikke rigtigt finde fejlen i det. Er det nogen der kan hjælpe ?
Fejlen ser således ud:
Microsoft OLE DB Provider for ODBC Drivers error '80040e14'
[Microsoft][ODBC Microsoft Access Driver] Syntax error (comma) in query
expression 'Ordrenr = 46, 47, 49, 50, 51, 52, 53, 54'.
/Ordreoversigtarkiv.asp, line 136
Når den skal opdatere hver enkelt ordernr. så tager den hele rækken
Selve koden ser såldes ud:
Dim Conn
function OpenConn (DBName)
Set Conn = Server.CreateObject("ADODB.Connection")
ODBCpath = left(request.ServerVariables("PATH_TRANSLATED"),
instrrev(request.ServerVariables("PATH_TRANSLATED"), "\"))
Conn.Open "DBQ=" & ODBCpath & DBName & ";DefaultDir=" & ODBCpath &
";Driver={Microsoft Access Driver (*.mdb)}"
End function
OpenConn("Arkiv.mdb")
strQ = "SELECT * FROM Ordrenr WHERE Status = 'Modtaget' "
strQ = strQ & "ORDER BY Ordrenr"
Set rs = Conn.Execute (strQ)
%>
<form ACTION="<%= Request.ServerVariables ("SCRIPT_NAME") %>" METHOD="POST"
id="form1" name="form1">
<html>
<body>
<table border="1" Width="95%" Align="Center"><tr>
<th align="Mid" Bgcolor="9999ff"> Ordrenr</th>
<th align="Mid" BGcolor="9999ff"> Ordredato</th>
<th align="Mid" Bgcolor="9999ff"> Navn</th>
<th align="Mid" Bgcolor="9999ff"> ordre total</th>
<th align="left" Bgcolor="9999ff"> Gl. Status</th>
<th align="left" Bgcolor="9999ff"> Ny Status</th>
<th align="left" Bgcolor="9999ff"> Betalingbeløb</th>
<th align="left" Bgcolor="9999ff"> Track</th>
<th align="Mid" Bgcolor="9999ff"> Kommentar</th>
</tr>
<%
' Opretter tabel
Ordrebeholdning = 0
While Not rs.EOF
Response.Write "<tr><td><Input Type=""TEXT"" SIZE=""10"" NAME=Ordrenr
VALUE=""" & rs("Ordrenr") & """>"
strOrdrenr = rs("Ordrenr")
ID = rs("Ordrenr")
Response.Write "<td Bgcolor= bfbfbf>" & rs("Dato") & "</td>"
Response.Write "<td Bgcolor= bfbfbf>" & rs("Navn") & "</td>"
Response.Write "<td Bgcolor= bfbfbf>" & rs("Kr") & "</td>"
Ordrebeholdning = Ordrebeholdning + rs("Kr")
Response.Write "<td Bgcolor= bfbfbf>" & rs("Status") & "</td>"
strNystatus = rs("Status")
If strNystatus = "Modtaget" Then
aSelected = "Selected"
Elseif strNystatus = "Delvis leveret" Then
bSelected = "Selected"
Elseif strNystatus = "Afventer Betaling" Then
cSelected = "Selected"
Elseif strNystatus = "Kan afhentes i Vejle" then
dSelected = "Selected"
Elseif strNystatus = "Kan afhentes i København" then
eSelected = "Selected"
Elseif strNystatus = "Klar til afsendelse" then
fSelected = "Selected"
Elseif strNystatus = "Afsendt" then
gSelected = "Selected"
End If
%>
<td><select Name="Nystatus" >
<option Value="Modtaget" <% = aSelected %> > Modtaget
<option Value="Delvis leveret" <% = bSelected %> > Delvis leveret
<option Value="Afventer Betaling" <% = cSelected %> > Afventer Betaling
<option Value="Kan afhentes i Vejle" <% = dSelected %> > Kan afhentes i
Vejle
<option Value="Kan afhentes i København" <% = eSelected %> > Kan afhentes i
København
<option Value="Klar til afsendelse" <% = fSelected %> > Klar til afsendelse
<option Value="Afsendt" <% = gSelected %> > Afsendt
</td>
</select>
<%
Response.Write "<td><Input Type=""TEXT"" SIZE=""10"" NAME=Betalingkr
VALUE=""" & rs("Betalingkr") & """>"
Response.Write "<td><Input Type=""TEXT"" SIZE=""10"" NAME=Track VALUE=""" &
rs("Track") & """>"
Response.Write "<td><Input Type=""TEXT"" SIZE=""10"" NAME=Kommentar
VALUE=""" & rs("Bemærkning") & """>"
rs.MoveNext
Wend
Response.Write "<tr><td><td><td>" & "Ordrebeholdning" & "<td>" &
ordrebeholdning
%>
</table>
<br>
<table>
<table align="Center">
<%
Response.Write "<tr><td align=""Mid""><INPUT TYPE=SUBMIT NAME=""DO""
VALUE=""Opdater""></td>"
%>
</table>
</form>
</body>
</html>
<%
Select Case Trim(Request.Form("DO"))
Case "Opdater"
strStatus = "Afsendt"
strBetalingkr = Trim(Request.Form("Betalingkr"))
strTrack = Trim(Request.Form("Track"))
strKommentar = Trim(Request.Form("Bemærkning"))
strOrdrenr = Trim(Request.Form("Ordrenr"))
nOrdrenr = Trim(Request.Form("Ordrenr"))
strAA = "UPDATE Ordrenr SET Status ='"&strStatus&"' WHERE Ordrenr = " &
strOrdrenr & ""
Conn.Execute(strAA)
End select
rs.close
Conn.Close
Set rs = Nothing
set Conn = Nothing
%>