---
title: "välj sökning"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/8332-välj-sökning/page2"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "crisse6"
published: "2001-02-19T12:09:00.000Z"
updated: "2001-02-26T18:12:00.000Z"
replies: 40
views: 282
page: 2
pages: 3
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/8332-välj-sökning"
---

# välj sökning

_Sida 2 av 3._

## #21 — crisse6, 2001-02-20T15:22Z

löste det med om "Inga resultat" med en liten if-sats innan jag hann läsa Rossifumis inlägg, tack ändå :e

så här gjorde jag, inte så tokigt av en nybörjare...eller? 

```
<%
Set Databas = Server.CreateObject("ADODB.Connection")
MdbFilePath = Server.MapPath("users.mdb")
Databas.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ= " & MdbFilePath & ";"
%>

<%
kon = Request.Form("kon")
ar = Request.Form("ar")
sokning = Request.Form("sokning")
SQL = "SELECT * FROM users WHERE (Username LIKE '%" & sokning & "%' OR namn LIKE '%" & sokning & "%') AND kon = '" & kon & "' AND ar = '" & ar & "'"
Set rsBra = databas.execute(SQL)
If rsBra.EOF then
Response.Write "Vi kunde inte hitta den grodan som du letade efter. Försök att vara lite mer exakt. *Kvack*"
else
Do Until rsBra.EOF

Response.Write "Förnamn: " & "<b>" & rsBra("Namn") & "<br>" & "</b>"
Response.Write "Efternamn: " & rsBra("Efternamn") & "<br>"
Response.Write "Emejl: " & rsBra("E-post") & "<br>"
Response.Write "Bor: " & rsBra("Bor") & "<br>"
Response.Write "Kön: " & rsBra("Kon") & "<br>"
Response.Write "Född: " & rsBra("ar") & rsBra("manad") & rsBra("dag") & "<br>"
Response.Write "Så här beskriver jag mig själv:" & "<br>" & rsBra("Fakta") & "<br>"

Response.Write "Nickname: " & rsBra("Username") & "<br>" & "<a href=""blikompis.asp?Username=" &  rsBra("Username") & """>Bli polare!</a><br><br>"
Response.Write "<img src=""hr.jpg"" width=""846"" height=""11"" border=""0"">" & "<br>"
rsBra.MoveNext
Loop
%>
<% End If %>
&nbsp;</font></td>
    </tr>
```

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

## #22 — crisse6, 2001-02-20T15:42Z

givetvis hade jag ju en fråga också!

om man vill ha en "räknare" där sökresultaten visar sig som te x visar "Vi hittade 10 st personer med det namnet" eller ngt sånt...hur gör man det... recordcount kanske?

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

## #23 — Kent, 2001-02-20T17:11Z

Får upp fel,

Syntax error (missing operator) in query expression '(beskrivning LIKE '%test%' OR titel LIKE '%test%') AND kat ='.

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

## #24 — @nders, 2001-02-20T18:04Z

av någon anledning får inte variabeln kat något värde.

jag ser nu ingen utväg annan än att du postar koden till de båda sidorna som används.

mvh,

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

## #25 — Vide, 2001-02-20T19:15Z

Har du verkligen med min If-sats? den skall ju inte lägga till någon "AND kat..." om kat inte innehåller något värde...

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

## #26 — Kent, 2001-02-20T19:44Z

Nej jag hade inte med if satsen, la till den nu, men väljer jag ingen kategori så får jag bara upp en tom vit sida.

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

## #27 — nakoz, 2001-02-20T20:35Z

crisse6: såhär skulle de kunna se ut kanske :)

```
<%
Set Databas = Server.CreateObject("ADODB.Connection")
MdbFilePath = Server.MapPath("users.mdb")
Databas.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ= " & MdbFilePath & ";"
%>
<%
kon = Request.Form("kon")
ar = Request.Form("ar")
sokning = Request.Form("sokning")

[b]SQL = "SELECT Count(*) AS iAntalSvar FROM users WHERE (Username LIKE '%" & sokning & "%' OR namn LIKE '%" & sokning & "%') AND kon = '" & kon & "' AND ar = '" & ar & "'"
Set rsBra = databas.execute(SQL)

Dim iAntalSvar
iAntalSvar = rsBra("iAntalSvar")[/b]

SQL = "SELECT * FROM users WHERE (Username LIKE '%" & sokning & "%' OR namn LIKE '%" & sokning & "%') AND kon = '" & kon & "' AND ar = '" & ar & "'"
Set rsBra = databas.execute(SQL)
If rsBra.EOF then
Response.Write "Vi kunde inte hitta den grodan som du letade efter. Försök att vara lite mer exakt. *Kvack*"
else

[b]Response.Write "Vi hittade <b>"& iAntalSvar &"</b> grodor som matchade din sökning *wuaaää*"[/b]

Do Until rsBra.EOF

Response.Write "Förnamn: " & "<b>" & rsBra("Namn") & "<br>" & "</b>"
Response.Write "Efternamn: " & rsBra("Efternamn") & "<br>"
Response.Write "Emejl: " & rsBra("E-post") & "<br>"
Response.Write "Bor: " & rsBra("Bor") & "<br>"
Response.Write "Kön: " & rsBra("Kon") & "<br>"
Response.Write "Född: " & rsBra("ar") & rsBra("manad") & rsBra("dag") & "<br>"
Response.Write "Så här beskriver jag mig själv:" & "<br>" & rsBra("Fakta") & "<br>"

Response.Write "Nickname: " & rsBra("Username") & "<br>" & "<a href=""blikompis.asp?Username=" & rsBra("Username") & """>Bli polare!</a><br><br>"
Response.Write "<img src=""hr.jpg"" width=""846"" height=""11"" border=""0"">" & "<br>"
rsBra.MoveNext
Loop
%>
<% End If %>
 </font></td>
</tr>
```

har inte testat koden, men detta bör nog funka! :e

MVH

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

## #28 — Kent, 2001-02-24T19:56Z

Ingen annan som har något förslag, jag har försökt på alla sätt och vis för att få koden att funka men det vill sig inte.

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

## #29 — crisse6, 2001-02-24T20:20Z

Kent, det är så rörigt i detta ämne, kan du förklara igen hur du vill att det ska funka så kan vi nog hjälpa dig lättare :)

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

## #30 — Kent, 2001-02-24T20:45Z

Man ska kunna välja ett sökord samt en kategori och söka på det, det funkar bra med ovanstående kod, men om man väljer ett sökord men sen ingen kategori så funkar inte det inte alls.

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

## #31 — crisse6, 2001-02-24T20:53Z

jag vet inte, men går det inte att ändra "AND" till "OR" eller????

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

## #32 — Kent, 2001-02-25T12:10Z

Nej det funkar inget bättre.

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

## #33 — Vide, 2001-02-25T12:51Z

> Man ska kunna välja ett sökord samt en kategori och söka på det, det funkar bra med ovanstående kod, men om man väljer ett sökord men sen ingen kategori så funkar inte det inte alls.

Definiera "funkar inte alls"... :)

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

## #34 — Kent, 2001-02-25T14:03Z

En tom vit sida.

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

## #35 — Vide, 2001-02-25T15:25Z

... och testade du min kod tidigare i denna tråd?

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

## #36 — Kent, 2001-02-25T15:31Z

Det är den jag använder.

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

## #37 — Vide, 2001-02-25T18:00Z

Okej, visa din SQL-sträng som den är nu... :)

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

## #38 — Kent, 2001-02-25T18:11Z

Visst här kommer den,

```
kat = Request.QueryString("kat")
sokord = Request.QueryString("sokord")

SQL = "SELECT * FROM data WHERE (beskrivning LIKE '%" & sokord & "%' OR titel LIKE '%" & sokord & "%')"
If kat <> "" then 
SQL = SQL & " AND kat = " & kat & ""
```

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

## #39 — Vide, 2001-02-25T18:28Z

Ifsatsen skall ligga på en och samma rad:

```
If kat <> "" then SQL = SQL & " AND kat = " & kat
```

Och har du lagt till en end If längre ned pga av denna if, så kan du ta bort den...

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

## #40 — Kent, 2001-02-26T17:29Z

Ja nu funkar det.
Man får tacka så mycket för hjälpen.!

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/8332-välj-sökning/page2  
Föregående sida: https://www.webforum.nu/amne/asp/8332-välj-sökning.md  
Nästa sida: https://www.webforum.nu/amne/asp/8332-välj-sökning/page3.md