Søgefunktion rev. II

Jeg har stadig problemer med denne søgefunktion!!


resultatet skulle se sådan ud:
http://www.ecreate.dk/g1/search.htm (søgeord: produkt)

-hvor et eller flere ikoner er knyttet til hvert produkt.
(dette er en snyde hvor databasen ikke er optimeret)

MEN problemet er her:
http://www.ecreate.dk/g4/search.htm (søgeord: produkt)

-hvor den returnerer en post for hvert ikon, det skal den IKKE!
Med andre ord skal den loope indtil der ikke er flere ikoner knyttet til

samme produkt, skrive dem på samme linie og så gå videre....(som i første

eksempel)

en klog mand sagde at man muligvis kunne lave en løkke i asp koden, men da

jeg ikke ved hvordan spørger jeg en af jer...

her er koden, det skulle kun være den nederste del (rs.MoveNext......) der

burde ændres, da databasen er som jeg gerne vil have den.

please help!




<!-- #include file="search.htm"-->
<%
strKeyword = Trim(Request.Form("Keyword"))
If Len(strKeyword) = 0 Then
Response.Clear
Response.Redirect("search.asp")
Else
strKeyword = Replace(strKeyword,"'","''")
End If

strSQL = "SELECT links.LinkID, links.LinkName, links.LinkURL,

links.Beskrivelse, ikons.Ikon, Gruppe.GruppeNavn"
strSQL = strSQL & " FROM (links INNER JOIN (Gruppe INNER JOIN GruppeHelp ON

Gruppe.GruppeID = GruppeHelp.GruppeID) ON links.LinkID = GruppeHelp.LinkID)

INNER JOIN (ikons INNER JOIN Ikonhelp ON ikons.IkonID = Ikonhelp.IkonID) ON

links.LinkID = Ikonhelp.LinkID"
strSQL = strSQL & " WHERE (LinkName LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (sogeord LIKE '%" & strKeyword & "%')"

strDSN = "DRIVER={Microsoft Access Driver

(*.mdb)};DBQ="&Server.MapPath("database.mdb")
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open strDSN
Set rs = myConn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then

Response.Write "<center>"
Response.Write "<table border=""0"" cellspacing=""0"" width=""80%""

cellpadding=""3"" >"
Do While Not rs.EOF
Response.Write "<tr><td width=100% ><FONT FACE=""Verdana, Times New Roman""

SIZE=""2"" >" & rs("Ikon") & "<a href=redirect.asp?linkid="& rs("LinkID")&"

TARGET=result>"& rs("LinkName") &"</A> - " &

rs("Beskrivelse")&"<BR></FONT><FONT FACE=""Verdana, Times New Roman""

SIZE=""1"" ></FONT> <FONT face=""Verdana, Times New Roman"" Size=""1"" >" &

"</font><BR><font face=""Verdana, Times New Roman"" Size=""1""

>Gruppekategori : </font><font face=""Verdana, Times New Roman"" Size=""1""

>" & rs("Gruppenavn") &" - <a href=redirect.asp?linkid="& rs("LinkID")&"

TARGET=result></a><BR><HR></td></tr>"

rs.MoveNext
Loop
Response.Write "</FONT></table>"
Else
Response.Write "<p><FONT FACE=""Verdana, Times New Roman"" SIZE=""2""

>S&oslash;g fandt ikke noget til dig!"
End If
myConn.Close
Set myConn = Nothing
%>