Søgning skal kun komme frem én gang
Jeg har lavet følgende søgefunktion på en side:http://a.domaindlx.com/Hejsa/inci.htm
Mit problem er, at hvis et stof har flere funktioner, så vises søgningen for fx "ZEA MAYS" 9 gange, fordi den har 9 forskellige funktioner.
Hvordan får jeg den til at vise det på følgende måde:
Ingredien: ZEA MAYS
Dansk navn: Majs
Tysk navn: Mais
Funktion: Viskositetsregulerende
Øger eller formindsker viskositeten i kosmetik.
Slibende
Fjerner materiale....
osv.
Søgningen skal selvfølgelig stadig kunne vise flere søgninger, så længe søgenavnet er forskelligt, men sålænge det er ens, skal det kun vises én gang men med alle funktionerne.
Jeg har følgende script:
<% Response.Buffer = True %>
<html><head>
<meta http-equiv="Content-Language" content="da">
<title>Sgeresultat</title>
</head><body>
<%
' Henter vrdien fra soeg.htm
strKeyword = Trim(Request.Form("Keyword"))
If Len(strKeyword) = 0 Then
' Hvis der ikke er skrevet i feltet
Response.Clear
Response.Redirect("search.htm")
Else
' Hvis der er skrevet i feltet
strKeyword = Replace(strKeyword,"'","''")
End If
' Opbygger en dynamisk SQL streng
strSQL = "SELECT ingrediens, dansk, tysk, navn, beskrivelse FROM make_data WHERE"
strSQL = strSQL & " (ingrediens LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (dansk LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (tysk LIKE '%" & strKeyword & "%')"
' Skaber DSNLess forbindelse til DBen
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("INCI.mdb")
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open strDSN
' Skaber et recordset udfra SQL strengen
Set rs = myConn.Execute(strSQL)
Response.Write ("<table border=""0"" cellpadding=""0"" cellspacing=""0"" style=""border-collapse: collapse"" bordercolor=""#111111"" width=""56%"" id=""AutoNumber1"" height=""215"">")
If Not (rs.BOF Or rs.EOF) Then
' Hvis der er fundet poster p sgningen
Response.Write (" <tr>")
Response.Write (" <td width=""50%"" height=""26""></td>")
Response.Write (" <td width=""50%"" colspan=""2"" height=""26""></td>")
Response.Write (" </tr>")
Response.Write (" <tr>")
Response.Write (" <td width=""50%"" height=""26""></td>")
Response.Write (" <td width=""50%"" colspan=""2"" height=""26"">")
Response.Write (" <p align=""left"">")
Response.Write ("<b>")
Response.Write (" <font size=""5"">Resultat af INCI-soegning</font></b></td>")
Response.Write (" </tr>")
Response.Write (" <b><a href=""http://a.domaindlx.com/Hejsa/inci.htm"">Tilbage til soegning</a></p></b>")
Response.Write (" <tr>")
Response.Write (" <td width=""50%"" height=""19""></td>")
Response.Write (" <td width=""50%"" colspan=""2"" height=""19""></td>")
Response.Write (" </tr>")
Do While Not rs.EOF
Response.Write (" <tr>")
Response.Write (" <td width=""1%"" height=""19""></td>")
Response.Write (" <td width=""50%"" height=""19""><b>Ingrediens:</b></td>")
Response.Write " <td width=""50%"" height=""19""><b>" & rs("ingrediens") & "</b></td>"
Response.Write (" </tr>")
Response.Write (" <tr>")
Response.Write (" <td width=""1%"" height=""9""></td>")
Response.Write (" <td width=""26%"" height=""19""></td>")
Response.Write (" <td width=""160%"" height=""19""></td>")
Response.Write (" </tr>")
if rs("dansk") <> "" then
Response.Write (" <tr>")
Response.Write (" <td width=""1%"" height=""19""></td>")
Response.Write (" <td width=""26%"" height=""19""><b>Dansk navn:</b></td>")
Response.Write " <td width=""160%"" height=""19""><i>" & rs("dansk") & "</i> </td>"
Response.Write (" </tr>")
Response.Write (" <tr>")
Response.Write (" <td width=""1%"" height=""19""></td>")
Response.Write (" <td width=""26%"" height=""19""></td>")
Response.Write (" <td width=""160%"" height=""19""></td>")
Response.Write (" </tr>")
end if
if rs("tysk") <> "" then
Response.Write (" <tr>")
Response.Write (" <td width=""1%"" height=""19""></td>")
Response.Write (" <td width=""26%"" height=""19""><b>Tysk navn: </b></td>")
Response.Write " <td width=""160%"" height=""19""><i>" & rs("tysk") & "</i> </td>"
Response.Write (" </tr>")
Response.Write (" <tr>")
Response.Write (" <td width=""1%"" height=""19""></td>")
Response.Write (" <td width=""26%"" height=""19""></td>")
Response.Write (" <td width=""160%"" height=""19""></td>")
Response.Write (" </tr>")
end if
Response.Write (" <tr>")
Response.Write (" <td width=""1%"" height=""19""></td>")
Response.Write (" <td width=""26%"" height=""19""><b>Funktion:</b></td>")
Response.Write " <td width=""160%"" height=""19"">" & rs("navn") & "</td>"
Response.Write (" </tr>")
Response.Write (" <tr>")
Response.Write (" <td width=""1%"" height=""38""></td>")
Response.Write (" <td width=""26%"" height=""38""></td>")
Response.Write " <td width=""160%"" height=""38"">" & rs("beskrivelse") & "</li> </td>"
Response.Write (" </tr>")
Response.Write (" <tr>")
Response.Write (" <td width=""1%"" height=""9""></td>")
Response.Write (" <td width=""26%"" height=""19""></td>")
Response.Write (" <td width=""160%"" height=""19""></td>")
Response.Write (" </tr>")
rs.MoveNext
Loop
Else
' Hvis der ikke er fundet poster p sgningen
Response.Write (" <td width=""1%"" height=""10""><p><font size=""2"">Ingrediensen er ikke fundet i databasen</font></p></td>")
Response.Write (" <tr>")
Response.Write (" <td width=""1%"" height=""20""><p><font size=""2"">Vi goer opmrksom paa, at listen der soeges paa ikke er udtoemmende, idet ingredienser loebende kommer paa listen. Listen opdateres en gang hvert 1 - 2 aar, saa hvis der skulle vaere enkelte ingredienser der ikke er at finde i soegningen, er du altid velkommen til at sende en <a href=""mailto:adm@spt.dk"">mail</a> eller ringe til os, og vi vil hurtigst mulig vende tilbage med et svar.</font></p></td>")
Response.Write (" <tr>")
Response.Write (" <b><a href=""http://a.domaindlx.com/Hejsa/inci.htm"">Tilbage til soegning</a></p></b>")
Response.Write (" </tr>")
End If
Response.Write ("</table>")
' Rydder op efter os
myConn.Close
Set myConn = Nothing
%>
</body></html>
<html>
