två sökmotorfrågor

<%

Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" &Server.MapPath("addemalmbergadmin/tubsockan.mdb")

SQL2 = "select top 5 * from sockrates where rubrik like '%" & request.form("search1") & "%' ORDER BY ID DESC"
set RecSet = connect.execute(SQL2)

If RecSet.EOF Then
	response.write "Sökordet <b>" & Request.Form("sokord") & "</b> gav inga träffar!" 

ELSE
	do until recset.EOF
	response.write recset("ID") & " " & recset("Rubrik") & "<BR>"

	recset.Movenext

	Loop

	recset.Close
END IF
%>

Detta är din kod men i en annan ordning. Jag är inte helt säker på att ett fält vid namn ID fungerar. Testa intID i stället och se om det blir någon skillnad. ID kan vara reserverat.

ID är icke reserverat, och kan således användas fritt. :)

För att lösa den andra frågan om "fler än fem träffar", så är det ju bara att ställa en SELECT COUNT-fråga med samma villkor som sökfrågan.

Mvh

och hur skriver jag det? (n00bie men jag lär mig!)

strSQL = "select count(*) from sockrates where rubrik like '%" & request.form("search1") & "%' ORDER BY ID DESC"
set objRS = connect.execute(strSQL)
intAntal = CInt(objRS(0))
if intAntal > 5 then
  ' Alldeles för många, för böveln!
end if

Mvh

och den skall ställas istället för den andra söksträngen

SQL2 = "select top 5 * from sockrates where rubrik like '%" & request.form("search1") & "%' ORDER BY ID DESC"
set RecSet = connect.execute(SQL2)

, eller?

Du ville väl ha det resultatet utskrivet också? Alltså; koden utöver den kod som skriver ut de 5 första av sökresultaten.

då har jag problem var den skall sättas in...

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

[Microsoft][ODBC Microsoft Access Driver] You tried to execute a query that does not include the specified expression 'ID' as part of an aggregate function. 

/assistenten.asp, line 379

<h3><b>Sökresultat:</b><br>
              <% Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" &Server.MapPath("addemalmbergadmin/tubsockan.mdb")

SQL2 = "select top 5 * from sockrates where rubrik like '%" & request.form("search1") & "%' ORDER BY ID DESC"
set RecSet = connect.execute(SQL2)

If RecSet.EOF Then %>
Sökordet <b><%= Request.Form("search1") %></b> gav inga träffar! Du är tydligen för puckad för att söka! Kan du ens öppna en dörr? Om du kan det, gå ut och skäms!
<% else %>
<% do until recset.EOF
%>

<%=recset("ID")%>&nbsp;<%=recset("Rubrik")%><br>
<%
recset.Movenext
Loop 
recset.Close %>
<% end if %>
<% Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" &Server.MapPath("addemalmbergadmin/tubsockan.mdb")

strSQL = "select count(*) from sockrates where rubrik like '%" & request.form("search1") & "%' ORDER BY ID DESC"
set objRS = connect.execute(strSQL)
intAntal = CInt(objRS(0))
if intAntal > 5 then %>
Alldeles för många, för böveln!
<% end if %>
</h3>

Jag tror nog att detta ska funka.

strSQL = "select ID, (select count(*) from sockrates where rubrik like '%" & request.form("search1") & "%') as ggr from sockrates where rubrik like '%" & request.form("search1") & "%' ORDER BY ID DESC"
------
intAntal = objRS("ggr")

Hoppas nu inte att jag har helt fel. :r

Hemskt ledsen, bort med ORDER BY ur den andra SQL-frågan:

strSQL = "select count(*) from sockrates where rubrik like '%" & request.form("search1") & "%'"

Mitt misstag. Kattenpejst slog till igen.

Mvh

thanks, nu funkar det!