Hej. Jag har en databas för min musik och har en sök funktion för artister där. När jag söker på tex. abba så visar den äver sabbath...
Hur ska man göra för att bara visa det bestämda sök ordet?
___________________________________________________-
<%
Dim Con
Dim SQL
Dim RS
Set Con = Server.CreateObject("ADODB.Connection")
Con.Open "DBQ=" & Server.MapPath("db/pitt.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
%>
<html>
<head>
<title></title>
<style fprolloverstyle>A:hover {color: red; font-weight: bold}
</style>
</head>
<body bgcolor="#55BEFD" style="border: 1 solid #000000">
<hr>
<p align="left">
<form action="sokartist.asp" method="post">
<p align="left">
<u>
<br>
</u>
<font color="#FF0000"><b>
<font face="Verdana" size="1">
</font></b></font><font size="4" color="#000080">Sök Artist: </font><font color="#FF0000"><b> </b></font>
<font face="Verdana" size="1"><input type="text" name="sokord">
<input type="submit" value="sök">
\</form\>
<font face="Verdana" size="1">
<%
If Request.Form("sokord") <> "" Then
Response.Write "Din sökning på <b>" & Request.Form("sokord") & "</b> gav följande träffar.<br>" & vbCrLf
SQL = "Select * from musik Where Artist Like '%" & Request.Form("sokord") & "%' "
SET RS = Con.Execute(SQL)
While Not RS.EOF
Response.Write "<BR>"
Response.Write "<b>ID: </b>" & RS("ID") & "<b> - Artist: </b>" & RS("artist") & "<br>" & vbCrLf
Response.Write "<b>ID: </b>" & RS("ID") & "<b> - Album: </b>" & RS("album") & "<br>" & vbCrLf
Response.Write "<b>ID: </b>" & RS("ID") & "<b> - Omslag: </b>" & RS("omslag") & "<br>" & vbCrLf
Response.Write "<b>ID: </b>" & RS("ID") & "<b> - Mapp: </b>" & RS("mapp") & "<br>" & vbCrLf
Response.Write "<b>ID: </b>" & RS("ID") & "<b> - Profil: </b>" & RS("profil") & "<br>" & vbCrLf
Response.Write "<BR>"
RS.MoveNext
Wend
RS.Close
Set RS = Nothing
End If
%>
<p align="center"> </p>
</font>
<center>
<hr>
</font></center>