SQL

brug:

liste=request("cid")
if liste="" then liste="0"

sql="select * from table where id in ("&liste&") order by felt"

Jeg prøvede:

<%
Dim produkter
Dim produkter_numRows

Set produkter = Server.CreateObject("ADODB.Recordset")
produkter.ActiveConnection = MM_bst_STRING

liste=request("cid")
if liste="" then liste="0"

if liste = "0" then
sql="select * from tablehent_produkt where cid in ("&liste&") order by " + Replace(produkter__MMorder, "'", "''")
else
produkter.Source = "SELECT DISTINCT *  FROM hent_produkt  WHERE pid = " + Replace(produkter__MMpid, "'", "''") + " or cid = " + Replace(produkter__MMcid, "'", "''") + " and valgt = True  ORDER BY " + Replace(produkter__MMorder, "'", "''") + ""
end if

produkter.CursorType = 0
produkter.CursorLocation = 2
produkter.LockType = 1
produkter.Open()

produkter_numRows = 0
%>

DEN GIVER FEJLEN:

Microsoft OLE DB Provider for ODBC Drivers error '80040e0c'

Der er ikke angivet nogen kommandotekst for kommandoobjektet.

doc.asp, line 46  som er linien: produkter.Open()

jeg har rettet fejlen:
sql="select * from hent_produkt where cid in ("&liste&") order by " + Replace(produkter__MMorder, "'", "''")

men det giver samme fejl:
Der er ikke angivet nogen kommandotekst for kommandoobjektet

hvis jeg kalder f.eks: i.asp?cid=2&cid=4

fejl:
Syntax error (comma) in query expression 'cid = 2, 4

<%
' Prøv følgende:
strCid = "0" ' ikke eksistrende nøgle
For each Key in Request.QueryString("cid")
  strCid = strCid &"," &Key
Next
sql = "SELECT * FROM hent_produkt WHERE cid IN ("  &strCid &")"
Response.Write("<BR>SQL=" &sql)
%>
Resten har du ok ...

--
!!

desværre:
Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[Microsoft][ODBC Microsoft Access Driver] Syntax error (comma) in query expression 'cid = 1, 2 and valgt = True and deaktiveret = False'.


sql:
strCid = "0" ' ikke eksistrende nøgle
For each Key in Request.QueryString("cid")
  strCid = strCid &"," &Key
Next

produkter.Source = "SELECT DISTINCT *  FROM hent_produkt WHERE cid IN ("  &strCid &") and valgt = " + Replace(produkter__MMvalgt, "'", "''") + " and deaktiveret = " + Replace(produkter__MMdeaktiv, "'", "''") + "  ORDER BY " + Replace(produkter__MMorder, "'", "''") + ""

det ser ud til at virke, takker

Danm, jeg kan bare ikke tjekke på om

if strCid = "0" then det bliver en liste ... eller et eller andet.