Søgefunktion? Bare rolig - er lavet...

Hvis det vil hjælpe at se kildekoden, så sig lige til...

Det hele foregår selvfølgelig i ASP (jvf. kategorien)

du kan lige sende koden til n.persson@mail.dk

du kan = kan du ikke

Kør denne her inden du lister linkene:

strSQL = "SELECT count(*) as Found FROM dintabel Where ditfelt = '"& dit søgeord &"'"
Set rs = myConn.Execute(strSQL)
t = rs("found")

hvis man virkelig skal lave koden selv så....:
-------- search.asp --------
<form method="Post" action="./results.asp">
<input type="Text" name="Keyword" value="<%=Request.Form("Keyword")%>">
<input type="Submit" name="action" value="Søg">
</form>

-------- results.asp --------
<form method="Post" action="./results.asp">
<input type="Text" name="Keyword" value="<%=Request.Form("Keyword")%>">
<input type="Submit" name="action" value="Søg">
</form>

<%
strKeyword = Request.Form("Keyword")
strKeyword = Replace(strKeyword,"'","''")
if strKeyword = "" then
Response.Redirect("search.asp")
end if

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("dinDB.mdb")
Set ialt = Conn.Execute("SELECT COUNT(*) AS FOUND FROM Dintabel WHERE Ditfelt LIKE '%" & strKeyword & "%'"")
strIalt = ialt("FOUND")
Set rs = Conn.Execute("SELECT * FROM Dintabel WHERE Ditfelt LIKE '%" & strKeyword & "%'"")

do until (rs.eof or rs.bof)
%>
URL: <%=rs("URL")%>
<%
rs.MoveNext
loop
%>

og mit var et svar....

og nu vil jeg tage i min dejlige skole...... :)

Undskyld - jeg var lige midt i noget; Koden er ikke særlig lang, så I får den lige her:


******************************************

<% Response.Buffer = True %>
<html><head>
<title>Søgeresultat</title>
</head><body>

<%
' Henter værdien fra form.htm
strKeyword = Trim(Request.Form("input"))

Response.Write "<h2>Resultat af din forespørgsel:</h2><br>"

If Len(strKeyword) = 0 Then
    ' Hvis der ikke er skrevet i feltet
    Response.Clear
    Response.Redirect("form.htm")
Else
    ' Hvis der er skrevet i feltet
    strKeyword = Replace(strKeyword,"'","''")
End If

' Opbygger en dynamisk SQL streng
strSQL = "SELECT ID, Track FROM audiotabel WHERE"
strSQL = strSQL & " (Track LIKE '%" & strKeyword & "%') ORDER BY Track"


' Skaber DSNLess forbindelse til DBen
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("audio.mdb")
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open strDSN

' Skaber et recordset udfra SQL strengen
Set rs = myConn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
    ' Hvis der er fundet poster på søgningen

counter = 0
TrackTemp = rs("Track")

Response.Write "<li><a href='lyrik.asp?id=" & rs("id") & "'>" & rs("Track") & "</a></li><br>"
counter = counter + 1

Do

If TrackTemp <> rs("Track") Then

        Response.Write "<li><a href='lyrik.asp?id=" & rs("id") & "'>" & rs("Track") & "</a></li><br>"
    TrackTemp = rs("Track")
    counter = counter + 1
    rs.MoveNext

Else

rs.MoveNext

End If

Loop While Not rs.EOF


Response.Write "<br><a href='java script:history.go(-1)'>Foretag ny søgning</a>"

Else

    ' Hvis der ikke er fundet poster på søgningen
    Response.Write "<h4>Forespørgslen på '<font color='red'>" & strKeyword & "</font>' gav ingen resultater.</h4><br>"
    Response.Write "<a href='java script:history.go(-1)'>Foretag ny søgning</a>"
End If

myConn.Close
Set myConn = Nothing
%>

</body>
</html>

**********************************

Her ses counter´en jeg har sat ind. Det er DEN jeg vil udskrive i toppen, inden links´ne skrives op.

Meyer---> Mener faktisk at jeg har prøvet det, men jeg forsøger lige igen.
Problemet er jo, at antallet af fundne records skal skrives op, inden counteren i løkken er færdig med at tælle op. Lyder umiddelbart lidt umuligt i mine ører, men jeg håber der kommer en løsning........

Som det ses har jeg været nødt til at lave en variabel "TrackTemp", idet enkelte af recordsne indeholder samme tekst. Så i virkeligheden finder den af og til jo flere records end der faktisk opskrives.

Lad være med at skrive resultatet ud før til sidst. Undervejs opsamler du resultatet i en ny variable, fx track all.

Erstat:
Response.Write "<li><a href='lyrik.asp?id=" & rs("id") & "'>" & rs("Track") & "</a></li><br>"

Med:
Trackall = Trackall & "<li><a href='lyrik.asp?id=" & rs("id") & "'>" & rs("Track") & "</a></li><br>"

Så til sidst:

Trackall = "Så mange " & counter & "<br>" & Trackall
Response.Write Trackall

Manden er jo genial *g* Tak!

Har du lyst til at svare på et enkelt spørgsmål mere, nu hvor du jo har sat dig ind i koden? Du skal nok få lidt ekstra oven i hatten...

Du kan se med på: http://www.eksperten.dk/spm/188051 hvis du har tid :)

Taaark :-)

Men det andet spørgsmål er jo allerede løst på den goe' måde af cthun, kan jeg se. Siden skal bare omdøbes til denneside.asp, så burde det virke, hvis det virkede da siderne var adskilte.

Ja, det kunne du også have fortalt mig, men nu får cthun også en god dag :o)