webForumDet fria alternativet
Logga in / Bli medlem

sökning bl a...

ASPur ASP

14 svar · 244 visningar · startad av crisse6

crisse6Medlem sedan dec. 20002 526 inlägg
#1

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

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

maniacMedlem sedan feb. 200150 inlägg
#2

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.

MikeyMedlem sedan maj 20019 inlägg
#3

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]

crisse6Medlem sedan dec. 20002 526 inlägg
#4

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*

MikeyMedlem sedan maj 20019 inlägg
#5
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]

crisse6Medlem sedan dec. 20002 526 inlägg
#6

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*

crisse6Medlem sedan dec. 20002 526 inlägg
#7

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

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

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

LarsGMedlem sedan dec. 200012 464 inlägg
#8

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

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

crisse6Medlem sedan dec. 20002 526 inlägg
#9

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

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

crisse6Medlem sedan dec. 20002 526 inlägg
#10

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]

@ndersMedlem sedan juni 200032 969 inlägg
#11

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>

MikeyMedlem sedan maj 20019 inlägg
#12

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!

crisse6Medlem sedan dec. 20002 526 inlägg
#13

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]

@ndersMedlem sedan juni 200032 969 inlägg
#14

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>

@ndersMedlem sedan juni 200032 969 inlägg
#15

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>

249 ms totalt · 3 externa anrop · v20260731065814-full.29ac60f6
127 ms — hämta forumlista (db)
118 ms — hämta statistik (db)
129 ms — hämta tråd, inlägg och bilagor (db)