Har lite problem med denna sats, får fel på MidStr och får inte ut resultat, nån som kan se felet???

Dim SqlQuery
Dim SqlWhereClause

' Bestäm vilka parametrar som ska ingå i frågan.

If Not Request.Form("selCommunity") = "" Then
SqlWhereClause = " community = '" & Request.Form("selCommunity") & "' OR"
End If

If Not Request.Form("selSex") = "" Then
SqlWhereClause = " sex = '" & Request.Form("selSex") & "' OR"
End If

If Not Request.Form("selStatus") = "" Then
SqlWhereClause = " status = '" & Request.Form("selStatus") & "' OR"
End If

If Not Request.Form("selBild") = "" Then
SqlWhereClause = " bild = '" & Request.Form("selBild") & "' OR"
End If

If Not Request.Form("selInloggad") = "" Then
SqlWhereClause = " inloggad = '" & Request.Form("selInloggad") & "' OR"
End If

' Ta bort sista tre tecknen ur frågan.
If SqlWhereClause <> "" Then
SqlWhereClause = Midstr(SqlWhereClause, 0, Len(SqlWhereClause) - 3)
End If

' Bygg ihop WHERE-klausulen i den fullständiga sql-frågan.
SqlQuery = "SELECT * FROM tblUsers WHERE (community = " & varCommunity & ") AND (sex = " & varSex & ") AND (status = " & varStatus & ") AND (bild = " & varBild & ") AND (inloggad = " & varInloggad & ") AND (" & SqlWhereClause & ")"

' Kör frågan.
set rs = objConn.Execute(SqlQuery)