come faccio a fare questa stringa?

[oliweb]

salve, ho il seguente codice che mi genera una riga xml con asp:

Do While Not oRS.EOF

sXml = sXml & "<page>"

If Len(oRS("url")) > 0 Then sXml = sXml & "<![CDATA[" & oRS("url") & "]]>"

sXml = sXml & "</page>"

oRS.MoveNext
Loop

però quando mi genera la riga nel file xml mi appare così:

- <page>
- <![CDATA[ public/page4.jpg ]]>
</page>

io vorrei che la riga dell'xml fosse così:

<page src="pages/01.jpg" />

in pratica deve ssere inserito tutto dopo page ed eliminato CDATA!
nel codice che ho scritto sopra dal quale genero il file xml, prende i dati da un db

come posso fare?

grazie

[mirkoagrati]

Ciao,
io proverei cosi:

Do While Not oRS.EOF

sXml = sXml & "<page"

If Len(oRS("url")) > 0 Then sXml = sXml & " src=\" & oRS("url") & "\""

sXml = sXml & " />"

oRS.MoveNext
Loop

Cmq,
L'ideale sarebbe utilizzare librerie per generare Nodi e attributi XML e non
uno string buffer.

Prova e fammi sapere
Ciao

[oliweb]

grazie, ho provato e mi da il seguente errore:

Tipo di errore:
Errore di compilazione di Microsoft VBScript (0x800A0409)
Costante String senza terminazione
/aspflashxml/cCreateRSSFeed.asp, line 222, column 70
If Len(oRS("url")) > 0 Then sXml = sXml & " src=\" & oRS("url") & "\""
---------------------------------------------------------------------^

come posso risolverlo?

grazie

[mirkoagrati]

Ohps, scusa
mi sono dimenticato gli apici.

Dunque:
If Len(oRS("url")) > 0 Then sXml = sXml & " src=\"" & oRS("url") & "\""

Ciao

[H5N1_Aviaria]

Cambia gli apici che racchiudono la parola url con ' al posto di ".

[oliweb]

se modifico la riga così :

If Len(oRS("url")) > 0 Then sXml = sXml & " src=\"" & oRS("url") & "\""

mi da il seguente errore

Tipo di errore:
Errore di compilazione di Microsoft VBScript (0x800A0401)
Prevista fine istruzione
/aspflashxml/cCreateRSSFeed.asp, line 225, column 59
If Len(oRS("url")) > 0 Then sXml = sXml & " src=\"" & oRS("url") & "\""
----------------------------------------------------------^

se invece racchiudo la parola url con ' al posto di "

mi da il seguente errore:

Tipo non corrispondente

dove sbaglio?

cmq grazie per l'aiuto!

[oliweb]

ho provato a modificare gli apici ma ho lo stesso problema!

come posso risolverlo?

[oliweb]

ho provato così aggiungendo gli apici che mi ha suggerito mirkoagrati

If Len(oRS("url")) > 0 Then sXml = sXml & " src=\"" & oRS('url') & "\""

però mi da il seguente errore:

Do While Not oRS.EOF

sXml = sXml & "<page"

If Len(oRS("url")) > 0 Then sXml = sXml & " src=\"" & oRS('url') & "\""


sXml = sXml & " />"

oRS.MoveNext
Loop

come posso risolverlo?

[mirkoagrati]

Ciao,
ma che errore ti restituisce?

[oliweb]

ops scusa ho sbagliato ad incollare

Err.Number = 13
Tipo non corrispondente