Inserire tag per ogni singolo record di un DataBase

**rinaldi** · 15-06-2014, 19:07

Posta la pagina

**Mattia95** · 16-06-2014, 17:29

Le modifiche che ho fatto sono così perchè ho dovuto adattare il codice a Microsoft Access 2007 in più ho provato a mettere l'embed direttamente nel record nome brano ma la situazione non cambia:

<%@language="VBscript"%>
<%Option Explicit%>
<html>
<head> <title>Elenco per brano</title></head>
<body>
<%
dim connbrani, rsbrani
dim db, tabella
dim SQL
function EstraiBrani (db, tabella)

db="brani.accdb"
tabella="brani"
set connbrani=Server.createobject("ADODB.connection")
set rsbrani=Server.createobject("ADODB.recordset")

connbrani.open"Provider=Microsoft.ACE.OLEDB.12.0;D ata Source="& server.mappath("brani.accdb")

SQL="SELECT * FROM " & tabella

set rsbrani=connbrani.execute(SQL)

response.write ("<td>"& rsbrani("Id") & "</td>")
response.write ("<td><embed src='../canzoni'"& rsbrani("Nome Brano") & "></td>")
response.write ("<td>"& rsbrani("Artista") & "</td>")
response.write ("<td>"& rsbrani("Album") & "</td>")

while not rsbrani.eof

rsbrani.movenext
Wend
rsbrani.close
set rsbrani = nothing
set connbrani = nothing

end function

%>
<table border=1>
<tr>

<td> Id </td>
<td> Nome Brano </td>
<td> Artista </td>
<td> Album </td>
<td> Play </td>
</tr>

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

</body>
</html>

**rinaldi** · 16-06-2014, 19:37

Per forza ti ho corretto la funzione

codice:

<%@language="VBscript"%>
<%Option Explicit%>
<html>
<head> <title>Elenco per brano</title></head>
<body>
<%
dim connbrani, rsbrani
dim db, tabella
dim SQL
function EstraiBrani (db, tabella)


db="brani.accdb"
tabella="brani" 
set connbrani=Server.createobject("ADODB.connection")
set rsbrani=Server.createobject("ADODB.recordset")


connbrani.open"Provider=Microsoft.ACE.OLEDB.12.0;D  ata Source="& server.mappath("brani.accdb") 


SQL="SELECT * FROM " & tabella


set rsbrani=connbrani.execute(SQL)
'''''''''''''''' errore
while not rsbrani.eof 

'''''''''' 
response.write ("<td>"& rsbrani("Id") & "</td>")
response.write ("<td><embed src='../canzoni'"& rsbrani("Nome Brano") & "></td>")
response.write ("<td>"& rsbrani("Artista") & "</td>")
response.write ("<td>"& rsbrani("Album") & "</td>")

''''''''''''''''''''''''''''''''''


rsbrani.movenext
Wend
rsbrani.close 
set rsbrani = nothing
set connbrani = nothing


end function


%>
<table border=1>
<tr>


<td> Id </td>
<td> Nome Brano </td>
<td> Artista </td>
<td> Album </td>
<td> Play </td>
</tr>




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




</body>
</html>

**Mattia95** · 17-06-2014, 13:52

Cattura.JPG questo è il risultato

**Mattia95** · 17-06-2014, 14:15

e questo il codice risistemato ho provato a cambiare il tag embed ma il problema non deriva da quello:

<%@language="VBscript"%>
<%Option Explicit%>
<html>
<head> <title>Elenco per brano</title></head>
<body>
<%
dim connbrani, rsbrani
dim db, tabella
dim SQL
function EstraiBrani (db, tabella)

db="brani.accdb"
tabella="brani"
set connbrani=Server.createobject("ADODB.connection")
set rsbrani=Server.createobject("ADODB.recordset")

connbrani.open"Provider=Microsoft.ACE.OLEDB.12.0;D ata Source="& server.mappath("brani.accdb")

SQL="SELECT * FROM " & tabella

set rsbrani=connbrani.execute(SQL)

while not rsbrani.eof

response.write ("<td>"& rsbrani("Id") & "</td>")
response.write ("<td><object type='audio/mpeg' data='../canzoni/" & rsbrani("Nome Brano") & "><param name='src' </param></object></td>")
response.write ("<td>"& rsbrani("Artista") & "</td>")
response.write ("<td>"& rsbrani("Album") & "</td><br>")

rsbrani.movenext
Wend
rsbrani.close
set rsbrani = nothing
set connbrani = nothing

end function

%>
<table border=1>
<tr>

<td> Id </td>
<td> Nome Brano </td>
<td> Artista </td>
<td> Album </td>
</tr>

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

</body>
</html>

**rinaldi** · 17-06-2014, 20:41

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

i tag tr li vedi mettere nella funzione

codice:

<tr></tr>

Rifletti bene cerca di capire l'errore da sola

**rinaldi** · 17-06-2014, 23:00

Prova questo codice

codice:

 <%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!DOCTYPE HTML>
 
 
<html>
<head> <title>Elenco per brano</title></head>
<body>
<%
dim connbrani, rsbrani
dim db, tabella
dim SQL
function EstraiBrani (db, tabella)


db="brani.accdb"
tabella="brani"
set connbrani=Server.createobject("ADODB.connection")
set rsbrani=Server.createobject("ADODB.recordset")


connbrani.open"Provider=Microsoft.ACE.OLEDB.12.0;D ata Source="& server.mappath("brani.accdb")


SQL="SELECT * FROM " & tabella


set rsbrani=connbrani.execute(SQL)


while not rsbrani.eof %>


 <tr>
 <td><%=rsbrani("Id")%></td>  
 <td>
 
  <% brano = ucase(rsbrani("Nome Brano"))  
  
    brano =  replace(brano,".mp3","")     %> 
 <audio controls>
 
  <source src="<%=brano%>.ogg" type="audio/ogg">
  
  <source src="<%=brano%>.mp3" type="audio/mpeg">
Non supporta tag audio html5
</audio></td> 

 <td><%=rsbrani("Artista")%></td> 
 
  <td><%= rsbrani("Album") %></td></tr> 


<%
rsbrani.movenext
Wend
rsbrani.close
set rsbrani = nothing
set connbrani = nothing


end function


%>
<table border=1>
<tr>


<td> Id </td>
<td> Nome Brano </td>
<td> Artista </td>
<td> Album </td>
</tr>




 
<%call EstraiBrani(db,tabella) %>
 




</body>
</html>

**Mattia95** · 18-06-2014, 19:07

Grazie mille erano proprio ucase e replace che servivano

comunque per quanto riguarda la correzione degli errori ho controllato e ricontrollato da solo ma avendo poco tempo a disposizione e nessun libro da consultare ho fatto un po' fatica. Comunque grazie ancora ora posso completarlo

**rinaldi** · 18-06-2014, 19:24

minimo ti devi registrare nel mio sito www.apricenacerca.it

**Mattia95** · 19-06-2014, 18:46

Fatto e grazie ancora

Discussione: Inserire tag per ogni singolo record di un DataBase

Strumenti discussione

Ricerca discussione

Visualizza

Permessi di invio