Expected end of statement fejl i subrutiner

Hejsa

Jeg har hentet en subrutine fil som jeg så vil udbygge - den ser sådan ud:

<!-- Minus AutoDato -->
<!-- Minus AutoDato DataConnPath skal ændres til d:/web/haggaf.dk/lalitha/Administration/blomst.mdb kopieres denne over til nettet -->
<title>Subrutiner</title>
<!-- #include file="msado.asp" -->
<%
DataConnPath = "c:/Inetpub/wwwroot/Rose/blomst.mdb"
Dim rs
Dim connectme
Dim sqlstmt
Dim conn

'Åbner forbindelse til databasen
Sub OpenCon
Set Conn = Server.CreateObject("ADODB.Connection")
connectme = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & DataConnPath & ";"
Conn.open(connectme)
End Sub

'Lukker forbindelsen til databasen
Sub CloseCon
rs.Close
set rs = Nothing
set conn = Nothing
End Sub

'Vælger tabel
Sub ChooseTable(sTable)
set rs=Server.CreateObject("ADODB.recordset")
sqlstmt = "SELECT * FROM " & stable
rs.open sqlstmt, connectme, adOpenStatic, adLockOptimistic
End Sub

'Vælger tabel i sorteret rækkefølge
Sub ChooseTableSort(sTable,sSortBy)
set rs=Server.CreateObject("ADODB.recordset")
sqlstmt = "SELECT * FROM " & stable & " order by " & sSortBy
rs.open sqlstmt, connectme, adOpenStatic, adLockOptimistic
End Sub

'Vælger tabel med Where og Like i sorteret rækkefølge
Sub ChooseTableWhereSort(sTable,sWhere,sLike,sSortBy)
set rs=Server.CreateObject("ADODB.recordset")
sqlstmt = "SELECT * FROM " & stable & " Where " & sWhere & " Like " & sLike " order by " & sSortBy
rs.open sqlstmt, connectme, adOpenStatic, adLockOptimistic
End Sub

%>

Jeg har udbygget den med ChooseTableWhereSort delen

Når jeg så henter subrutinen gør jeg det ved at skrive:

<%
opencon
call ChooseTableWhereSort ("undermenu", "mellemmenuID", "15", "undermenuID asc")
%>

Gør jeg ovennævnte, får jeg følgende fejl:

Expected end of statement
C:\INETPUB\WWWROOT\GALLERI\FIKSE\../../Administration/subrutiner.asp, line 43, column 76
sqlstmt = "SELECT * FROM " & stable & " Where " & sWhere & " Like " & sLike " order by " & sSortBy

Hvad er der galt med ovennævnte?

simsen :-)