MS Acces database, asp fil - Layout
Jeg har lavet en søgning af en database, men layoutet stinker for vildt.Siden er på: http://a.domaindlx.com/Hejsa/search.htm
Men søgningen biver grim. Hvis man f.eks. søger på ACETAMIDE MEA kommer der en masse tabellignede ting frem med resultaterne i, og ACETAMIDE MEA bliver nævnt flere gange.
Hvordan får man det sat op til fx at vise det sådan her:
Ingrediens
ACETAMIDE MEA
(skjule "Dansk navn og Tysk navn, hvis posten er tom)
FUGTIGHEDSBEVARENDE eller FUFGTIGHEDSGIVENDE
Holder på fugtigheden eller øger vandindholdet i huden og bevarer huden blød og glat.
ANTISTATISK
Reducerer statisk elektricitet ved at neutralisere elektrisk ladning på overfladen.
Mit script er (der er fra en toturial):
<% Response.Buffer = True %>
<html><head>
<title>Søgeresultat</title>
</head><body>
<%
' Henter værdien 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å søgningen
Response.Write "<p>Søgeresultat</p>"
Response.Write "<table border=1>"
Response.Write "<tr><th>Ingrediens</th><th>Dansk navn</th><th>Tysk navn</th><th>Funktion</th><th>Beskrivelse</th></tr>"
Do While Not rs.EOF
Response.Write "<tr><td>" & rs("ingrediens") & "</td>"
Response.Write "<td>" & rs("dansk") & "</td>"
Response.Write "<td>" & rs("tysk") & "</td>"
Response.Write "<td>" & rs("navn") & "</td></tr>"
Response.Write "<td>" & rs("beskrivelse") & "</td></tr>"
rs.MoveNext
Loop
Response.Write "</table>"
Else
' Hvis der ikke er fundet poster på søgningen
Response.Write "<p>Der er ikke fundet noget på denne søgning</p>"
End If
' Rydder op efter os
myConn.Close
Set myConn = Nothing
%>
</body></html>
