Strengkonstanten er ikke afsluttet nogle det kan hjælpe

Det drejer sig om:

De 2 første steder hvor jeg starter med <% og det hvor der står tr_class = "red" altså 3 steder.

Nogle der kan hjælpe.


<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td class="black"></td>
<td class="black">HEADSET OSV OG EN MASSE ANDET</td>
<td class="black" width=70>Incl. Moms</td>
</tr>
<%
    Dim tr_class
    Sub changeColor()
        If tr_class = "red" Then
            tr_class = "white"
        Else
            tr_class = "red"
        End If
    End Sub
   
    tr_class = "red"
   
    sql = "SELECT * FROM Ram ORDER BY FIRM;"
    Set rs = cn.Execute(sql)

    If rs.EOF Then
%>
<tr>
    <td colspan=3 class=white align=center> Der findes ingen vare i denne Kategori.</td>
</tr>
<%
    Else
    While Not rs.EOF
%>       
</tr>
<tr onclick="java script:ShowHide('"<%=rs("VNR")%>"');" style="cursor: hand;">
<td width=12><img src="../../images/plus.gif" border="0" id="<%=rs("VNR")%>"></td>
<td class=<%=tr_class%>>&nbsp;&nbsp;<%=rs("FIRM")%></td>
<td width=70>Pris.<br><%=rs("PRICE1")%>&nbsp;kr</td>
</tr>
<tr class=<%=tr_class%> style="display: none;" id="<%=rs("VNR")%>">
<td colspan=3><%=rs("INFO")%></td>
</tr>
<%
    changeColor
    rs.MoveNext
    Wend
    End If

    rs.Close
    Set rs = Nothing   
%>
    <tr>
        <td colspan=3 class=bottom></td>
    </tr>
</table>
</BODY>
</HTML>
<%
cn.Close
Set cn = Nothing
%>