Jag skulle rekomendera dig att ha en selectbox där man kan välja vilken genre filmen tillhör, tror det skulle förenkla väldigt för dig.
ProblemSUB
27 svar · 576 visningar · startad av timedia · sida 2 av 2
Trådstarten, av timedia
Den vill inte lista filmer i samma kategori? Först öppnar jag DB <% Set Connect = Server.CreateObject("ADODB.Connection") Connect.Open "driver={Microsoft Access Driver (.mdb)};dbq=" & Server.MapPath("mindb") Set RecSet = Server.CreateObject("ADODB.Recordset") Visa = "SELECT FROM Recension WHERE ID = " & request("Id") RecSet.Open Visa, Connect, adOpenStatic, adLockOp
Läs hela trådstarten →Ja, NU vet jag det också.
...men det borde ju gå att lösa med befintlig system?
Är det inte som så att om du tar fram en film med "Action/Drama" i kategorin så triggas båda dina subbar?
(filmsistaaction samt filmsistadrama)
Jo, självklart är det så 
Hur bör jag skriva if-satserna så att bara en sub exekveras?
Fixade själv OCH lyckades 
Tack allasammans för hjälpen!!
<%
if InStr(LCase(RecSet("kategori")), "action") > 0 then
filmsistaaction()
else
if InStr(LCase(RecSet("kategori")), "drama") > 0 then
filmsistadrama()
else
if InStr(LCase(RecSet("kategori")), "barn") > 0 then
filmsistabarn()
else
if InStr(LCase(RecSet("kategori")), "famil") > 0 then
filmsistabarn()
else
if InStr(LCase(RecSet("kategori")), "komed") > 0 then
filmsistakomedi()
else
if InStr(LCase(RecSet("kategori")), "humor") > 0 then
filmsistakomedi()
else
if InStr(LCase(RecSet("kategori")), "thriller") > 0 then
filmsistathrill()
else
if InStr(LCase(RecSet("kategori")), "rys") > 0 then
filmsistarys()
else
if InStr(LCase(RecSet("kategori")), "skräck") > 0 then
filmsistarys()
end if
end if
end if
end if
end if
end if
end if
end if
end if
%>
Om du vill att han ska "stanna" efter att en If-sats blivit sann kan du väl köra med ElseIf istället för att avsluta varje If-sats o påbörja en ny.
if InStr(LCase(RecSet("kategori")), "action") > 0 then
filmsistaaction()
Elseif InStr(LCase(RecSet("kategori")), "drama") > 0 then
filmsistadrama()
Elseif InStr(LCase(RecSet("kategori")), "barn") > 0 then
filmsistabarn()
end if
Jag var lite sen, men medge att mitt förslag var snyggare 
OK, då kör jag din variant 