I alt ?

SELECT COUNT(*) AS Found FROM tabel WHERE kategori LIKE \'A%\' OR kategori LIKE \'a%\'

SQL = \"select count(*) as antal from citat where left(citat, 1) = \'A\'\"

til moonduck:

ADODB.Connection error \'800a0bb9\'

Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.

citat2.asp, line 68

------------------------

Linje 68:
<%if rs.EOF then%>

kornfreak < men sådan requester den ik kategori ?

SQL = \"select count(*) as antal from citat where left(citat, 1) = \'A\' AND Kategori = \'\" & Kategori & \"\'\"

den er fandme langsom http://brinkster.com/

moonduck > jeg har fået den til at virke med din script, men den siger der er 0 citater, selvom der findes en citat ?

jeg tester lige kornfreak måde :o)

kornfreak > hvordan indsætter jeg tingen her ? udfra <% =ialt %>

<%
    mode = request.querystring(\"mode\")
    kategori = request.querystring(\"kategori\")
    kategori = Request(\"kategori\")

str_alfa = LCase(Request.QueryString.Item(\"alfa\")) & UCase(Request.QueryString.Item(\"alfa\"))
str_sql2 = \"SELECT * From snydekoder where kategori = \'\" & kategori & \"\' AND \"
If Len(str_alfa) < 1 Then
str_alfa = \"ABCDabcd\"
End if
  for i = 1 to Len(str_alfa)
    If i <> 1 Then
      str_sql2 = str_sql2 & \" OR\"
    End If
    str_sql2 = str_sql2 & \" snydekoder LIKE \'\" &  Mid(str_alfa,i,1) & \"%\'\"
next

str_sql2 = str_sql2 & \" ORDER BY snydekoder\"

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.MapPath(\"db.mdb\")
Set rs = Conn.Execute (str_sql2)
%> <%
    mode = request.querystring(\"mode\")
    kategori = request.querystring(\"kategori\")
    kategori = Request(\"kategori\")

str_alfa = LCase(Request.QueryString.Item(\"alfa\")) & UCase(Request.QueryString.Item(\"alfa\"))
str_sql2 = \"SELECT * From snydekoder where kategori = \'\" & kategori & \"\' AND \"
If Len(str_alfa) < 1 Then
str_alfa = \"ABCDabcd\"
End if
  for i = 1 to Len(str_alfa)
    If i <> 1 Then
      str_sql2 = str_sql2 & \" OR\"
    End If
    str_sql2 = str_sql2 & \" snydekoder LIKE \'\" &  Mid(str_alfa,i,1) & \"%\'\"
next

str_sql2 = str_sql2 & \" ORDER BY snydekoder\"

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.MapPath(\"db.mdb\")
Set rs = Conn.Execute (str_sql2)
%>

Prøv med:

SELECT COUNT(*) AS Found FROM tabel WHERE kategori LIKE \'A*\' OR kategori LIKE \'a*\'

Kan ikke lige huske hvordan det er i Access.

Jeg ved ikke om det er det her du mener:
<%
    mode = request.querystring(\"mode\")
    kategori = request.querystring(\"kategori\")
    bogstav = request.querystring(\"bogstav\")

sql = \"SELECT * From snydekoder where kategori = \'\" & kategori & \"\' AND left(snydekoder, 1) = \'\" & bogstav & \"\' ORDER BY snydekoder\"

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.MapPath(\"db.mdb\")
Set rs = Conn.Execute (sql)
%>

moonduck > med dit script får jeg \"siden kan ik vises\" jeg har skiftet Tabel

kornfreak > undskyld, glem den script

hvorfor virker den her ik :

<%
    mode = request.querystring(\"mode\")
    kategori = request.querystring(\"kategori\")
    kategori = Request(\"kategori\")

Set Rs = Server.CreateObject(\"ADODB.Connection\")
DBPath = \"DBQ=\" & server.mappath(\"db.mdb\")
Rs.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; \" & DBPath
SQL = SELECT COUNT(*) AS Found FROM snydekoder WHERE kategori LIKE \'A*\' OR kategori LIKE \'a*\'
Set Record =  Rs.Execute(Sql)
Ialt = Record(\"found\")
%>
  <b>
  <% =ialt %>

Mere specifik fejl... Prøv evt. at gå ind i din IE under:

Funktioner->internetindstillinger>>Avanceret>> Ok fjern fluebenet i vis fejl om http meddelelser (e.lign)

Så får du bedre fejlmeddelelser

under hvad står der \"vis fejl om http meddelser (e.lign)

DEn hedder \"vis meddelelser om uskadelige http-fejl\" der skal ikke være afkryds.

<%
    mode = request.querystring(\"mode\")
    kategori = request.querystring(\"kategori\")
    kategori = Request(\"kategori\")

Set Rs = Server.CreateObject(\"ADODB.Connection\")
DBPath = \"DBQ=\" & server.mappath(\"db.mdb\")
Rs.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; \" & DBPath
SQL = \"SELECT COUNT(*) AS Found FROM snydekoder WHERE kategori LIKE \'A*\' OR kategori LIKE \'a*\'\"
Set Record =  Rs.Execute(Sql)
Ialt = Record(\"found\")
%>
  <b>
  <% =ialt %>

moonduck > ok den virker, men den viser 0 istedet for 1

Er du sikker på at der er data?

Har du prøvet at køre den inde fra access som en forespørgsel?

Har du prøvet med både * og % jeg kan ikke huske hvad man bruger i access så prøv begge.

SQL = SELECT COUNT(*) AS Found FROM snydekoder WHERE kategori LIKE \'%A%\' OR kategori LIKE \'%a%\'

Eller..

SQL = \"SELECT COUNT(*) AS Found FROM snydekoder WHERE left(kategori,1) = \'A\' OR left(kategori,1)= \'a\'\"

kornfreak>> Så får du jo ikke kun dem der starter med a men ALLE der indeholder a. Og desuden skal du huske at have \" rundt om din variabel angivelse sådan her

SQL = \"min sql streng\"

Hvad med at prøve :

Ialt = Record.recordcount ??

moon > Det var en hurtig copy paste? :P

kornfreak > den viser 7, selvom der er ik 7 der begynder med a, og der er hellere ik 7 indlæg i databasen ?

med denne script:
SQL = SELECT COUNT(*) AS Found FROM snydekoder WHERE kategori LIKE \'%A%\' OR kategori LIKE \'%a%\'

jeg prøver lige den anden !

Okay >> den anden viser kun dem der starter med a!

jeg får \"Siden kan ik vises\" med denne script

SQL = \"SELECT COUNT(*) AS Found FROM snydekoder WHERE left(kategori,1) = \'A\' OR left(kategori,1)= \'a\'\"

Se etv. http://www.eksperten.dk/spm/88089

DEr er noget seriøst galt med din webserver, jeg syntes du får 404 konstant også med andre problemstillingen jeg har prøvet at hjælpe dig med.

Enig...

tjek :
http://web-zone.dk/snyde/

Funker da fint ?

ja, men der står i A findes der 7 snydekoder, men der findes kun 1

nu tror jeg nok der er noget galt med mit alfabitisk orden...

prøv at trykke på E....så kommer der et spil som ik starter med e, jeg tror nok fejlen kommer fra den linje.

str_sql2 = str_sql2 & \" snydekoder LIKE \'%\" &  Mid(str_alfa,i,1) & \"\'\"

har fixet det :o), men den viser endnu ik antal a være bogstaver !