Tema: Concatenar con VB Script
Ver Mensaje Individual
  #20 (permalink)  
Antiguo 05/10/2008, 03:36
esteller
 
Fecha de Ingreso: mayo-2007
Mensajes: 33
Antigüedad: 18 años
Puntos: 0
Respuesta: Concatenar con VB Script
Buenas, perdon por el retraso pero he estado fuera.
Lo que tengo ahora mismo es esto:
Código asp: 
Ver original
  1. <%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
  2. <%
  3. Dim objXML1, fso, tf, ts, s
  4. Const ForReading = 1
  5.  
  6.  
  7.  
  8.     Set Conn = Server.CreateObject("ADODB.Connection")
  9.     Conn.Open "DSN=*****;UID=*****;PWD=*****"
  10.     Set Dades = Server.CreateObject("ADODB.RecordSet")
  11.     Dades.Open "select distinct ANI,MES from HORARIS",Conn,1
  12.   
  13.     Set Dades2 = Server.CreateObject("ADODB.RecordSet")
  14.     consulta ="select DIA,MES,ANI,INICINOBLE,FINOBLE,INICIGOLFES,FIGOLFES from HORARIS WHERE MES="+CStr(Dades("MES"))
  15.     Dades2.Open consulta,Conn,1
  16.     
  17.     do while not Dades.Eof
  18.      Response.Write("Bucle1")
  19.      Devolver = "<strong><font face='arial' size=2>"
  20.       
  21.         if Dades("MES")=1 then
  22.            Devolver = Devolver & "ENERO"
  23.            txtMes="Enero"
  24.         end if
  25.         if Dades("MES")=2 then
  26.            Devolver = Devolver & "FEBRERO"
  27.            txtMes="Febrero"
  28.         end if
  29.         if Dades("MES")=3 then
  30.            Devolver = Devolver & "MARZO"
  31.            txtMes="Marzo"
  32.         end if
  33.         if Dades("MES")=4 then
  34.            Devolver = Devolver & "ABRIL"
  35.            txtMes="Abril"
  36.         end if
  37.         if Dades("MES")=5 then
  38.            Devolver = Devolver & "MAYO"
  39.            txtMes="Mayo"
  40.         end if
  41.         if Dades("MES")=6 then
  42.            Devolver = Devolver & "JUNIO"
  43.            txtMes="Junio"
  44.         end if
  45.         if Dades("MES")=7 then
  46.            Devolver = Devolver & "JULIO"
  47.            txtMes="Julio"
  48.         end if
  49.         if Dades("MES")=8 then
  50.            Devolver = Devolver & "AGOSTO"
  51.            txtMes="Agosto"
  52.         end if
  53.         if Dades("MES")=9 then
  54.            Devolver = Devolver & "SEPTIEMBRE"
  55.            txtMes="Septiembre"
  56.         end if
  57.         if Dades("MES")=10 then
  58.            Devolver = Devolver & "OCTUBRE"
  59.            txtMes="Octubre"
  60.         end if
  61.         if Dades("MES")=11 then
  62.            Devolver = Devolver & "NOVIEMBRE"
  63.            txtMes="Noviembre"
  64.         end if
  65.         if Dades("MES")=12 then
  66.            Devolver = Devolver & "DICIEMBRE"
  67.            txtMes="Diciembre"
  68.         end if
  69.         Devolver = Devolver & " " & CStr(Dades("ANI"))
  70.       
  71.      Devolver = Devolver & "</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>"
  72.      
  73.        do while not Dades2.Eof
  74.        Response.Write("Bucle2")
  75.      Devolver = Devolver & "<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>"
  76.           Dades2.MoveNext
  77.        loop
  78.      Devolver = Devolver & "</TABLE><BR>"
  79.      Dades.MoveNext
  80.      loop
  81.         
  82.  
  83. Set fso = CreateObject("Scripting.FileSystemObject")
  84. Set tf = fso.CreateTextFile(Server.MapPath("xml.xml"))
  85. tf.WriteLine("<?xml version='1.0' encoding='UTF-8'?>")
  86. tf.WriteLine("<BATLLO>")
  87. tf.WriteLine("<TEXT>")
  88. tf.WriteLine("<![CDATA[" & Devolver & "]]>")
  89. tf.WriteLine("</TEXT>")
  90. tf.WriteLine("<IMAGEN URL='images/visita_info1.jpg'></IMAGEN>")
  91. tf.WriteLine("<IMAGEN URL='images/visita_info2.jpg'></IMAGEN>")
  92. tf.WriteLine("<IMAGEN URL='images/visita_info3.jpg'></IMAGEN>")
  93. tf.WriteLine("</BATLLO>")
  94. tf.Close
  95. Set fso = nothing
  96. Set tf = nothing
  97. Session.Abandon
  98. %>

A ver si encontrais algo raro. Yo seguire mirando y probando.

Gracias, un saludo