Mangler pludselig wend efter if sætning

Hej,

Jeg har lavet det her:

<a href="ablog.asp?user=<% = data("navn") %>">xx</a>

inde i et while-wend..

men efter jeg har erstattet xx med det her:


        <a href="ablog.asp?user=<% = data("navn") %>">
<%
Set history = Server.CreateObject ("ADODB.Recordset")
set history = Myconn.execute("SELECT * From [BlogHistory] WHERE [navn] ='"& Session("thisUser") &"' AND forfatter ='"&

data("navn") &"'")
%>

<%
if history("forfatter") = session("thisUser") Then
    Response.Write "<img src=""me.gif"" border=""0""/>"

elseif history("blogid") < data("id") Then
    Response.Write "<img src=""new.gif"" border=""0""/>"

else
    Response.Write "<img src=""old.gif"" border=""0""/>"
%>
</a>


Jeg får denne melding:

Microsoft VBScript compilation  error '800a0400'

Expected statement

/int/bloglist.asp, line 66

Wend
^




Hele løkken:


<%
while NOT data.EOF
%>

    <tr>
      <td class="td_bloglist">
        <a href="ablog.asp?user=<% = data("navn") %>">
<%
Set history = Server.CreateObject ("ADODB.Recordset")
set history = Myconn.execute("SELECT * From [BlogHistory] WHERE [navn] ='"& Session("thisUser") &"' AND forfatter ='"&

data("navn") &"'")
%>

<%
if history("forfatter") = session("thisUser") Then
    Response.Write "<img src=""me.gif"" border=""0""/>"

elseif history("blogid") < data("id") Then
    Response.Write "<img src=""new.gif"" border=""0""/>"

else
    Response.Write "<img src=""old.gif"" border=""0""/>"
%>
</a>
      </td>
      <td class="td_bloglist">
        <% = data("navn") %>
      </td>
      <td class="td_bloglist">
        <% = data("dato") %>, <% = data("tid") %>
      </td>
      <td class="td_bloglist">
<%
Set brugerdata = Server.CreateObject ("ADODB.Recordset")
set brugerdata = Myconn.execute("Select antal from [Bruger] WHERE navn = '"& data("navn") &"'")
%>

        <% = brugerdata("antal") %>
      </td>
    </tr>

<%
data.MoveNext
Wend
%>