create asp file via asp

Hej jeg har et lille problem, jeg prøver på at lave en asp file via en anden asp fil udfra content fra en DB. Den asp side som laver den anden ser så dan her ud:

dim top, generel, bottom, Helefil
top = "<% @LANGUAGE=""VBSCRIPT"" CODEPAGE=""1252""%>"
top = top & "<% Content_Id = request.QueryString(""Id"")"
top = top & " %&gt; <br>"
top = top & "&lt;% select case Content_Id"
top = top & "%&gt; <br>"


generel = "&lt;% Case """
generel = generel & "Content_Id"
generel = generel & """ %&gt;"
generel = generel & "Include_File"
bottom = "&lt;% case else" & "%&gt; <br> &lt;%" & "end select %&gt;" & "<br>"

Helefil = top & generel & bottom




set fs=Server.CreateObject("Scripting.FileSystemObject")
set f=fs.CreateTextFile(Server.Mappath("include_content_asp.asp"),true)
f.WriteLine("" & Helefil & "")
f.Close
set f=nothing
set fs=nothing

Response.write("file createt")

og resultatet bliver :

&lt;% @LANGUAGE="VBSCRIPT" CODEPAGE="1252"%&gt;

&lt;% Content_Id = request.QueryString("Id") %&gt;
<br>&lt;%
select case Content_Id
%&gt; <br>
&lt;% Case "Content_Id" %&gt;
Include_File
&lt;% case else
%&gt;
<br>
&lt;%
end select
%&gt;<br>

men den skulle have været:

<% @LANGUAGE="VBSCRIPT" CODEPAGE="1252" %>

<% Content_Id = request.QueryString("Id") %>;
<br>
<%
select case Content_Id
%> <br>
<% Case "Content_Id" %>
Include_File
<% case else
%>
<br>
<%
end select
%><br>

jeg har prøvet at bytte &lt;% ud med <% og %&gt; ud med %>

men så får jeg denne fejl :

Microsoft VBScript compilation  error '800a0409'

Unterminated string constant

/admin/test.asp, line 12

top = "<% @LANGUAGE=""VBSCRIPT"" CODEPAGE=""1252""
--------------------------------------------------^

så mit spørgsmål er, er der nogen der ved hvordan script tagsende skal skrives så de kommer til at funger på den oprettet asp side!!