Error al imprimir variable

[Rossanalie]

Hola, que tal, tengo un problema para imprimir una variable que recojo de la base de datos. La linea con problemas esta en negrita quiero imprimir el valor del mes y el periodo en el archivo xml.


If rs.EOF = True And rs.BOF = True Then
Else
Do While rs.EOF = False
rs.MoveFirst
mes = rs.Fields("periodo_mes").Value
año = rs.Fields("periodo_año").Value
rif = rs.Fields("rif_contribuyente").Value
factura = rs.Fields("n_factura").Value
Control = rs.Fields("n_control").Value
monto = rs.Fields("monto_retencion").Value
porcentaje = rs.Fields("porcentaje").Value

'abrimos el archivo con FSO para escribir el documento xml
Set FSO = CreateObject("Scripting.FileSystemObject")
Set ofich = FSO.CreateTextFile(rutacompleta, True)

variable = "<?xml version =" & Chr(34) & "1.0" & Chr(34) & " encoding =" & Chr(34) & "utf-8" & Chr(34) & "?>"
ofich.writeline (variable)
ofich.writeline ("<RelacionRetencionesISRL RifAgente=" & Chr(34) & "J002938897" & Chr(34) & " Periodo=" & Chr(34) & & mes & & año & & Chr(34) & ">")
ofich.Close
Set ofich = Nothing
rs.MoveNext
Loop
rs = Nothing
End If

[David]

Por favor, no repitas temas, está en contra de las políticas del foro:
http://www.forosdelweb.com/f14/impri...riable-676287/

De todos modos, como te pregunté en tu otro tema, ¿por qué colocas & &?

[Rossanalie]

Disculpa hago un proyecto y deseo terminarlo cuanto antes.

la linea que da problemas es esta:

ofich.writeline ("<RelacionRetencionesISRL RifAgente=" & Chr(34) & "J002938897" & Chr(34) & " Periodo=" & Chr(34) & & mes & & año & & Chr(34) & ">")

esta es & Chr(34) & para imprimir comillas dobles
y esta & mes & para imprimir la variable mes
& año & para imprimir la variable año

[David]

Pero es que las estás duplicando, lo cual es incorrecto. Debería ser:

Código vb:

ofich.writeline ("<RelacionRetencionesISRL RifAgente=" & Chr(34) & "J002938897" & Chr(34) & " Periodo=" & Chr(34) & mes & año & Chr(34) & ">")