Xml con ASP

[Diplodus]

Buongiorno...
Devo scrivere due file xml popolati direttamente da un database.
Ora, mi ero cimentato nello scrivere gli rss e non ho riscontrato nessun problema.
Adesso però sono vincolato da una struttura ben specifica e non ci capisco nulla!!!

Questo è il codice che ho per la scrittura del file xml

<%@LANGUAGE="VBSCRIPT"%>
<% Response.ContentType="application/xml" %>
<?xml version="1.0" encoding="iso-8859-1"?>
<thumbnails>
<%
dim adoConnect
dim adoRecordset
Set adoConnect = Server.CreateObject("Adodb.Connection")
adoConnect.open "DRIVER={Microsoft Access Driver(*.mdb)};DBQ=" & Server.MapPath("db.mdb")
Set adoRecordset = adoConnect.Execute("SELECT * FROM gallery")
Do while not adoRecordset.EOF
response.write "<Nome>" + adoRecordset("Nome") + "</Nome>"
adoRecordset.MoveNext
Loop
Set adoRecordset = Nothing
adoConnect.Close
Set adoConnect = Nothing
%>
</thumbnails>

e la struttura è la seguente:

<?xml version="1.0" encoding="utf-8"?>
<thumbnails>
<thumbnail filename="1.jpg" url="http://www.gianlucagiacalone.it" target="_parent"
title="Titolo numero1"
description="descrizionne file" />
<thumbnail filename="1.jpg" url="http://www.gianlucagiacalone.it" target="_parent"
title="Titolo numero1"
description="descrizionne file" />
</thumbnails>

Non riesco a capire come poter realizzare una cosa del genere. Sapete come aiutarmi?
Ciao a tutti

[alexba64]

intanto il tuo db deve avere un campo per l'immagine, l'url, titolo e la descrizione.

Lo hai cosi va bene, se no fallo, poi:

<%@LANGUAGE="VBSCRIPT"%>
<% Response.ContentType="application/xml" %>
<%
dim adoConnect
dim adoRecordset
Set adoConnect = Server.CreateObject("Adodb.Connection")
adoConnect.open "DRIVER={Microsoft Access Driver(*.mdb)};DBQ=" & Server.MapPath("db.mdb")
Set adoRecordset = adoConnect.Execute("SELECT * FROM gallery") 
%>

<?xml version="1.0" encoding="iso-8859-1"?> 

<thumbnails>
<%
Do while not adoRecordset.EOF
%>
<thumbnail filename="<%=adoRecordset("Immagine")%>" url="<%=adoRecordset("_url")%>" target="_parent" 
title="<%=adoRecordset("Titolo")%>" description="<%=adoRecordset("Descrizione")%>" />
<%
adoRecordset.MoveNext
Loop
%>
</thumbnails> 

<%
Set adoRecordset = Nothing
adoConnect.Close
Set adoConnect = Nothing
%>

[Diplodus]

Grazie mille..
Mi restituisce quest'errore però..

Errore interpretazione XML: non well-formed
Indirizzo: http://www.gianlucagiacalone.it/gallery.xml
Linea numero 1, colonna 2:<% Response.ContentType="application/xml" %>
-^

Da cosa può dipendere?

[alexba64]

cambia

<?xml version="1.0" encoding="iso-8859-1"?> 

in 

<?xml version="1.0" encoding="UTF-8"?>

e spostalo sopra a:

<?xml version="1.0" encoding="UTF-8"?>

in questo modo:

<% Response.ContentType="application/xml" %>
<?xml version="1.0" encoding="UTF-8"?>

[alexba64]

aspetta, aspetta, guarda che la tua pagina deve avere .asp come estensione e non .xml

[Diplodus]

rinominata in asp..

Errore interpretazione XML: non well-formed
Indirizzo: http://www.gianlucagiacalone.it/gallery.asp
Linea numero 1, colonna 26: <font face="Arial" size=2>
-------------------------^

ma non ci sono records nel db con la formattazione.. uff sto uscendo pazzo a fare modifiche...

[Diplodus]

però aprendo con

<% Response.ContentType="application/xml" %>
<?xml version="1.0" encoding="UTF-8"?>

mi restituisce:

Errore interpretazione XML: la dichiarazione XML o testuale non è all'inizio di un'entità
Indirizzo: http://www.gianlucagiacalone.it/gallery.asp
Linea numero 2, colonna 1:<?xml version="1.0" encoding="UTF-8"?>
^

riposto di nuovo il codice:

<% Response.ContentType="application/xml" %>
<?xml version="1.0" encoding="UTF-8"?>
<%
dim adoConnect
dim adoRecordset
Set adoConnect = Server.CreateObject("Adodb.Connection")
adoConnect.open "DRIVER={Microsoft Access Driver(*.mdb)};DBQ=" & Server.MapPath("db.mdb")
Set adoRecordset = adoConnect.Execute("SELECT * FROM gallery")
%>

<?xml version="1.0" encoding="iso-8859-1"?>

<thumbnails>
<%
Do while not adoRecordset.EOF
%>
<thumbnail filename="<%=adoRecordset("Immagine")%>" url="<%=adoRecordset("_url")%>" target="_parent"
title="<%=adoRecordset("Titolo")%>" description="<%=adoRecordset("Descrizione")%>" />
<%
adoRecordset.MoveNext
Loop
%>
</thumbnails>

<%
Set adoRecordset = Nothing
adoConnect.Close
Set adoConnect = Nothing
%>

[alexba64]

ti ho detto di aprire la pagina cosi ?

Forse non mi sono spiegato bene, ti ho detto di spostarlo sopra a... in questo modo:

<%@LANGUAGE="VBSCRIPT"%>
<%
dim adoConnect
dim adoRecordset
Set adoConnect = Server.CreateObject("Adodb.Connection")
adoConnect.open "DRIVER={Microsoft Access Driver(*.mdb)};DBQ=" & Server.MapPath("db.mdb")
Set adoRecordset = adoConnect.Execute("SELECT * FROM gallery") 
%>

<% Response.ContentType="application/xml" %>
<?xml version="1.0" encoding="UTF-8"?>


<thumbnails>
<%
Do while not adoRecordset.EOF
%>
<thumbnail filename="<%=adoRecordset("Immagine")%>" url="<%=adoRecordset("_url")%>" target="_parent" 
title="<%=adoRecordset("Titolo")%>" description="<%=adoRecordset("Descrizione")%>" />
<%
adoRecordset.MoveNext
Loop
%>
</thumbnails> 

<%
Set adoRecordset = Nothing
adoConnect.Close
Set adoConnect = Nothing
%>

e <font face="Arial" size=2> da dove sbuca ?

[Diplodus]

spuntava fino a ieri sera.. stamattina non spuntava più ehehehe...
Cmq ho ricopiato il codice da te corretto. Ho impostato il percorso del database e il risultato è questo:

Microsoft OLE DB Provider for ODBC Drivers error '80004005'
[Microsoft][ODBC Driver Manager] Data source name not found and no default driver specified
/gallery.asp, line 6

[Diplodus]

Ho cambiato un pò il codice..
Guarda un pò: sembra funzionare ma non sono molto convinto.

<%
'Stringa di connessione al nostro Data Base di news
'da modificare in base al percorso del vostro Data Base
StrConnessione = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & _
server.MapPath("/mdb-database") & "\db.mdb"

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open StrConnessione

'Istruzione SQL che prende le news dal Data Base;
'da cambiare con il nome della vostra tabella ed i nomi dei campi
SQL = "SELECT * FROM gallery"

Set rs = Server.CreateObject("ADODB.RecordSet")
rs.CursorLocation = 3
rs.Open SQL, Conn, 1,1

%>

<?xml version="1.0" encoding="UTF-8"?>


<thumbnails>
<%
Do while not rs.EOF
%>
<thumbnail filename="<%=rs("filename")%>" url="<%=rs("url")%>" target="_parent"
title="<%=rs("title")%>" description="<%=rs("Descrizione")%>" />
<%
rs.MoveNext
Loop
%>
</thumbnails>

<%
Set rs = Nothing
rs.Close
Set rs = Nothing
%>