Antal träffar på sökning?

Rubriken avslöjar min fråga. ;)

Sökordet skickas med m.h.a ett formulär(post), med andra ord Request("sokord"). :)

Har ingen aning om vad jag ska göra, hjälp!

<%
rsCount.Close
Set rsCount = Nothing
Dim strPage
strPage = Request("page")
Select Case strPage
Case "sok"

MyPage = Request("nextpage")
If MyPage = "" then
MyPage = 1
End If
MyPagesize = 50
If Request("kat") = "Alla" OR Request("kat") = "" Then
SQL = "SELECT LID, namn, besk, url, sprak, klick FROM data WHERE sokord LIKE '%" & Request("sokord") & "%' "
Else
SQL = "SELECT LID, namn, besk, url, sprak, klick FROM data WHERE kat = '" & Request("kat") & "' AND sokord LIKE '%" & Request("sokord") & "%' "
End If
Set rs = Server.CreateObject("ADODB.Recordset")
rs.CursorLocation = 3
rs.CacheSize = 5
rs.open SQL, Connection
If rs.EOF OR rs.BOF Then
Response.Write"<center><strong>Inga länkar hittades i databasen!</strong></center>"
Else
Response.Write"<table align=""center"" width=""550"" cellspacing=""0"" cellpadding=""2"">"
rs.MoveFirst
rs.PageSize = MyPageSize
MaxCount = Cint(rs.PageCount)
rs.AbsolutePage = MyPage
HowManyRecs = 0
HowManyFields = rs.Fields.Count -1

Do While Not rs.EOF AND HowManyRecs < rs.PageSize
Counter = Counter + 1

color = color +1
bgcolor = "#53678F"
If color mod 2 = 0 Then
bgcolor = "#6C7C9C"
End If

Response.Write"<tr bgcolor=" & bgcolor & "><td><strong>"
If Left(rs("url"),7) = "http://" Then
Response.Write"<a href=""lankar.asp?page=redirect&LID=" & rs("LID") & "&url=" & rs("url") & """ target=""_blank"">" & rs("namn") & "</a><br>"
Else
Response.Write"<a href=""lankar.asp?page=redirect&LID=" & rs("LID") & "&url=http://" & rs("url") & """ target=""_blank"">" & rs("namn") & "</a><br>"
End If
Response.Write"</strong><i>" & rs("besk") & "</i><br>"
Response.Write"URL: <a href=""lankar.asp?page=redirect&LID=" & rs("LID") & "&url=" & rs("url") & """ target=""_blank"">" & rs("url") & "</a><br>"
Response.Write"Klick: " & rs("klick") & "<br>"
Response.Write"<a href=""lankar.asp?page=admin&LID=" & rs("LID") & """>Redigera</a> | <a href=""lankar.asp?page=broken&LID=" & rs("LID") & """>Rapportera bruten länk</a></td></tr>"

rs.MoveNext
HowManyRecs = HowManyRecs + 1
Loop
Response.Write"</table>"
rs.Close
Set rs = Nothing

Response.Write"</table>"

Response.Write"<br style=""line-height: 14px;"">"
Response.Write"<table align=""center"" width=""550"" cellspacing=""0"" cellpadding=""2""><tr><td>"

If MaxCount <> 0 Then
Response.Write "Du är på sida " & mypage & " av " & maxcount & ".<br><br style=""line-height: 4px"">"
pad = "0"
for counter = 1 to maxcount
If counter >= 10 then
pad = ""
End If
ref = "<a href=lankar.asp?nextpage=" & counter & "&pagesize=" & mypagesize & "&sokord=" & Request("sokord") & "&kat=" & Request("kat") & ">" & pad & counter & "</a>&nbsp;&nbsp;"
Response.Write ref & ""
If Counter mod 10 = 0 Then
Response.Write "<br>"
End If
Next
End If
End If

Response.Write"</td></tr></table>"

Så där. :h

Hjälp mig nu, snälla! :p