Stoppe visning og gentagelse
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)
If Not (rs.BOF Or rs.EOF) Then
' Hvis der er fundet poster p sgningen
Do While Not rs.EOF
Response.Write ("<table border=""0"" cellpadding=""0"" cellspacing=""0"" style=""border-collapse: collapse"" bordercolor=""#111111"" width=""56%"" id=""AutoNumber1"" height=""215"">")
Response.Write (" <tr>")
Response.Write (" <td width=""14%"" height=""26""></td>")
Response.Write (" <td width=""186%"" colspan=""2"" height=""26""></td>")
Response.Write (" </tr>")
Response.Write (" <tr>")
Response.Write (" <td width=""14%"" height=""26""></td>")
Response.Write (" <td width=""186%"" 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 (" <tr>")
Response.Write (" <td width=""14%"" height=""19""></td>")
Response.Write (" <td width=""186%"" colspan=""2"" height=""19""></td>")
Response.Write (" </tr>")
Response.Write (" <tr>")
Response.Write (" <td width=""1%"" height=""19""></td>")
Response.Write (" <td width=""26%"" height=""19""><b>Ingrediens:</b></td>")
Response.Write " <td width=""160%"" height=""19"">" & rs("ingrediens") & "</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>")
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>")
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>")
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>"
rs.MoveNext
Loop
Else
' Hvis der ikke er fundet poster p sgningen
Response.Write "<p>Der er ikke fundet noget p denne sgning</p>"
End If
' Rydder op efter os
myConn.Close
Set myConn = Nothing
%>
</body></html>
<html>
------Hvis man fx søger på "butylparaben" på siden: http://a.domaindlx.com/Hejsa/search.htm får man "Resultat af INCI-soegning" vist for hvert resultat.
Hvordan ændres dette, så det kun skrives én gang?
Hvis posten "Dansk navn:" og "Tysk navn" er tom, hvordan får man dem så til ikke at vises? (samt ikke vise melemrummet...)
