asp lato server

[cla2002]

Provo a spiegarmi meglio

devo fare una traformazione di un xml attraverso xsl tutto questo lato server .

il mio problema e' che l'xml non e' un file xml ma un file asp
che a sua volta prende i dati da un db.

quando provo a leggere il file asp lato server con questa funzione
set xml = Server.CreateObject("Microsoft.XMLDOM")
xml.async = false
xml.load Server.MapPath("file.asp")

il server vede il file asp come un file qualunque e non genera xml !!!!!!!

Spero di essere stato piu' chiaro , se qualcuno puo' aiutarmi

Grazie

n.b.
vorrei evitare se possibile di includere il file asp che genera xml nella pagine che fa la trasformazione


CLa

[Mutato]

:quipy:

1) Prova a salvare il file .xml e vedi se funziona.
2) Se funziona, allora posta il file .asp che vediamo come e' generato.

[cla2002]

<%
Dim db_Listino(100,9)
Dim n_Listino
Dim xmlDoc
Dim xmlroot

response.Write crea_XML

function crea_XML ()

set cnn = Server.CreateObject("ADODB.Connection")
Set oRec = Server.CreateObject("ADODB.Recordset")

cnn.Open "LPF"

' Visualizza Listino
strSQL = "SELECT * FROM indice;"
oRec.Open strSQL,cnn
I=0
Do while not oRec.EOF
db_Listino(I,0) = oRec("Padre")
db_Listino(I,1) = oRec("Figlio")
db_Listino(I,2) = oRec("Sottocomponente")
db_Listino(I,3) = oRec("Materiale")
db_Listino(I,4) = oRec("Link")
db_Listino(I,5) = oRec("Emissione")
db_Listino(I,6) = oRec("Fornitore")
db_Listino(I,7) = oRec("Validita")
db_Listino(I,8) = oRec("X_TipoLink")
db_Listino(I,9) = oRec("ID")
oRec.MoveNext
I=I+1
loop
n_Listino= I
oRec.Close

cnn.Close
Set oRec = Nothing
set cnn = nothing



Set xmlDoc=CreateObject("Msxml2.FreeThreadedDOMDocumen t")
Set xmlroot=xmlDoc.createElement("Page")
xmlroot.setattribute "Titolo" , "Listino Prezzi "
xmlDoc.appendchild xmlroot
Set firstnode = xmldoc.documentElement

set snewnode = xmldoc.createElement("Listino")
set snewnode = firstnode.appendChild(snewnode)

'Colonna 1

'LogOn
set column1 = xmldoc.createElement("column1")
set c1 = xmldoc.createElement("LogOn")
c1.setattribute "Titolo" ,"Utente online"
c1.setattribute "Nome" , Session("Name")
c1.setattribute "Tipo" , Session("Descrizione")
c1.setattribute "Session" , Session.Timeout
c1.setattribute "Style" ,"display:block;height:120px;"
set c1 = column1.appendChild(c1)
'
set c1 = xmldoc.createElement("c1")
c1.setattribute "Titolo" ,"Cataloghi"
c1.setattribute "Descrizione" , "In questa sezione si possono consultare alcuni cataloghi di fornitori ABB riguardanti gli articoli disponibili, corredati da immagini ed informazioni tecniche."
c1.setattribute "Style" ,"display:none;"
set button = xmldoc.createElement("button")
button.setattribute "Testo" ,"Apri"
button.setattribute "onClick" ,"location.href='content'"
button.setattribute "Style" ,"text-align:right;"
set button = c1.appendChild(button)
set c1 = column1.appendChild(c1)
'
set c1 = xmldoc.createElement("c1")
c1.setattribute "Titolo" ,"Archiviazione"
c1.setattribute "Descrizione" , "Indicazioni sulla procedura da utilizzarsi nell'organizzazione degli Accordi/listini e nel loro periodico aggiornamento. Per informazioni su Accordi/listini con data di validita' scaduta, rivolgersi all'Ufficio Acquisti."
set button = xmldoc.createElement("button")
button.setattribute "Testo" ,"Apri"
button.setattribute "onClick" ,"location.href='content/archiviazione.htm'"
button.setattribute "Style" ,"text-align:right;"
set button = c1.appendChild(button)
set c1 = column1.appendChild(c1)
'
set column1 = firstnode.appendChild(column1)

' Crea XML
call rec (snewnode,"TT")

crea_XML = xmldoc.xml

set snewnode = nothing
set firstnode = nothing
set xmlroot = nothing
set xmlDoc = nothing

end function

sub rec(curnode,padre)
dim counter
counter = 0
while counter <= n_Listino -1
if db_Listino(counter,0) = padre then
if padre = "TT" then
set newnode = xmldoc.createElement("Item")
newnode.setattribute "Padre" , db_Listino(counter, 0) & " "
newnode.setattribute "Figlio" , db_Listino(counter,1) & " "
newnode.setattribute "Sottocomponente" , db_Listino(counter, 2) & " "
newnode.setattribute "Materiale" , db_Listino(counter, 3) & " "
newnode.setattribute "Descrizione" , db_Listino(counter, 4) & " "
set newnode = curnode.appendChild(newnode)
else
set newnode = xmldoc.createElement("SubItem")
newnode.setattribute "ID" , db_Listino(counter, 9) & " "
newnode.setattribute "Padre" , db_Listino(counter, 0) & " "
newnode.setattribute "Figlio" , db_Listino(counter,1) & " "
newnode.setattribute "Sottocomponente" , db_Listino(counter, 2) & " "
newnode.setattribute "Materiale" , db_Listino(counter, 3) & " "
newnode.setattribute "Emissione" , data(db_Listino(counter, 5)) & " "
newnode.setattribute "Link" , db_Listino(counter, 4) & " "
newnode.setattribute "Fornitore" , db_Listino(counter,6) & " "
newnode.setattribute "Validita" , data(db_Listino(counter, 7)) & " "
newnode.setattribute "X_TipoLink" , db_Listino(counter, 8) & " "
set newnode = curnode.appendChild(newnode)
end if
call rec(newnode, db_Listino(counter, 1))
end if
counter = counter + 1
wend
end sub

Function Data(vData)
Dim aaaa,mm,gg
aaaa = left(vData,4)
mm = mid(vData,5,2)
gg = right(vData,2)
Data = gg & "/" & mm & "/" & aaaa
end function


%>

[Mutato]

Originariamente inviato da cla2002
Provo a spiegarmi meglio

devo fare una traformazione di un xml attraverso xsl tutto questo lato server .

il mio problema e' che l'xml non e' un file xml ma un file asp
che a sua volta prende i dati da un db.

quando provo a leggere il file asp lato server con questa funzione
set xml = Server.CreateObject("Microsoft.XMLDOM")
xml.async = false
xml.load Server.MapPath("file.asp")

il server vede il file asp come un file qualunque e non genera xml !!!!!!!

Spero di essere stato piu' chiaro , se qualcuno puo' aiutarmi

Grazie

n.b.
vorrei evitare se possibile di includere il file asp che genera xml nella pagine che fa la trasformazione


CLa

Guarda che tu crei un file che si chiama xmldoc.xml

prova a sostituire

xml.load Server.MapPath("file.asp")

con

xml.load Server.MapPath("xmldoc.xml")

[cla2002]

ma il xmldoc.xml e' un oggetto non un file fisico