---
title: "Visa antal träffar?"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/40877-visa-antal-träffar"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Korak"
published: "2002-04-04T14:54:05.000Z"
updated: "2002-04-05T23:15:02.000Z"
replies: 37
views: 813
page: 1
pages: 2
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/40877-visa-antal-träffar"
---

# Visa antal träffar?

_Sida 1 av 2._

## #1 — Korak, 2002-04-04T14:54Z

Sitter och försöker få ihop ett sökscript.
Det jag inte får till är att få fram antal träffar efter en sökning.
Någon som kan hjälpa mig?
Så här ser scriptet ut (falt1 är Id):

```
     
<td><b>Sökresultat</b> Antal tfräffar: <%Fattar=Noll%></td>
  </tr>
  <tr> 
     <td><img src="dot.gif" width="284" height="10"></td>
  </tr>
        <%Falt = Trim(Request.Form("falt"))

        If Len(Request.Form("sokord")) > 0 then 

        Set Conn = Server.CreateObject("ADODB.Connection")
        Set RecSet    = Server.CreateObject("ADODB.Recordset")
        Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & db

        SQL = "Select * From " & Tabell & " Where " & Falt & " Like '%" & Request.Form("sokord") & "%' Order By " & falt1 & " Desc"
        RecSet.Open SQL, Conn

 	If RecSet.EOF Then
            Response.write "<tr><td>Sökordet <b>" & Request.Form("sokord") & "</b> gav inga fräffar!</td></tr><tr><td><img src=dot.gif width='100%'></td></tr>"
        Else
        Do Until RecSet.EOF
	    Response.Write "<tr height=15><td>" & Left(RecSet(falt4),10) & "</td></tr>"
            Response.Write "<tr height=15><td><a href=javascript:res('" & link & "?do=visa&id=" & RecSet(falt1) & "');>" & Left(RecSet(falt2),50) & "</a></td></tr>"
            Response.Write "<tr><td><img src=dot.gif width='100%'></td></tr>"
        RecSet.MoveNext
	Loop

	RecSet.Close
	Set RecSet = Nothing
        End If
   Else
       Response.write "<tr><td class=normal>Du måste skriva in ett sökord!</td></tr><tr><td><img src=dot.gif width='100%'></td></tr>"
   End If%>
```

Permalänk: https://www.webforum.nu/p/40877

## #2 — eas, 2002-04-04T15:25Z

```
<%
        Set Conn = Server.CreateObject("ADODB.Connection")
        Set RecSet    = Server.CreateObject("ADODB.Recordset")
        Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & db

        SQL = "Select count(*) AS traffar From " & Tabell & " Where " & Falt & " Like '%" & Request.Form("sokord") & "%' Order By " & falt1 & " Desc"
        RecSet.Open SQL, Conn
%>

<td><b>Sökresultat</b> Antal tfräffar: <%=RecSet("traffar")%></td>
  </tr>
  <tr> 
     <td><img src="dot.gif" width="284" height="10"></td>
  </tr>
        <%Falt = Trim(Request.Form("falt"))

If Len(Request.Form("sokord")) > 0 then 

 	If RecSet.EOF Then
            Response.write "<tr><td>Sökordet <b>" & Request.Form("sokord") & "</b> gav inga fräffar!</td></tr><tr><td><img src=dot.gif width='100%'></td></tr>"
        Else
        Do Until RecSet.EOF
	    Response.Write "<tr height=15><td>" & Left(RecSet(falt4),10) & "</td></tr>"
            Response.Write "<tr height=15><td><a href=java script:res('" & link & "?do=visa&id=" & RecSet(falt1) & "');>" & Left(RecSet(falt2),50) & "</a></td></tr>"
            Response.Write "<tr><td><img src=dot.gif width='100%'></td></tr>"
        RecSet.MoveNext
	Loop

	RecSet.Close
	Set RecSet = Nothing
        End If
   Else
       Response.write "<tr><td class=normal>Du måste skriva in ett sökord!</td></tr><tr><td><img src=dot.gif width='100%'></td></tr>"
   End If%>
```

Kanske  :OO
men jag tror jag pillade sönder dina tabeller lite  :(

Permalänk: https://www.webforum.nu/p/637975

## #3 — Korak, 2002-04-04T15:43Z

Funkade inte. Jag får detta felmeddelande vid en sökning på ordet chat:

```
Microsoft OLE DB Provider for ODBC Drivers error '80040e14' 
[Microsoft][ODBC Microsoft Access Driver] Syntax error (missing operator) in query expression 'Like '%chat%''. 

/nyheter/sok.asp, line 79
```

Detta är rad 79:

```
<%
        Set Conn = Server.CreateObject("ADODB.Connection")
        Set RecSet    = Server.CreateObject("ADODB.Recordset")
        Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & db

        SQL = "Select count(*) AS traffar From " & Tabbe & " Where " & Falt & " Like '%" & Request.Form("sokord") & "%' Order By " & falt1 & " Desc"
        <!-- Detta är rad 79 --> RecSet.Open SQL, Conn
%>
```

Permalänk: https://www.webforum.nu/p/637980

## #4 — LarsG, 2002-04-04T16:00Z

Kan du lägga till en utskrift av sql-frågan och visa resultatet?

```
SQL = "Select count(*) AS traffar From " & Tabbe & _
" Where " & Falt & " Like '%" & Request.Form("sokord") & _
"%' Order By " & falt1 & " Desc"
response.write sql 
response.end
```

En sak är att du använde Tabell tidigare men eas har Tabbe i sin kod

Permalänk: https://www.webforum.nu/p/637986

## #5 — Korak, 2002-04-04T16:33Z

Postar hela koden, kanske är lättast så.
Här är hela söksidan exakt som den ser ut:

```
<%
soknamn = "Sök efter Nyhet:"

link = "sok.asp"  
db = Server.MapPath("nyheter.mdb")

Tabbe = "news"     

falt1 = "Id"

falt2 = "news_title"
falt3 = "news_text"
falt4 = "news_date"
%>

<html>
<head>
<title>S&ouml;k</title>

<script language="JavaScript" type="text/javascript">
<!--
function res(sida){
window.open(sida,"popup","scrollbars=1,resizable=0,width=420,height=150"); }
//-->
</script>

</head>
<body>

<%If Request.QueryString("do") = "" Then%>
<table cellspacing="0" cellpadding="0" width="250" border="0">
  <tr> 
      
    <td><b>S&ouml;k efter Nyhet:</b></td>
  </tr>
  <tr> 
      
    <td>&nbsp;</td>
   </tr>
   <tr> 
    <form name="sok" method="post" action="<%=link%>?do=sok">
      <td><input type="text" name="sokord" size="22" maxlength="20">&nbsp;
          <input type="hidden" name="falt" value="<%=falt3%>">
       &nbsp;<input type="submit" name="Submit" value="Sök"></td>
    </form>
   </tr>
</table>
<%End If

If Request.QueryString("do") = "sok" Then%>

<table cellspacing="0" cellpadding="0" width="250" border="0">
  <tr> 
      <td><b><%=soknamn%></b></td>
  </tr>
  <tr> 
      
    <td>&nbsp;</td>
    </tr>
  <tr> 
    <form name="sok" method="post" action="<%=link%>?do=sok">
      <td><input type="text" name="sokord" size="22" maxlength="20">&nbsp;
       <input type="hidden" name="falt" value="<%=falt3%>">
       &nbsp;<input type="submit" name="Submit" value="Sök"></td>
    </form>
 </tr>
  <tr> 
      
    <td>&nbsp;</td>
  </tr>
  <tr> 
    <td><b>Sökresultat:</b></td>
  </tr>
  <tr> 
      
    <td>&nbsp;</td>
    </tr>
        <%Falt = Trim(Request.Form("falt"))

        If Len(Request.Form("sokord")) > 0 then 

        Set Conn = Server.CreateObject("ADODB.Connection")
        Set RecSet    = Server.CreateObject("ADODB.Recordset")
        Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & db

        SQL = "Select * From " & Tabbe & " Where " & Falt & " Like '%" & Request.Form("sokord") & "%' Order By " & falt1 & " Desc"
        RecSet.Open SQL, Conn

 	If RecSet.EOF Then
            Response.write "<tr><td>Sökordet <b>" & Request.Form("sokord") & "</b> gav inga fräffar!</td></tr><tr><td><img src=dot.gif width='100%'></td></tr>"
        Else
        Do Until RecSet.EOF
		    Response.Write "<tr height=15><td>" & Left(RecSet(falt4),10) & "</td></tr>"
            Response.Write "<tr height=15><td><a href=javascript:res('" & link & "?do=visa&id=" & RecSet(falt1) & "');>" & Left(RecSet(falt2),50) & "</a></td></tr>"
            Response.Write "<tr><td><img src=dot.gif width='100%'></td></tr>"
        RecSet.MoveNext
	Loop

	RecSet.Close
	Set RecSet = Nothing
        End If
   Else
       Response.write "<tr><td>Du måste skriva in ett sökord!</td></tr><tr><td><img src=dot.gif width='100%'></td></tr>"
   End If%>
</table>

<%End If

If Request.QueryString("do") = "visa" Then
  Set Conn = Server.CreateObject("ADODB.Connection")
  Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & db

  Set RecSet = Conn.Execute("Select * From " & Tabbe & " Where id=" & Request.QueryString("id"))%>

<table cellspacing="0" cellpadding="0" width="100%">
  <tr>
    <td><%=RecSet(falt4)%></td>
  </tr>
  <tr> 
    <td><b><%=RecSet(falt2)%></b></td>
  </tr>
  <tr> 
      
    <td background="dot.gif">&nbsp;</td>
    </tr>
    <tr> 
      <td><%=Replace(RecSet(falt3), vbCrLf, "<br>")%></td>
    </tr>
 </table>
<%End If%>

</body>
</html>
```

Permalänk: https://www.webforum.nu/p/638001

## #6 — LarsG, 2002-04-04T17:18Z

Nej, det är bara den sql-sats som ger fel som är intressant. 

vad blir resultatet av response.write ?

Permalänk: https://www.webforum.nu/p/638019

## #7 — Korak, 2002-04-04T17:48Z

Jag förstår mig inte på det där med "utskrift av sql-frågan...".
Provade att lägga in det på alla möjliga sätt men får bara samma felmeddelande.

Hela koden som jag postade ovan är sidan som den ser ut nu (förutom ett stylesheet), utan någon "antal träffar" kod.
Allt funkar som det ska, skulle bara vilja få in "antal träffar" i den.
Så här ser det ut:
<http://www.eskobar.nu/nyheter/sok.asp>

Permalänk: https://www.webforum.nu/p/638025

## #8 — Zaxxus, 2002-04-04T19:41Z

OK, om du ska visa hur många träffar din sökning returnerade
så är det väl enklast att använda en variabel som räknar varje träff?

```
SearchCount = SearchCount + 1
```

Bara kläm in koden, före RecSet.MoveNext så ska det gå bra.
Sedan är det bara att skriva ut resultatet, från variabeln.  ;)

Permalänk: https://www.webforum.nu/p/638087

## #9 — Korak, 2002-04-04T20:33Z

Det är samma felmeddelande som förrut när jag lägger koden där.

Permalänk: https://www.webforum.nu/p/638108

## #10 — solbulle, 2002-04-04T20:36Z

Är du säker på att du satt kodbiten på rätt ställe?

Permalänk: https://www.webforum.nu/p/638112

## #11 — Korak, 2002-04-04T21:01Z

> Är du säker på att du satt kodbiten på rätt ställe?

Nej, jag är maximalt osäker. Jag är för dålig på sånt här.
Jag klistrade in den där Zaxxus sa. "före RecSet.MoveNext"
Tror nästan jag struntar i att lägga in "antal träffar".

Hela sökscriptet som det ser ut nu, fungerannde,  utan några "visa antal" kodförsök la jag in för 3 inlägg sedan.
Om någon vill komma med tips på hur jag kan baka in "visa antal träffar" efter en sökning så är det varmt välkommet.
Annars är det inte i hela världen, det är ju ingen funktion som är absolut nödvändig.
Scriptet ligger uppe här: <http://www.eskobar.nu/nyheter/sok.asp> 

Hur som helst, tack för tipsen!

Permalänk: https://www.webforum.nu/p/638117

## #12 — Zaxxus, 2002-04-04T23:20Z

Vad för typ av felmeddelande får du om du lägger in den koden där jag sa att du skulle placera den?

Permalänk: https://www.webforum.nu/p/638146

## #13 — Korak, 2002-04-04T23:31Z

Samma som tidigare.
Vid en sökning på ordet chat:

```
Microsoft OLE DB Provider for ODBC Drivers error '80040e14' 
[Microsoft][ODBC Microsoft Access Driver] Syntax error (missing operator) in query expression 'Like '%chat%''. 

/nyheter/sok.asp, line 79
```

Permalänk: https://www.webforum.nu/p/638149

## #14 — Zaxxus, 2002-04-05T00:23Z

Testa med att ersätta ' (apostroferna) med " (citattecken) i Like satsen.

Permalänk: https://www.webforum.nu/p/638151

## #15 — Korak, 2002-04-05T00:44Z

Tyvärr, det funkade inte heller. Det blev:

```
Microsoft VBScript compilation error '800a0408' 

Invalid character 

/nyheter/sok.asp, line 98 

SQL = "Select count(*) AS traffar From " & Tabbe & _" Where " & Falt & " Like "%" & Request.Form("sokord") & _"%" Order By " & falt1 & " Desc"
----------------------------------------------------^
```

Jag tror faktiskt att jag ger upp den här grejen nu.
Trodde aldrig att det skulle vara så här knepigt att få fram "din sökning gav **X** antal träffar".

Permalänk: https://www.webforum.nu/p/638154

## #16 — @nders, 2002-04-05T04:29Z

I SQL-frågan har du med ett par \_ som härstammar från LarsGs kod. Dessa markerar att strängen fortsätter på nästa rad. Du har dock dragit ihop SQL-frågan till en rad igen, och då måste du ta bort dessa tecken.

Runt sökordet skall du ha apostrofer.

```
SQL = "Select count(*) AS traffar From " & Tabbe & " Where " & Falt & " Like '%" & Request.Form("sokord") & "%' Order By " & falt1 & " Desc"
```

Mvh,

Permalänk: https://www.webforum.nu/p/638157

## #17 — skyman, 2002-04-05T07:54Z

och sen tabbe - tabell som nån sa...
men nu funkar sökningen väl?

Permalänk: https://www.webforum.nu/p/638203

## #18 — Korak, 2002-04-05T10:23Z

Tabbe är det korrekta, det var jag som råkade skriva Tabell i första inlägget.
Inget av de nya tipsen funkade. Apostrofer runt sökord blev:

```
Microsoft VBScript compilation error '800a03ea' 

Syntax error 

/nyheter/sok.asp, line 78 

SQL = "Select count(*) AS traffar From " & Tabbe & " Where " & Falt & " Like '%" & Request.Form('sokord') & "%' Order By " & falt1 & " Desc"
------------------------------------------------------------------------------------------------^
```

Permalänk: https://www.webforum.nu/p/638362

## #19 — @nders, 2002-04-05T10:25Z

Du missuppfattade mig.

Jag gjorde alla nödvändiga ändringar till SQL-frågan i mitt inlägg. Prova därför med den.

Mvh,

Permalänk: https://www.webforum.nu/p/638367

## #20 — Korak, 2002-04-05T10:35Z

Så gjorde jag först, det blir samma fel.
Jag ser ingen skillnad i din SQL-fråga och den Eas postade tidigare.
Förrutom det här med Tabbe/Tabell då som var mitt fel.

Permalänk: https://www.webforum.nu/p/638370

---

Tråden på webben: https://www.webforum.nu/amne/asp/40877-visa-antal-träffar  
Nästa sida: https://www.webforum.nu/amne/asp/40877-visa-antal-träffar/page2.md