Recordset driller

hvad er der galt i nedenstående, modtager denne fejl:

Microsoft OLE DB Provider for ODBC Drivers error '80040e09'
[TCX][MyODBC]You have an error in your SQL syntax. Check the manual that corresponds to your MySQL server version for the right syntax to use near ''% Varenavn ASC' at line 1
/webshop/admin/produkter/produkt_oversigt.asp, line 59


KODE:
<%
Dim rsProdukter__varNavn
rsProdukter__varNavn = "%"
If (Request.Form("varenavn") <> "") Then
  rsProdukter__varNavn = Request.Form("varenavn")
End If
%>
<%
Dim rsProdukter__varAktiv
rsProdukter__varAktiv = "%"
If (Request.Form("aktiv")  <> "") Then
  rsProdukter__varAktiv = Request.Form("aktiv")
End If
%>
<%
Dim rsProdukter__varNyhed
rsProdukter__varNyhed = "%"
If (Request.Form("vissomnyhed")  <> "") Then
  rsProdukter__varNyhed = Request.Form("vissomnyhed")
End If
%>
<%
Dim rsProdukter__varForside
rsProdukter__varForside = "%"
If (Request.Form("vispaaforside")  <> "") Then
  rsProdukter__varForside = Request.Form("vispaaforside")
End If
%>
<%
Dim rsProdukter__orderBy
rsProdukter__orderBy = "%"
If (Request.Querystring("OrderBy") <> "") Then
  rsProdukter__orderBy = Request.Querystring("OrderBy")
Else
rsProdukter__orderBy = "Varenavn"
End If
%>
<%
Dim rsProdukter__sorter
rsProdukter__sorter = "%"
If (Request.Querystring("Sorter") <> "") Then 
  rsProdukter__sorter = Request.Querystring("Sorter")
Else
rsProdukter__sorter = "ASC"
End If
%>
<%
Dim rsProdukter
Dim rsProdukter_numRows

Set rsProdukter = Server.CreateObject("ADODB.Recordset")
rsProdukter.ActiveConnection = MM_webshop_STRING
rsProdukter.Source = "SELECT *  FROM produkt  WHERE Varenavn LIKE '%" + Replace(rsProdukter__varNavn, "'", "''") + "%' AND Aktiv LIKE '" + Replace(rsProdukter__varAktiv, "'", "''") + "' AND VisSomNyhed LIKE '" + Replace(rsProdukter__varNyhed, "'", "''") + "' AND VisPaaForside LIKE '" + Replace(rsProdukter__varForside, "'", "''") + " " + Replace(rsProdukter__orderBy, "'", "''") + " " + Replace(rsProdukter__sorter, "'", "''") + ""
rsProdukter.CursorType = 0
rsProdukter.CursorLocation = 2
rsProdukter.LockType = 1
rsProdukter.Open()

rsProdukter_numRows = 0
%>