sökning bl a...

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.

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]

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?

------------------
www.groda.net *kvack*, *kvack*

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]

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 & ";"

------------------
www.groda.net *kvack*, *kvack*

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

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

------------------
www.groda.net *kvack*, *kvack*

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

------------------
essentitia preter non sans multiplicandum

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

------------------
www.groda.net *kvack*, *kvack*

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...?
------------------
www.groda.net *kvack*, *kvack*

[Redigerat av crisse6 den 20 maj 2001]

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

------------------
<A HREF="http://cartman.nu" TARGET=_blank>
nobody expects the spanish inquisition!</A>

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 ..

------------------
------------
Varför finns det ingen smiley som betyder *flinar fånigt och garderar sig för den "riktiga" lösningen* ?
En sån skulle jag behöva!

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...

------------------
www.groda.net *kvack*, *kvack*

[Redigerat av crisse6 den 20 maj 2001]

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,

------------------
<A HREF="http://cartman.nu" TARGET=_blank>
nobody expects the spanish inquisition!</A>

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&"'"

------------------
<A HREF="http://cartman.nu" TARGET=_blank>
nobody expects the spanish inquisition!</A>