Concatenar con VB Script

[esteller]

He hecho lo que me has dicho.
El fichero lo tengo asi:

Código:

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

Sub consultesBD()

	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
	
	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>
     <%
       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
	 	
End Sub


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[" & consultesBD & "]]>") <--- LINEA 98
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
%>

Me lanza este mensaje de error al ejecutarlo:

Código HTML:

Error de Microsoft VBScript en tiempo de ejecución error '800a000d'

No coinciden los tipos: 'consultesBD'

/proves/generarxml.asp, línea 98

La linea 98 esta señalada dentro del CODE

Que puede ser?
Gracias por tu ayuda