Inserire tag per ogni singolo record di un DataBase

[Mattia95]

nel db il campo "nome brano" era tutto insieme comunque ok nel campo play inserisco il nome di un solo file, ma se ho un database che deve essere riempito di canzoni come posso fare a mettere le altre?? La faccenda del "non me lo permette" era riferita a questo.

[Mattia95]

Cattura.JPG

[Vincent.Zeno]

... ok nel campo play inserisco il nome di un solo file,

ma se ho un database che deve essere riempito di canzoni come posso fare a mettere le altre?

era ora

inserendole una ad una, con relativi dati riguardo a titolo, autore, album, ecc...
quindi ogni record è dedicato ad una singola canzone

id	brano	album	artista	size	data	play
1	nomebrano1	titoloalbum1	nomeartista1	46465	14/06/2014	il_nome_del_file1.mp3
2	nomebrano2	titoloalbum2	nomeartista2	879879	14/06/2014	il_nome_del_file2.mp3

[Mattia95]

è dall'inizio che faccio così ma in ogni caso mi esce come l'immagine che ho inviato sopra, nonostante ci siano i riferimenti ad un solo file al click della canzone mi apre tutti i file audio presenti nella cartella come nella foto di prima

[rinaldi]

<% function EstraiBrani (db,tabella)
db="mdb-database/tuodatabase.mdb"
tabella = "T_file"

Dim Conn
Set Conn3=Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& server.MapPath(db)


Set rec = Server.CreateObject("ADODB.Recordset")
SQL="SELECT * FROM " & tabella

Set Rec=Conn.Execute(SQL)

while not rec.EOF

response.write ("<td>"& rec("file_audio")&"</td>")

rec.movenext
Wend
rec.close
set rec = nothing
set conn = nothing

end function

%>




<table>
<tr>
<% call EstraiBrani(db,tabella) %>
</tr>
</table>

[Vincent.Zeno]

era proprio quello che stavo per scrivere: mancava la query, veniva aperta tutta la tabella "brani"

[Mattia95]

Grazie mille è praticamente fatta c'è solo un ultimo problema, almeno spero, perchè ora inserito tutto il codice non funziona l'embed o qualsiasi altro tag, dove lo dovrei inserire di preciso??

[rinaldi]

Modifica la funzione

<%  function  EstraiBrani (db,tabella)
 db="mdb-database/tuodatabase.mdb"
 tabella = "T_file"
  
  Dim Conn
Set Conn3=Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& server.MapPath(db)
 

 Set rec = Server.CreateObject("ADODB.Recordset")
 SQL="SELECT  * FROM  "  & tabella

 Set Rec=Conn.Execute(SQL)

 while  not  rec.EOF  
 
 response.write ("<td> <embed src='"& rec("file_audio")&"'> </td>")
 
 rec.movenext
Wend
rec.close 
set rec = nothing
 set conn = nothing

  end function  
  
%>

[Mattia95]

sono al punto di prima me le apre sempre tutte e nemmeno il ciclo funziona mi fa vedere solo l'ultimo record caricato

[Vincent.Zeno]

eccertato che c'era un errore iniziale nell'interrogazione... fai vedere cosa hai scritto