Sorter efter emote

Hejsa

Jeg har nedstående roede søgning fra en database ..
Men hvordan får jeg den til at liste resultatet efter Emote?

  <%
' Henter værdien fra søgning
strKeyword = Trim(Request.Form("Keyword"))

If Len(strKeyword) = 0 Then
' Hvis der ikke er skrevet i feltet
Response.Clear
Response.Redirect("EmoteSog.asp")

Else

' Hvis der er skrevet i feltet
strKeyword = Replace(strKeyword,"'","''")

End If

' Opbygger en dynamisk SQL streng
strSQL = "SELECT Id, emote, rang,PP, PD, PU, PS, DD, DP, DU, DS FROM tabel WHERE"
strSQL = strSQL & " (Id LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (Emote LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (Rang LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (PP LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (PD LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (PU LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (PS LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (DD LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (DP LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (DU LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (DS LIKE '%" & strKeyword & "%')"


' Databaseforbindelse [DNSless] - Stien til databasen lokaliseres
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("../../../db/msemotes_data.mdb")

Conn.Open DSN

' Skaber et recordset udfra SQL strengen
Set rs = Conn.Execute(strSQL)

' Hvis der er fundet poster på søgningen
If Not (rs.BOF Or rs.EOF) Then

Do While Not rs.EOF

' Variabler deklæres
emote = rs("Emote")
rang = rs("rang")



%>
            <tr>
              <td align="right" width="16"><img height="14" src="http://gfx.chat.jubii.dk/c.gif" width="16"></td>
              <td align="left"><A href="emotevis.asp?id=<% = rs("id") %>"><font class="txtCont">
<%
' Udskriver linket som det blev genereret ovenfor + tilhørende kommentar

Response.Write "/" & Emote 
%>
              </font></a></td>

  </center>


              <td align="left"><font class="txtCont">
<p align="left">
<%
' Udskriver linket som det blev genereret ovenfor + tilhørende kommentar
Response.Write "<b>"& Rang & "</b>"
%>

</font></td>
            </tr>
<center>

            <tr>
              <td bgColor="#d6c5ab" colSpan="3"><img src="http://gfx.chat.jubii.dk/c.gif" width="1" height="1"></td>
            </tr>
            <%
rs.MoveNext
Loop
Else
%>
<%
' Hvis der ikke er fundet poster på søgningen
Response.Write "<b><font face=verdana size=2>Der blev ikke fundet noget resultat ved din søgning!</b></font><br>"

End If

' Databaseforbindelsen lukkes
Conn.Close
Set Conn = Nothing
%>