Hjælp til checkboks og SQL
Hej.Jeg har denne kode her, men når jeg har markeret flere end 1 check boks siger den fejl i SQL'en.
Fejlen ser sådan her ud:
-----------------------------------------------------------------
Microsoft OLE DB Provider for ODBC Drivers error '80040e14'
[Microsoft][ODBC Microsoft Access Driver] Syntax error (comma) in query expression 'id=575, 568, 563, 522, 463, 408, 350, 296'.
/Nyeste.asp, line 78
Min kode ser sådan her ud:
------------------------------------------------------------------
<%
if request.QueryString("Sendt") = "" then
%>
<ol>
<form name="searchform" action="Nyeste.asp?Sendt=Sendt" method="post">
<a href="#" onclick="checkboxes('check');">Marker alle</a>
|
<a href="#" onclick="checkboxes('uncheck');">Afmarker alle</a><br />
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("/App_data/Brugersystem.mdb")
strSQL = "SELECT * FROM Bruger order by id desc"
set rs = Conn.execute(strSQL)
if rs.bof or rs.eof then
else
do
id = rs("id")
%>
<li><input type="checkbox" name="letter_id[]" id="letter_id[<%=id%>]" value="<%=id%>"><label for="letter_id[<%=id%>]" ><%= rs("Brugernavn") %></label></li>
<%
rs.MoveNext
Loop While Not rs.EOF
end if
Conn.Close
Set Conn = Nothing
%>
<input type="submit" value="Send">
</form>
</ol>
<% else %>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("/App_data/Brugersystem.mdb")
strSQL = "SELECT * FROM Bruger WHERE id=" & request.Form("letter_id[]") & " order by id desc"
set rs = Conn.execute(strSQL)
if rs.bof or rs.eof then
else
do
%>
<%= rs("Brugernavn") %><%
rs.MoveNext
Loop While Not rs.EOF
end if
Conn.Close
Set Conn = Nothing
%>
<% end if %>
