<%@ LANGUAGE=vbscript %> <% response.CacheControl = "Public" %> <% response.Expires = 1 'response.write now %> NETGAMES :: Cover Recensioni DISCHI <% private arr() Set connection = Server.CreateObject("ADODB.Connection") Set connetti = Server.CreateObject("ADODB.Connection") Set disc = Server.CreateObject("ADODB.RecordSet") Set ten = Server.CreateObject("ADODB.RecordSet") set rec = Server.CreateObject("ADODB.RecordSet") set pol = Server.CreateObject("ADODB.RecordSet") ' connection.open " DSN=db1" connetti.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("poolvar.mdb") sel = "select numeroitem,titolo from setdb where idd = 1" pol.open sel,connetti,3 vero = Cbool(1) falso = Cbool(0) numero = pol("numeroitem") vtitolo = pol("titolo") pol.close sel = "select * from data " pol.open sel,connetti,3 vmatr = numero - 1 redim arr(vmatr) dim cont cont = 0 for i = 1 to numero 'stringa="txnum" & i arr(cont) = pol("testoitem") pol.movenext cont = cont + 1 next pol.close connetti.close connection.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("news97.mdb") dim sel '''''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''''''''''''''' sql ="select * from dischi WHERE posizione = 1 or posizione = 2 or posizione = 3 order by posizione asc " srec ="select * from dischi order by datarec DESC" disc.open sql,connection,3 %>
<% Set bun = Server.CreateObject("ADODB.RecordSet") 'connection.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("news97.mdb") ' pos 1 ... 4 sel ="select * from banner where pos = 1" bun.open sel,connection,3 if (bun("isimmagine") = vero) then %> ">" width="<%=bun("larghezza")%>" height="<%=bun("altezza")%>" border="0"> <% else %> " height="<%=bun("altezza")%>"> "> " quality=high pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash" width="<%=bun("larghezza")%>" height="<%=bun("altezza")%>"> <% end if bun.close %>

<% Set bun = Server.CreateObject("ADODB.RecordSet") ' pos 1 ... 4 sel ="select * from banner where pos = 2" bun.open sel,connection,3 if (bun("isimmagine") = vero) then %> ">" width="<%=bun("larghezza")%>" height="<%=bun("altezza")%>" border="0"> <% else %> " height="<%=bun("altezza")%>"> "> " quality=high pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash" width="<%=bun("larghezza")%>" height="<%=bun("altezza")%>"> <% end if bun.close %>

 




<%= vtitolo%>
<% cont = 0 for i = 1 to numero %>
" width="40" height="40">
<%= arr(cont)%>
<% cont = cont + 1 next %>

 


 


E' uscito il 14 settembre il nuovo album di Zucchero "Shake" anticipato dai singoli "Baila" e "Ahum".
Per realizzate questo disco, Adelmo Zucchero Fornaciari, classe 1955, ha trascorso sei mesi tra Sausalito, California, e Bath, negli studi Real World
di Peter Gabriel a nord di Londra. Un lavoro che contiene anche brani scritti con Pasquale Panella e Francesco De Gregori.
"Con 'Skake' ho sentito il bisogno di
...



<%=disc("artista")%>
<%=disc("titolodisco")%>


<% disc.movenext %> <%=disc("artista")%>
<%=disc("titolodisco")%>

<%=disc("artista")%>
<%=disc("titolodisco")%>

<% ' tens recensioni rec.open srec,connection,3 'rec.movenext 'rec.movenext 'rec.movenext counter = 0 do until rec.EOF OR (counter > 9) if rec("posizione") = 0 then num= "IMMAGINI/pall0" & counter & ".gif" %><%links="pag_int_disc.asp?doc=" & rec("ID")%> <%response.write(rec("artista"))%>
<% counter = counter + 1 end if rec.movenext loop rec.close %>

<% sql = "select * from archivio WHERE categoria='musica' order by data DESC" ten.open sql,connection,3 'ten.movenext 'ten.movenext 'ten.movenext 'ten.movenext counter = 0 do until ten.EOF OR (counter > 9) num= "IMMAGINI/pall0" & counter & ".gif" %><%links="pag_int_news.asp?doc=" & ten("ID")%> <%response.write(ten("titolonews"))%>
<% ten.movenext counter = counter + 1 loop ten.close %>

 



<% connection.close %>