Hvad gør jeg galt

Jeg har fejl i dette script.

<%@ LANGUAGE=\"VBSCRIPT\" %>
<% Option Explicit
%>
<!-- #INCLUDE VIRTUAL=\"/adovbs.inc\" -->

<%

    Dim Conn, RS   
    Set Conn    = Server.CreateObject(\"ADODB.Connection\")
    Conn.Open Application(\"database\")
    Set RS        = Server.CreateObject(\"ADODB.Recordset\")
    RS.Open \"SELECT * FROM TEditorArtikel WHERE Kategori=\"& kategoriID &\"\", Conn

%>

<html>
<head>

<LINK href=\"/editor.css\" rel=\"stylesheet\" type=\"text/css\">
<title>[ ..  .. ]</title>
</head>

<body link=\"#FFFFFF\" vlink=\"#FFFFFF\" alink=\"#FFFFFF\" leftmargin=\"5\">
<table border=\"0\" width=\"100%\">
<tr>
<td width=\"115\" valign=\"top\" align=\"middle\">
<!-- #INCLUDE VIRTUAL=\"/inc/leftmenu.asp\" -->
</td>

<td bgcolor=\"#ffffff\" width=\"100%\" valign=\"top\" align=\"left\">
&nbsp;

<table border=\"0\" width=\"98%\">
  <tr>

    <td width=\"98%\" rowspan=\"0\" bgcolor=\"#18949C\" style=\"border: 1 solid #000000\">
   
<%
    While NOT RS.eof
        Response.write \"<p align=\"\"Left\"\" class=\"\"LilleOverskrift\"\"><b>Velkommen til \" & RS (\"indledning\")
        Response.write \"</b></font></p></td></tr></table>\"

       
  RS.Movenext
    Wend
    Response.write \" \"
    RS.Close
    Set RS = NOTHING
    Conn.Close
    Set Conn = NOTHING
%>     
               

</body>