'End' var ventet

Hvorfor får jeg følgende fejl:

Der opstod en Microsoft VBScript-kompileringsfejl error '800a03f6'

'End' var ventet

/bonbonland/test.asp, line 52

Linie 52 er den med den sidste End If



<%
dim id, loc, str

id = request.QueryString("id")

if InStr(1, id, "_cartoon", 1) > 0 or InStr(1, id, "_popit", 1) > 0 then
    loc = "micro"
else if InStr(1, id, "_happyfamily", 1) > 0 or InStr(1, id, "_voresborn", 1) > 0 or InStr(1, id, "_grin_jp", 1) > 0 then
    loc = "site"
else if InStr(1, id, "_bro", 1) > 0 then
    loc = "bro"
else if InStr(1, id, "_saeson", 1) > 0 then
    loc = "saeson"
else
    loc = "micro"
end if

if loc = "micro" then
    %>
   
    <script type="text/javascript">
    Par = "'resizable=no,scrollbars=auto,toolbar=no,location=no,directories=no,status=no,width=520,height=550'";
    window.open('intro.asp', 'pop', Par);
    self.location.href='http://www.site.dk/';
    </script>

    <%
else if loc = "site" then
    %>
   
    <script type="text/javascript">
    self.location.href='http://www.site.dk/';
    </script>

    <%
else if loc = "bro" then
    %>
   
    <script type="text/javascript">
    self.location.href='http://www.site.dk/03dk/tilbud/broen.htm';
    </script>

    <%
else if loc = "saeson" then
    %>
   
    <script type="text/javascript">
    self.location.href='http://www.site.dk/03dk/info/sason.htm';
    </script>

    <%
End If

%>