Concatenar con VB Script

[esteller]

Muy buenas.
Tengo un archivo asp para generar un archivo xml y no se como concatenar unas cosas para que me haga el xml a partir de una consulta. A ver si me pueden ayudar.
Lo que yo tengo es:

Código:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim objXML1, fso, tf, ts, s
Const ForReading = 1

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DSN=*****;UID=*****;PWD=*****"
Set Dades = Server.CreateObject("ADODB.RecordSet")
Dades.Open "select distinct ANI,MES from HORARIS",Conn,1
  
Set Dades2 = Server.CreateObject("ADODB.RecordSet")
consulta ="select DIA,MES,ANI,INICINOBLE,FINOBLE,INICIGOLFES,FIGOLFES from HORARIS WHERE MES="+CStr(Dades("MES"))
Dades2.Open consulta,Conn,1

Set fso = CreateObject("Scripting.FileSystemObject")
Set tf = fso.CreateTextFile(Server.MapPath("xml.xml"))
tf.WriteLine("<?xml version='1.0' encoding='UTF-8'?>")
tf.WriteLine("<BATLLO>")
tf.WriteLine("<TEXT>")
tf.WriteLine("<![CDATA[CODIGO_SECUNDARIO]]>
tf.WriteLine("</TEXT>")
tf.WriteLine("<IMAGEN URL='images/visita_info1.jpg'></IMAGEN>")
tf.WriteLine("<IMAGEN URL='images/visita_info2.jpg'></IMAGEN>")
tf.WriteLine("<IMAGEN URL='images/visita_info3.jpg'></IMAGEN>")
tf.WriteLine("</BATLLO>")
tf.Close
Set fso = nothing
Set tf = nothing
Session.Abandon
%>

En donde pone "CODIGO_SECUNDARIO" en negrita le quiero poner esto:

Código:

<%
do while not Dades.Eof
    %>
     <strong><font face="arial" size=2>
      <%
        if Dades("MES")=1 then
           %>ENERO<%
           txtMes="Enero"
        end if
        if Dades("MES")=2 then
           %>FEBRERO<%
           txtMes="Febrero"
        end if
        if Dades("MES")=3 then
           %>MARZO<%
           txtMes="Marzo"
        end if
        if Dades("MES")=4 then
           %>ABRIL<%
           txtMes="Abril"
        end if
        if Dades("MES")=5 then
           %>MAYO<%
           txtMes="Mayo"
        end if
        if Dades("MES")=6 then
           %>JUNIO<%
           txtMes="Junio"
        end if
        if Dades("MES")=7 then
           %>JULIO<%
           txtMes="Julio"
        end if
        if Dades("MES")=8 then
           %>AGOSTO<%
           txtMes="Agosto"
        end if
        if Dades("MES")=9 then
           %>SEPTIEMBRE<%
           txtMes="Septiembre"
        end if
        if Dades("MES")=10 then
           %>OCTUBRE<%
           txtMes="Octubre"
        end if
        if Dades("MES")=11 then
           %>NOVIEMBRE<%
           txtMes="Noviembre"
        end if
        if Dades("MES")=12 then
           %>DICIEMBRE<%
           txtMes="Diciembre"
        end if%>
        <%=" "+CStr(Dades("ANI"))
      %>
     </font></strong><br>
     <TABLE WIDTH=100%><TR><TD WIDTH=33%>
     <STRONG><font face="arial" size=2>Dia</font></STRONG></TD><TD WIDTH=33%><STRONG><font face="arial" size=2>Planta Noble</font></STRONG></TD><TD WIDTH=34%><STRONG><font face="arial" size=2>Golfes</font></STRONG></TD></TR>
     <%
       Set Dades2 = Server.CreateObject("ADODB.RecordSet")
       consulta ="select DIA,MES,ANI,INICINOBLE,FINOBLE,INICIGOLFES,FIGOLFES from HORARIS WHERE MES="+CStr(Dades("MES"))
       Dades2.Open consulta,Conn,1
       do while not Dades2.Eof
         %>
          <TR><TD><font face="arial" size=2>
          <%=CStr(Dades2("DIA"))+" "+txtMes%>
          </font></TD><TD><font face="arial" size=2>
          de <%=Dades2("INICINOBLE")%>h a <%=Dades2("FINOBLE")%>h
          </font></TD><TD><font face="arial" size=2>
          de <%=Dades2("INICIGOLFES")%>h a <%=Dades2("FIGOLFES")%>h
          </font></TD></TR>
         <%Dades2.MoveNext
       loop
     %></TABLE><BR><%
     Dades.MoveNext
     loop
     %>

Esto lo quiero hacer para luego cargarlo desde flash y recuperar todo el contenido, lo que va entre <![CDATA[ y ]] es un texto que en flash ira con un scroll, por eso necesito ponerlo aqui en medio. Lo que no se es como concatenarlo. En php por ejemplo pones:

Código:

echo "<font size=\"5\">."$variable."</font>";

Yo de ASP no se nada, tengo el ejemplo de generar el xml y le voy añadiendo trozos de documentos, y necesito concatenar eso y no se como se hace.

Muchas gracias de antemano.
Un saludo