Deafult værdi?

Jeg skal oprette en oversigtsside, hvor brugeren derefter kan klikke sig et niveau ned. Som start skal der ikke sorteres, men brugeren sender med sit klik en værdi som jeg sorterer efter. Det hele kører på samme side og min kode ser sådan ud:<%
Dim Produktet__VarUPK
Produktet__VarUPK = "%"
If (Request.QueryString("Underkategori") <> "") Then
  Produktet__VarUPK = Request.QueryString("Underkategori")
End If
%>
<%
Dim Produktet
Dim Produktet_numRows
Dim VarPK
VarPK = Request.QueryString("PK")
Set Produktet = Server.CreateObject("ADODB.Recordset")
Produktet.ActiveConnection = MM_DetLilleHjem_STRING
Produktet.Source = "SELECT *  FROM Produkter  WHERE Aktiv = 'Y' AND " + VarPK + " = 'Y' AND Underkategori = '" + Replace(Produktet__VarUPK, "'", "''") + "'"
Produktet.CursorType = 0
Produktet.CursorLocation = 2
Produktet.LockType = 1
Produktet.Open()

Produktet_numRows = 0
%>
Problemet er at jeg ikke får returneret noget før brugeren har angivet en Underkategori-værdi.
Jeg har brugt jokeren %, men det virker desværre ikke.
Databasen er MySQL og som i kan se er det kodet i ASP