fejl i visning

det her stykke skal vise data der matcher søgekriterierne, det virker okay når man skal se siden først, men efter det viser den hele databasen, hvorfor? hvad skal jeg gøre for at det virker?

<%
if Not Soeg = "" then
Response.Write "<hr color=#000000>"
if sog = "" then
if Soeg = "bruger" then
sog = Request.Form("bruger")
elseif Soeg = "trad" then
sog = Request.Form("trad")
end if
else
sog = Request.QueryString("soegeord")
end if

if Soeg = "bruger" then
Soeg = "bruger"
elseif Soeg = "trad" then
Soeg = "trad"
end if


intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
    intPage = 1
End If

Set rs = Server.CreateObject("ADODB.RecordSet")

if Soeg = "bruger" then
strSQL = "Select * From Brugere Where Bruger like '%" & sog & "%'"
elseif Soeg = "trad" then
strSQL = "Select * From Threads Where Threademne like '%" & sog & "%'"
end if

DSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("System.mdb")
rs.Open strSQL, DSN, 1
If Not (rs.BOF Or rs.EOF) Then
    rs.PageSize = 10
    rs.AbsolutePage = intPage
    intRecCount = rs.PageSize
    intPageCount = rs.PageCount
    Response.Write "<p><b>Side " & intPage & " af " & intPageCount & "</b></p>"
Do
if Soeg = "bruger" then
  Response.Write "<a href=seprofil.asp?id=" & rs("Id") & ">" & rs("Bruger") & "</a><br>"
elseif Soeg = "trad" then
  Response.Write "<a href=sethread.asp?id=" & rs("Id") & ">" & rs("Threademne") & "</a><br>"
  'Udsnit af teksten
  Response.Write Left(rs("Thread"), 50) & "...<br>"
end if
  intRecCount = intRecCount - 1
  rs.MoveNext

Loop While Not rs.EOF And intRecCount > 0
End If
rs.Close
Set rs = Nothing

Response.Write "<p>Gå til side "
For intNum = 1 To intPageCount
    Response.Write "<a href=soeg.asp?soeg=" & Soeg & "&soegeord=" & sog & "&page=" & intNum & ">" & intNum & "</a> "
Next

Response.Write "&nbsp;&nbsp;&nbsp;"
If Clng(intPage) > 1 Then
    Response.Write "<a href=soeg.asp?soeg=" & Soeg & "&soegeord=" & sog & "&page=" & intPage - 1 & ">&lt;</a>"
Else
    Response.Write "&lt;"
End If

Response.Write "&nbsp;"

If Clng(intPage) < Clng(intPageCount) Then
    Response.Write "<a href=soeg.asp?soeg=" & Soeg & "&soegeord=" & sog & "&page=" & intPage + 1 & ">&gt;</a> "
Else
    Response.Write "&gt;"
End If
End If
%>