---
title: "sökning bl a..."
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/9614-sökning-bl-a"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "crisse6"
published: "2001-05-19T11:58:00.000Z"
updated: "2001-05-20T10:22:00.000Z"
replies: 14
views: 254
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/9614-sökning-bl-a"
---

# sökning bl a...

## #1 — crisse6, 2001-05-19T11:58Z

hmmm.... har min söksida där jag vill ha så att man antingen i ena forumläret kunna söka på username samt ålder...
i andra forumläret vill jag att man bara ska kunna välja genom en dropdown meny, välja stad...och båda forumlären ska ha samma "action" alltså få ut resultat på samma sida....???? jobbigt eller lätt? hjälp!

fråga 2: hur gör man en mailinglista, vill ha en enkel bara med CDONTS som man ska kunna skriva ett ämne, meddelande och till vilka!?

fråga 3: kan någon förklara kort hur man gör så att varje medlem har eget s k klotterplank?? asså.... typ du "kalle" har 1 medd på ditt klotterplank...osv...

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

## #2 — maniac, 2001-05-19T12:16Z

3: ett klotterplank borde ju inte vara speciellt svårt att ordna. gör bara så att när nån skriver till medlem1 så kommer medlem1s id med i databasen..sen plockar du bara ut alla inlägg där tex "to" motsvarar den personens idnummer. sen när du vill visa hur många inlägg han har så gör du bara en select count..och tex. ändrar en variabel till ett visst värde om det är läst, och ett annat värde om det är oläst.

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

## #3 — Mikey, 2001-05-19T12:29Z

Lägg båda sökmöjligheterna i samma formulär, med varsin submit-knapp. Sen sätter du olika "value" men samma namn på knapparna, tex:
\<INPUT TYPE="submit" value="Sök användare" name="knapp"\>
och
\<INPUT TYPE="submit" value="Sök ort" name="knapp"\>

På sidan där resultatet skall visas låter du en if-sats kolla vilken knapp som skickat sökningen och plockar poster ur databasen beroende på det.

If Request.Form("knapp")="Sök användare" Then
......
och
If Request.Form("knapp")="Sök ort" Then
........

Hoppas det här blev begripligt ...
Antagligen inte det smartaste sättet \*smörar lite för experterna här\* .. men det funkat för mig! ;-)

\[Redigerat av Mikey den 19 maj 2001\]

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

## #4 — crisse6, 2001-05-19T17:38Z

okej... ska nu börja med klotterplank samt sökmotorn... det borde gå ju... men hur blir sql-satsen för det första, username och ålder, sedan ort???
please.... jag får inte det att funka :(

är det ingen som kan det med mailinglistor?

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

## #5 — Mikey, 2001-05-19T19:26Z

```
If Request.Form("knapp")="Sök användare" Then
username=Request.Form("username")
alder=Request.Form("alder")
If username <> "" and alder <> "" Then
		SQL="SELECT * FROM medlem WHERE username='"&username&"' AND alder='"&alder&"'"
Else
		%>
		Du har inte fyllt i alla fält. Gå tillbaka och försök igen.
		<%
		End If
```

...osv ..

```
If Request.Form("knapp")="Sök ort" Then
... osv ...
```

Du får ju anpassa tabellnamn och sånt efter vad du kör med ...

Hmm .. borde väl inte svara sent en lördagskväll överhuvudtaget ... men jag tror att jag har fått med hela min lösning nu ...
Skrik igen om det inte vill ... då är det säkert jag som missat nåt väsentligt ... ;) (finns ju ingen smiley för \*flinar fånigt och garderar sig för den "riktiga" lösningen\*

\[Redigerat av Mikey den 19 maj 2001\]

\[Redigerat av Mikey den 19 maj 2001\]

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

## #6 — crisse6, 2001-05-19T21:32Z

okej Mikey, ska försöka ;)

nu ett annat problem, jag bygger nu privat klotterplank... (asså för varje medlem) men får detta fel mess när jag ska visa... 

```
Microsoft OLE DB Provider for ODBC Drivers error '80040e10' 

[Microsoft][Drivrutin för ODBC Microsoft Access] För få parametrar angavs. 1 förväntades. 

/groda/privatklotterplank.asp, line 92
```

och detta är kod rad 92:

```
rstemp.open SQL, "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MdbFilePath & ";"
```

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

## #7 — crisse6, 2001-05-19T21:39Z

sql ser ut så här med response.write...

```
Select * From privat WHERE username = 'crisse6' Order by datum desc
```

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

## #8 — LarsG, 2001-05-19T22:17Z

Ser inget direkt syntaktiskt fel. Det kan vara något kolumnnamn som inte stämmer.

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

## #9 — crisse6, 2001-05-19T22:35Z

det funkar nu, lite klantning av mig... :r
är lite trött...

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

## #10 — crisse6, 2001-05-20T09:43Z

varför fungerar inte detta nu då?

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

If Request.Form("knapp")="Sök användare" Then
username=Request.Form("username")
ar=Request.Form("ar")
ElseIf username <> "" and ar <> "" Then
SQL="SELECT * FROM users WHERE username='"&username&"' AND ar='"&ar&"'"
Set rsJa = databas.execute(SQL)
Else
%>
Du har inte fyllt i alla f&auml;lt. G&aring; tillbaka och f&ouml;rs&ouml;k igen.
<% End If %>
<%
If Request.Form("knapp")="Sök ort" Then
bor=Request.Form("bor")
ElseIf bor <> "" Then
SQL = "SELECT * FROM users WHERE bor='"&bor&"'"
Set rsJa = databas.execute(SQL)
Else
Response.Write"Du valde ingen av orterna ju."
End If
%>
<%
If rsJa.EOF then
Response.Write"Vi hittade inget här."
else
Do Until rsJa.EOF

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

Response.Write "Nickname: " & "<b>" & rsJa("Username") & "<br><br></b>" & "<a href=""blikompis.asp?Username=" & rsJa("Username") & """><span style=""text-decoration:none;"">Bli polare!</a>" & "&nbsp;" & "<a href=""skickamess.asp?till=" & rsJa("Username") & """><span style=""text-decoration:none;"">Skicka meddelande</a><br><br>"
Response.Write "<a href=""skickaprivat.asp?till=" & rsJa("Username") & """><span style=""text-decoration:none;"">Skriv på personens klotterplank</a>"

rsJa.MoveNext
Loop
%>

<%End If%>
```

skrev fel kod förrut, sorry!
men iaf, det som inte funkar är att den för det första ger mig detta felmess:

```
ADODB.Recordset error '800a0e78' 

Åtgärden som programmet begärt är inte tillåten om objektet är stängt. 

/groda/search2.asp, line 103
```

\+ att den If-sats som finns ska ju kolla vilken sökmetod man använde, men då skriver den ut te x om jag bara hade valt att skriva in username och ålder så står det, "Du valde ingen ort ju"
hmmm...?

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

## #11 — @nders, 2001-05-20T09:45Z

kanske vi kan svara på om du berättar vad det är som inte blir som tänkt?

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

## #12 — Mikey, 2001-05-20T10:03Z

Du måste nog bygga if-satserna så här ...

```
If Request.Form("knapp")="Sök användare" Then
If username <> "" and ar <> "" Then
username=Request.Form("username")
ar=Request.Form("ar")
SQL="SELECT * FROM users WHERE username='"&username&"' AND ar='"&ar&"'"
Set rsJa = databas.execute(SQL)
Else
%>
Du har inte fyllt i alla fält. Gå tillbaka och försök igen.
<%End if%>
<%End if%>
If Request.Form("knapp")="Sök användare" Then
.....
```

Tror jag fick ihop det .. man får ju så dålig överblick när man skriver i den lilla, lilla textrutan ..

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

## #13 — crisse6, 2001-05-20T10:12Z

okej, Mikey ;)
det funkar, men den gillar inte när man ska söka på ort... detta fel mess blir det:

```

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

[Microsoft][Drivrutin för ODBC Microsoft Access] Syntaxfel (operator saknas) i frågeuttrycket 'bor='Göteborg''. 

/groda/search2.asp, line 98
```

sql ser ut så här med response...
SELECT \* FROM users WHERE bor='Göteborg'

\+ att jag vill att om man skriver i sökrutan cris så hittar den ändå crisse6 osv.. vet att man sätter sånna här: % % runt...men hur?

hmm...???
en annan sak, håller med dig Mikey, denna ruta är **väldigt** liten...

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

## #14 — @nders, 2001-05-20T10:17Z

hmm, till att börja med kan du ju kasta bort följande rad:

```
Set rsJa = Server.CreateObject("ADODB.Recordset")
```

du skapar recordset på det sättet endast om du ska använda rsJa.open blah, conn... osv.

vad gäller din andra fråga så ser if-satsen konstig ut.

prova detta:

```
<%
If Request.Form("knapp")="Sök ort" Then
    bor=Request.Form("bor")
    If bor <> "" Then
        SQL = "SELECT * FROM users WHERE bor='"&bor&"'"
        Set rsJa = databas.execute(SQL)
    Else
        Response.Write"Du valde ingen av orterna ju."
End If
%>
```

mvh,

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

## #15 — @nders, 2001-05-20T10:22Z

att jag vill att om man skriver i sökrutan cris så hittar den ändå crisse6 osv.. vet att man sätter sånna här: % % runt...men hur?

```
SQL="SELECT * FROM users WHERE username [b]LIKE[/b] '%"&username&"%' AND ar='"&ar&"'"
```

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/9614-sökning-bl-a