---
title: "\"förtstora\" sökning"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/78668-förtstora-sökning"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "magnusfeldth"
published: "2003-06-01T21:15:18.000Z"
updated: "2003-06-03T13:42:23.000Z"
replies: 6
views: 245
page: 1
pages: 1
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/78668-förtstora-sökning"
---
# "förtstora" sökning
## #1 — magnusfeldth, 2003-06-01T21:15Z
jag har en sökmotor som söker igenom en databas. Sedan skall de fem senaste posterna visas. När man klickar på en länk skall man kunna se alla träffarna dock... jag skrev så här men det verkar som inte söksträngen skickas med andra gången...
```
<% if request.querystring("do") = "sokning" OR request.querystring("do") = "storsokning" then %>Sökresultat:<% else %>Vad vill du göra nu? Smörja
in dig i honung och springa naken genom biodlingar?<% end if %>
<% if request.querystring("do") = "sokning" then %>
<% 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 <%= Request.Form("search1") %> gav inga träffar!
<% else %>
<% do until recset.EOF
%>
<%
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") & "%'"
set objRS = connect.execute(strSQL)
intAntal = CInt(objRS(0))
if intAntal > 5 then %>
[red][b] Se fler resultat...[/b][/red]
<% end if %>
<% end if %>
<% if request.querystring("do") = "storsokning" then %>
<% Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" &Server.MapPath("addemalmbergadmin/tubsockan.mdb")
SQL2 = "select * from sockrates where rubrik like '%" & request.form("search1") & "%' ORDER BY ID DESC"
set RecSet = connect.execute(SQL2)
do until recset.EOF
%>
<%
recset.Movenext
Loop
recset.Close %>
<% end if %>
|
|
|
|
|
 |
 |
 images/assistenter/nallen.gif<% else %><% = Request.Cookies("sockan")("assistent") %><% end if %>" width="50" height="75" border="0"> |
```
Permalänk: https://www.webforum.nu/p/78668
## #2 — magnusfeldth, 2003-06-01T21:16Z
lång kod, jag vet... jag har fetat området där "vidaresökningen" är
Permalänk: https://www.webforum.nu/p/1071961
## #3 — solbulle, 2003-06-01T21:35Z
Släng med innehållet i request.form("search1") som en querystring till nästa sida i din länk. Samt ändra request.form("search1") till request.("search1") alt. skriv en ifsats så att den kanske i första hand ska ta request.form("search1") o annars request.querystring("search1")
Liten fotnot bara, du gör lite många växlingar mellan asp/html, främst då alla %\>\<%. Kanske en tanke att börja vänja dig av med det?
Permalänk: https://www.webforum.nu/p/1071976
## #4 — magnusfeldth, 2003-06-02T09:38Z
hur skriver jag för att skicka med sökningen i en querystring?
href="vtassistent.asp?do=\<% = request.("search1") %\>" ?
Permalänk: https://www.webforum.nu/p/1072144
## #5 — Engine^, 2003-06-02T10:48Z
Nu har jag haft en smula lite att göra, så jag tog mig friheten att ändra och putsa i din kod. Det är dock inget svar på din fråga... det kanske kommer efter lunch :)
```
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("addemalmbergadmin/tubsockan.mdb")
If Request.QueryString("do") = "sokning" Or Request.QueryString("do") = "storsokning" Then
strHTML = "Sökresultat:"
Else
strHTML = "Vad vill du göra nu? Smörja in dig i honung och springa naken genom biodlingar?"
End If
strHTML = strHTML & "" & _
"" & _
"" & _
""
If Request.QueryString("do") = "sokning" Then
strSQL = "select top 5 * from sockrates where rubrik like '%" & Request.Form("search1") & "%' ORDER BY ID DESC"
Set RecSet = Connect.Execute(strSQL, , 1)
If RecSet.EOF Then
strHTML = strHTML & "Sökordet " & Request.Form("search1") & " gav inga träffar!"
Else
Do Until RecSet.EOF
strHTML = strHTML & ""
RecSet.MoveNext
Loop
End If
strSQL = "select count(*) from sockrates where rubrik like '%" & Request.Form("search1") & "%'"
Set RecSet = Connect.Execute(strSQL, , 1)
intAntal = CInt(RecSet(0))
If intAntal > 5 Then
strHTML = strHTML & "![]() " & _
"Se fler resultat..."
End If
End If
If Request.QueryString("do") = "storsokning" Then
strSQL = "select * from sockrates where rubrik like '%" & Request.Form("search1") & "%' ORDER BY ID DESC"
Set RecSet = Connect.Execute(strSQL, , 1)
Do Until RecSet.EOF
strHTML = strHTML & ""
RecSet.MoveNext
Loop
RecSet.Close
End If
strHTML = strHTML & " | | " & _
" | | " & _
" | |
" & _
"" & _
"![]() | " & _
"![]() |
" & _
"![]() | "
Response.Write strHTML
Set RecSet = Nothing
%>
```
Permalänk: https://www.webforum.nu/p/1072171
## #6 — magnusfeldth, 2003-06-03T12:37Z
"Släng med innehållet i request.form("search1") som en querystring till nästa sida i din länk"
\-- hur gör jag det? nån som vet?
Permalänk: https://www.webforum.nu/p/1073007
## #7 — solbulle, 2003-06-03T13:42Z
Om du ändrar i detta stycket så att du får med dig innehållet i variabeln search1:
```
If intAntal > 5 Then
strHTML = strHTML & "![]()
" & _
"Se fler resultat..."
End If
```
Sen får du även ändra alla Request.Form("search1") till search1
Samt att du lägger till denna snutt högt uppe på sidan:
```
If Request.Form("search1") <> "" then
search1 = Request.Form("search1")
Else
search1 = Request.Querystring("search1")
End If
```
Det tycker jag borde fungera.
(OBS Utgår från Engine^s kod)
Permalänk: https://www.webforum.nu/p/1073047
---
Tråden på webben: https://www.webforum.nu/amne/asp/78668-förtstora-sökning
">
<% = RecSet("Rubrik") %>