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:
En donde pone "CODIGO_SECUNDARIO" en negrita le quiero poner esto:<%@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
%>
Código:
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:<%
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
%>
Código:
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.echo "<font size=\"5\">."$variable."</font>";
Muchas gracias de antemano.
Un saludo
Respuesta: Concatenar con VB Script 
.
. 
Respuesta: Concatenar con VB Script 
.
