Syntax fejl i Case!

Hejsa!

Jeg får en (for mig at se) underlig fejl i mit script.

Jeg har lavet en fil der bliver linket til via cases....dvs. når jeg vælge januar skal den vise \'Case \"januar\"\', men den melder følgende fejl:

Microsoft VBScript compilation error \'800a03ea\'

Syntax error

/new/Scanbox_com_ny/jupiter/dvdlist.asp, line 17

Case \"januar\"

Mit script ser således ud:

Case \"januar\"

Set Connect = Server.CreateObject(\"ADODB.Connection\")
Connect.Open \"jupiter\"

Set rs = Server.CreateObject(\"ADODB.Recordset\")
rs.Open \"SELECT * FROM DVD_main_dk WHERE Maaned=\'Januar\'\", Connect, 1, 3

Response.Write(\"<table border=\"\"0\"\" cellpadding=\"\"0\"\" cellspacing=\"\"0\"\" width=\"\"611\"\" height=\"\"586\"\" align=\"\"center\"\">\" &_
                \"<tr>\" &_
                    \"<td height=\"\"28\"\">&nbsp</td>\" &_
                    \"<td height=\"\"13\"\"><font face=\"\"Verdana\"\" size=\"\"5\"\" color=\"\"#E34425\"\"><b>Januar Releases</b></font></td>\" &_
                \"</tr>\" &_
                \"<tr>\" &_
                    \"<td height=\"\"420\"\">&nbsp</td>\" &_
                    \"<td height=\"\"420\"\" valign=\"\"top\"\">\" &_
                        \"<table border=\"\"0\"\" cellpadding=\"\"0\"\" cellspacing=\"\"0\"\" width=\"\"400\"\" align=\"\"left\"\">\" &_
                            \"<tr>\" &_
                                \"<td valign=\"\"middle\"\" align=\"\"left\"\" width=\"\"50\"\"><font face=\"\"Verdana\"\" size=\"\"2\"\"><b>Varenr.</b></font></td>\" &_
                                \"<td valign=\"\"middle\"\" align=\"\"left\"\" width=\"\"350\"\"><font face=\"\"Verdana\"\" size=\"\"2\"\"><b>Titel</b></font></td>\" &_
                            \"</tr>\" &_
                        \"</table><br>\")
do until rs.EOF
Response.Write(\"<table border=\"\"0\"\" cellpadding=\"\"0\"\" cellspacing=\"\"5\"\" width=\"\"400\"\" align=\"\"left\"\">\" &_
                    \"<tr>\" &_
                        \"<td valign=\"\"middle\"\" align=\"\"left\"\" width=\"\"50\"\"><font face=\"\"Verdana\"\" size=\"\"2\"\">\"&rs(\"Varenr\")&\"</font></td>\" &_
                        \"<td valign=\"\"middle\"\" align=\"\"left\"\" width=\"\"350\"\"><font face=\"\"Verdana\"\" size=\"\"2\"\">\"&rs(\"Titel\")&\"</font></td>\" &_
                    \"</tr>\" &_
                \"</table>\")
rs.MoveNext
loop
Response.Write(\"<p>&nbsp;</p>\" &_
                \"<p>&nbsp;</p>\" &_
                \"<p><br>\" &_
                \"<br>\" &_
                \"</p>\" &_
                \"</div>\" &_
                \"<p>&nbsp;</p>\" &_
                \"<p>&nbsp;</p>\" &_
                \"<p>&nbsp;</p>\" &_
                \"<p>&nbsp;</p>\" &_
                    \"</td>\" &_
                \"</tr>\" &_
                \"<tr>\" &_
                    \"<td height=\"138\">&nbsp;</td>\" &_
                    \"<td height=\"138\"><object classid=\"clsid:D27CDB6E-AE6D-11cf-96B8-444553540000\" codebase=\"http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0\" width=\"610\" height=\"130\" align=\"middle\">\" &_
                        \"<param name=movie value=\"MENUSDK1.swf\">\" &_
                        \"<param name=quality value=high>\" &_
                        \"<embed src=\"MENUSDK1.swf\" quality=high pluginspage=\"http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash\" type=\"application/x-shockwave-flash\" width=\"610\" height=\"130\" align=\"middle\">\" &_
                        \"</embed>\" &_
                        \"</object>\" &_
                    \"</td>\" &_
                \"</tr>\" &_
                \"</table>\")

Nogen der kan fortælle mig hvad der er galt???