Associazione italiana per lo studio e l'insegnamento del diritto della musica
<% = formatdatetime(now, 1)%>
Note legali
<%
If session("clearance") < 1 Then
%>
<%else%>
<%end if%>
LE NEWS DEL GIORNO
-
<%
query = "SELECT * FROM nleg_news WHERE nleg_news.Data<=Now() AND nleg_news.assolo = 0 AND nleg_news.primopiano = 1"
if IDNews <> 0 then
query = query & " AND IDNews = " & IDNews
end if
query = query & " ORDER BY Data DESC LIMIT 5"
'response.write query
Set conn = CreateObject( "ADODB.Connection")
conn.Open Connstring
Set rs = conn.Execute(query)
Do While NOT rs.EOF
if IDNews = 0 then
%>
- "><% = rs("Titolo") %> <% end if rs.MoveNext Loop rs.Close set rs = nothing conn.Close set conn = nothing %>
ARTICOLI
<%
query = "SELECT * FROM nleg_news WHERE nleg_news.Data<=Now() AND nleg_news.assolo = 1"
if IDNews <> 0 then
query = query & " AND IDNews = " & IDNews
end if
query = query & " ORDER BY Data DESC LIMIT 1"
'response.write query
Set conn = CreateObject( "ADODB.Connection")
conn.Open Connstring
Set rs = conn.Execute(query)
Do While NOT rs.EOF
if IDNews = 0 then
%>
<%
foto = rs("foto")
if foto <> "" then
linkfoto = rs("linkfoto")
if linkfoto <> "" then
%>
<%end if%>
<%if linkfoto <> "" then%><%end if%>
<%end if%>
<% = toItalianDate( rs("data")) %>
<% sopratitolo = rs("SopraTitolo") if sopratitolo <> "" then %> <% = sopratitolo %>
<%end if%> "><% = rs("Titolo") %>
<% = left(rs("testo"),250)%>... <% end if rs.MoveNext Loop rs.Close set rs = nothing conn.Close set conn = nothing %>
<% sopratitolo = rs("SopraTitolo") if sopratitolo <> "" then %> <% = sopratitolo %>
<%end if%> "><% = rs("Titolo") %>
<% = left(rs("testo"),250)%>... <% end if rs.MoveNext Loop rs.Close set rs = nothing conn.Close set conn = nothing %>
PROSSIMO EVENTO
<%
query = "SELECT * FROM nleg_eventi WHERE nleg_eventi.Data>=Curdate()"
if IDEvento <> 0 then
query = query & " AND IDEvento = " & IDEvento
end if
query = query & " ORDER BY Data ASC LIMIT 1"
'response.write query
Set conn = CreateObject( "ADODB.Connection")
conn.Open Connstring
Set rs = conn.Execute(query)
Do While NOT rs.EOF
if IDEvento = 0 then
%>
<%
foto = rs("immagine")
if foto <> "" then
linkfoto = rs("linkimmagine")
if linkfoto <> "" then
%>
<%end if%><%if linkfoto <> "" then%><%end if%>
<%end if%>
<% = toItalianDate( rs("data")) %>
"><% = rs("Titolo") %>
<% = left(rs("descrizione"),280)%>... <% end if rs.MoveNext Loop rs.Close set rs = nothing conn.Close set conn = nothing %>
"><% = rs("Titolo") %>
<% = left(rs("descrizione"),280)%>... <% end if rs.MoveNext Loop rs.Close set rs = nothing conn.Close set conn = nothing %>
GLI ASSOCIATI DICONO...
<% query = "SELECT * FROM nleg_dicono WHERE Data<=Now()" if iddicono <> 0 then query = query & " AND iddicono = " & iddicono end if query = query & " ORDER BY Data DESC LIMIT 3" 'response.write query Set conn = CreateObject( "ADODB.Connection") conn.Open Connstring Set rs = conn.Execute(query) I=1 Do While NOT rs.EOF if I>2 then exit do end if if iddicono = 0 then %>
<%
foto1 = rs("foto1")
if foto1 <> "" then
%>
">
<%end if%>
<% = toItalianDate( rs("data")) %>
"><% = rs("Titolo") %>
<% = rs("chi")%>
"<% = rs("testobreve")%>"
<%
end if
rs.MoveNext
I=I+1
Loop
rs.Close
set rs = nothing
conn.Close
set conn = nothing
%>
"><% = rs("Titolo") %>
<% = rs("chi")%>
"<% = rs("testobreve")%>"
CODICE DEONTOLOGICO
I NOSTRI ASSOCIATI
<%
Set conn = CreateObject( "ADODB.Connection")
conn.Open Connstring
strSQL = "SELECT COUNT(*) AS CNT FROM nleg_dicono"
set objPagingRS = conn.execute(strSQL)
recordCount = objPagingRS("CNT")
objPagingRS.Close()
Set objPagingRS=Nothing
conn.Close()
set conn = nothing
'path to the database
sqlDic = "SELECT * FROM nleg_dicono"
Set rsDic = Server.CreateObject("ADODB.Recordset")
rsDic.Open sqlDic, connString, 3, , adCmdText
Randomize Timer
'IntRnd = Int(RND * 28)
rsDic.Move = Int(RND * CInt(RecordCount))
%>
DIVENTA SOCIO
GUARDA LO SPOT
TRASCRIZIONI E DEPOSITI
IL NOSTRO FORUM
LIBRI
<%
Set conn = CreateObject( "ADODB.Connection")
conn.Open Connstring
strSQL = "SELECT COUNT(*) AS CNT FROM nleg_libri"
set objPagingRS = conn.execute(strSQL)
recordCount = objPagingRS("CNT")
objPagingRS.Close()
Set objPagingRS=Nothing
conn.Close()
set conn = nothing
'path to the database
sqlDic = "SELECT * FROM nleg_libri"
Set rsDic = Server.CreateObject("ADODB.Recordset")
rsDic.Open sqlDic, connString, 3, , adCmdText
Randomize Timer
'IntRnd = Int(RND * 28)
rsDic.Move = Int(RND * CInt(RecordCount))
%>
<% Dim sqlPics, rsPics, IntRnd Set conn = CreateObject( "ADODB.Connection") conn.Open Connstring strSQL = "SELECT COUNT(*) AS CNT FROM nleg_banner" set objPagingRS = conn.execute(strSQL) recordCount = objPagingRS("CNT") objPagingRS.Close() Set objPagingRS=Nothing conn.Close() set conn = nothing sqlPics = "SELECT * FROM nleg_banner" 'WHERE nleg_banner.rotate = '1' Set rsPics = Server.CreateObject("ADODB.Recordset") rsPics.Open sqlPics, connString, , 3 Randomize Timer rsPics.Move = Int(RND * CInt(RecordCount)) Image = rsPics("Image") swf = rsPics("swf") if swf = "1" then %> " target="_blank"> <% else %> " target="_blank">