<% NomGroupe=Request.QueryString("groupe") NomAlbum=Request.QueryString("album") Set ConnectionMetal=Server.CreateObject("ADODB.Connection") ConnectionMetal.Open "metal" SQL="SELECT Albums.*, Groupes.Groupe, Groupes.Pays FROM Albums INNER JOIN Groupes ON Albums.CodeGroupe = Groupes.CodeGroupe WHERE (((Albums.CodeGroupe)="&NomGroupe&")) ORDER BY Albums.Date DESC;" Set Discographie=ConnectionMetal.Execute(SQL) SQL2="SELECT Groupes.Groupe, Albums.Date, Albums.Album, Albums.Style, Albums.Infos, Albums.NbVote, Albums.Total FROM Groupes INNER JOIN Albums ON Groupes.CodeGroupe = Albums.CodeGroupe WHERE (((Groupes.CodeGroupe)="&NomGroupe&") AND ((Albums.CodeAlbum)="&NomAlbum&"));" Set DiscographieSuite=ConnectionMetal.Execute(SQL2) SQL4="SELECT Links.Link FROM Links WHERE (((Links.Officiel)=True) AND ((Links.CodeGroupe)="&NomGroupe&"));" Set SiteOfficiel=ConnectionMetal.Execute(SQL4) SQL3="SELECT Links.Link FROM Links WHERE (((Links.Officiel)=False) AND ((Links.CodeGroupe)="&NomGroupe&"));" Set SiteNonOfficiel=ConnectionMetal.Execute(SQL3) SQL5="SELECT Songs.NumSong, Songs.Song, Songs.Duree FROM Songs WHERE (((Songs.CodeAlbum)="&NomAlbum&"));" Set SongsAlbum=ConnectionMetal.Execute(SQL5) SQL6="SELECT Songs.Lyric, Songs.Song, Songs.NumSong, Songs.Duree FROM Songs WHERE (((Songs.Lyric)<>'""') AND ((Songs.CodeAlbum)="&NomAlbum&"));" Set Paroles=ConnectionMetal.Execute(SQL6) SQL7="SELECT Membres.Membre, Membres.Instrument FROM Membres WHERE (((Membres.CodeAlbum)="&NomAlbum&"));" Set Musiciens=ConnectionMetal.Execute(SQL7) %> Discographie

Page d'accueilMon historiqueNotre biographieLes news du groupeSignez mon livre d'invités!Mes liens préférésLes nouveautés du siteContactez-moi!Brutal Bands Database

.gif" alt="<%=Discographie("Groupe")%>" title="<%=Discographie("Groupe")%>">

.jpg" title="<%=Discographie("Groupe")%>">

Discographie :

<%if Discographie.eof=-1 and Discographie.bof=-1 then%> <%Response.Write("

 

Aucun album trouvé.

 

")%> <%else%> <% do while not Discographie.eof%>  <%=Discographie("Date")%> - &album=<%=Discographie("CodeAlbum")%>"><%=Discographie("Album")%>
<%Discographie.movenext%> <%loop%> <%end if%>

 Style : <%=DiscographieSuite("Style")%>

Pays : <%Discographie.movefirst%><%=Discographie("Pays")%>

<%=DiscographieSuite("Date")%> - <%=DiscographieSuite("Album")%>  

  -  <%=DiscographieSuite("Album")%> (Inside)">  -  <%=DiscographieSuite("Album")%> (Front)">

  -  <%=DiscographieSuite("Album")%> (Back)">   -  <%=DiscographieSuite("Album")%> (Other)">

<%if DiscographieSuite("NbVote")=0 then%> <%Response.Write("Aucune note n'a encore été donée")%> <%else%> Note : <%=FormatNumber((DiscographieSuite("Total")/DiscographieSuite("NbVote")))%>/10 (<%=DiscographieSuite("NbVote")%> votes) <%end if%>

Donnez une note à cet album :  

Infos :

<%=DiscographieSuite("Infos")%>

Titres :

<%if SongsAlbum.eof=-1 and SongsAlbum.bof=-1 then%> <%Response.Write(" Aucun titre trouvé")%> <%else%>

    <% do while not SongsAlbum.eof%>

  1. <%=SongsAlbum("Song")%>  -  <%=SongsAlbum("Duree")%>

    2. <%Minu = mid(SongsAlbum("Duree"),1,2)%> <%Secon = mid(SongsAlbum("Duree"),4,2)%> <%NbSec = Minu * 60 + Secon%> <%TempsTot = TempsTot + NbSec%> <%SongsAlbum.movenext%> <%loop%> <%end if%>

<%TotMin = mid((TempsTot / 60),1,2)%> <%TotSec = (TempsTot Mod 60)%> <%if TempsTot > 3599 then%> <%TotMin = TotMin - 60%> <%if TotMin < 10 then%> <%TotMin = 0 & TotMin%> <%end if%> <%if TotSec < 10 then%> <%TotSec = 0 & TotSec%> <%end if%> <%Response.Write("Total : 1:" & TotMin & ":" & TotSec)%> <%else%> <%if TotMin < 10 then%> <%TotMin = 0 & TotMin%> <%end if%> <%if TotSec < 10 then%> <%TotSec = 0 & TotSec%> <%end if%> <%Response.Write("Total : " & TotMin & ":" & TotSec)%> <%end if%>

Membres :

<%if Musiciens.eof=-1 and Musiciens.bof=-1 then%> <%Response.Write(" Aucun membre trouvé")%> <%else%> <% do while not Musiciens.eof%> <%=Musiciens("Membre")%>  -  <%=Musiciens("Instrument")%>
<%Musiciens.movenext%> <%loop%> <%end if%>

Site Officiel :

<%if SiteOfficiel.eof=-1 and SiteOfficiel.bof=-1 then%> <%Response.Write("Non disponible")%> <%else%> " target="_blank"><%=SiteOfficiel("Link")%> <%end if%>

Site de Fans :

<%if SiteNonOfficiel.eof=-1 and SiteNonOfficiel.bof=-1 then%> <%Response.Write("Non disponible")%> <%else%> <% do while not SiteNonOfficiel.eof%> " target="_blank"><%=SiteNonOfficiel("Link")%>
<% SiteNonOfficiel.movenext%> <%Loop%> <%end if%>

Paroles :

<%if Paroles.eof=-1 and Paroles.bof=-1 then%> <%Response.Write(" Aucun titre trouvé")%> <%else%> <%Paroles.movefirst%> <% do while not Paroles.eof%>

<%=Paroles("NumSong")%>. <%=Paroles("Song")%> - <%=Paroles("Duree")%>

<%=Paroles("Lyric")%> <%Paroles.movenext%> <%loop%> <%end if%>

.|. Home .|. Historique .|. Bio .|. News .|. GuestBook .|. Links .|. Site Updates .|. Contact .|. BBD .|.

Créé par Sa|an|cO
 E-mail - Autres sites : Moi - Thalidomide

 

<% ConnectionMetal.Close Set ConnectionMetal = Nothing %>