Count af antal søgeresultater der er fundet

SELECT count(den kolonne der skal tælles) as AntalHits

Taller står herefter i kolonnen en AntalHits

Jeg skal ikke tælle en kolonne, med de søge resultater der blev fundet på en bestemt søgning.

Hvis du vil tælle det antal poster der opfylder indholdet (værdien), af eet eller flere felter i din formular kan du bruge funktionen Dcount.

Har ikke så meget forstand på det, så kan du ikke skære det ud i pap for mig hvordan jeg skal sætte det ind i denne kode:

' Siden med søgeresultater

' Database connection
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("links.mdb")
' Henter søgeorden fra formularen
strKeyword = Trim(Request.Form("søgeord"))

If Len(strKeyword) = 0 Then
' Hvis der ikke er skrevet i formularen sendes brugeren tilbage
    Response.Clear
    Response.Redirect ("7_soeg_0.shtml")
Else
    strKeyword = Replace(strKeyword,"'","''")
End If

' Opbygger en dynamisk SQL streng
strSQL = "SELECT * FROM links WHERE"
strSQL = strSQL & " (godkendt = 'ja') AND ("
strSQL = strSQL & " (id LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (navn LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (hits LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (søgeord LIKE '%" & strKeyword & "%'))"

        Response.Write "<tr><td width=""100%"" colspan=""2""><font size=""1""><b>Søgeresultater for  » </b>" & strKeyword & "</b></font></td></tr>"


' Skaber et recordset udfra SQL strengen
Set rs = myConn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
' Hvis søgningen gav resultat
    Do While Not rs.EOF
If farve=1 Then
bg="#FCFCFC"
Farve= Farve + 1
Else
bg="#E5E5E5"
farve=1
End If
        Response.Write "<tr><td valign=top><div class=""header1""><font size=1><b><a href=""links.asp?mode=id&id=" & rs("ID") & """

target=""_self"">" & rs("Navn") & "</a></b></div><br>" & rs("Beskrivelse") & "<br><br><i>Denne side har der været besøgt <b>" & rs("Hits") & "

gange</i></b></font></td></tr>"

        rs.MoveNext

Beklager, har ingen forstand på ASP eller hvad det nu er. Måske du skulle oprette spørgsmålet i en anden kategori?

Hvis du har ikke side paging så:
Response.Write "Total record som blev fundet: " & " Rs.recordCount & "<br>"

Hej Hossein

Kan ikke rigtigt få det til at virke, hele scriptet ser således ud:

<%
strMode = Request.Querystring("mode")
select case strMode
case "id"

Response.Buffer = True

' Her opdateres hits når brugeren bliver sendt til et link
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("links.mdb")
If Request.QueryString("id") <> "" Then
    Set rs = Server.CreateObject("ADODB.RecordSet")
    strSQL = "SELECT * FROM links WHERE (ID = " & Request.QueryString("id") & ")"
    rs.Open strSQL, myConn, 1, 3
    If Not (rs.BOF Or rs.EOF) Then
        rs("Hits") = rs("Hits") + 1
        strURL = rs("URL")
        rs.Update
        rs.Close
        myConn.Close
        Set rs = Nothing
        Set myConn = Nothing
        Response.Clear
        Response.Redirect(strURL)
    End If
End If
%>

<% case "search"
' Siden med søgeresultater

' Database connection
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("links.mdb")
' Henter søgeorden fra formularen
strKeyword = Trim(Request.Form("søgeord"))

If Len(strKeyword) = 0 Then
' Hvis der ikke er skrevet i formularen sendes brugeren tilbage
    Response.Clear
    Response.Redirect ("7_soeg_0.shtml")
Else
    strKeyword = Replace(strKeyword,"'","''")
End If

' Opbygger en dynamisk SQL streng
strSQL = "SELECT * FROM links WHERE"
strSQL = strSQL & " (godkendt = 'ja') AND ("
strSQL = strSQL & " (id LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (navn LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (hits LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (søgeord LIKE '%" & strKeyword & "%'))"

        Response.Write "<tr><td width=""100%"" colspan=""2""><font size=""1""><b>Søgeresultater for  » </b>" & strKeyword & "</b></font></td></tr>"
Response.Write "Total record som blev fundet: " &  Rs.recordCount & "<br>"


' Skaber et recordset udfra SQL strengen
Set rs = myConn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
' Hvis søgningen gav resultat
    Do While Not rs.EOF
If farve=1 Then
bg="#FCFCFC"
Farve= Farve + 1
Else
bg="#E5E5E5"
farve=1
End If
        Response.Write "<tr><td valign=top><div class=""header1""><font size=1><b><a href=""links.asp?mode=id&id=" & rs("ID") & """

target=""_self"">" & rs("Navn") & "</a></b></div><br>" & rs("Beskrivelse") & "<br><br><i>Denne side har været besøgt <b>" & rs("Hits") & "

gange</i></b></font></td></tr>"

        rs.MoveNext
    Loop

Else
response.redirect ("7_soeg_1.shtml")
End If

rs.Close
Set rs = Nothing


end select %>

For følgende fejl:

Fejltype:
Der opstod en Microsoft VBScript-kompileringsfejl (0x800A0409)
Strengkonstanten er uafsluttet
/DestinationSamsoe/dsmenusoeg.asp, line 175, column 75
Response.Write "Total record som blev fundet: " & " Rs.recordCount & "<br>"

Prøv det, skal være efter If not:
'Skaber et recordset udfra SQL strengen
Set rs = myConn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
Response.Write "Total record som blev fundet: " &  Rs.recordCount & "<br>"

skal virke, ellers kan du sende til mig.

Nu virker scriptet men den siger : Total record som blev fundet: -1

Selvom den fandt 3 poster på søgningen ??

Det eneste du skal ændre er: If not rs.eof then

Giver desværre samme resultat

det er noget med din 1. if og din do while. Vi fjerner i første omgang do while sætningen. Også

rs.movenext
end if (og ikke loop). prøv

rs.movenext
end if
next

det er den som du skal fjerne:
  Do While Not rs.EOF
If farve=1 Then
bg="#FCFCFC"
Farve= Farve + 1
Else
bg="#E5E5E5"
farve=1
End If

Tak for hjælpen men det hjalp ikke....så jeg lukker spørgsmål

Hvis du vil kan du sende til mig så kan jeg kigge på det mach3@get2net.dk

Oki...sender det lige til dig :-)

Jeh har ikke modtaget