Home Azienda Attivitą Vendemmiatrice News Dove siamo Contatti
<% dim rs set db = server.createobject("ADODB.Connection") db.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/mdb-database/gestionedb.mdb") %>
<% dim id_news dim sqlnews dim rsnews id_news=Request.QueryString("Id") if id_news <> "" Then sqlnews = "SELECT * FROM attivita WHERE ID=" & id_news & " ORDER BY DateStart DESC " set rsnews = server.createobject("ADODB.Recordset") rsnews.open sqlnews, db %>

<%=Replace(rsnews("Articolo"), "''", "'")%>

 
<%=Replace(rsnews("Descrizione_ita"), "''", "'")%>
  

<% If Len(rsnews("File1")) > 0 Then Dim estensione2 estensione2 = Mid(rsnews("File1"), InStrRev(rsnews("File1"), ".")) If estensione2 <> ".jpg" and estensione2 <> ".JPG" and estensione2 <> ".gif" and estensione2 <> ".GIF" and estensione2 <> ".bmp" and estensione2 <> ".BMP" Then%> " rel="lightbox"> <%else%> " title="" rel="lightbox">" hspace="2" vspace="2" border="0" align="absmiddle" class="foto3"> <%End If%> <%End If%> <% If Len(rsnews("File2")) > 0 Then estensione2 = Mid(rsnews("File2"), InStrRev(rsnews("File2"), ".")) If estensione2 <> ".jpg" and estensione2 <> ".JPG" and estensione2 <> ".gif" and estensione2 <> ".GIF" and estensione2 <> ".bmp" and estensione2 <> ".BMP" Then%> " rel="lightbox"> <%else%> " title="" rel="lightbox">" hspace="2" vspace="2" border="0" align="absmiddle" class="foto3"> <%End If%> <%End If%>
<% If Len(rsnews("File3")) > 0 Then estensione2 = Mid(rsnews("File3"), InStrRev(rsnews("File3"), ".")) If estensione2 <> ".jpg" and estensione2 <> ".JPG" and estensione2 <> ".gif" and estensione2 <> ".GIF" and estensione2 <> ".bmp" and estensione2 <> ".BMP" Then%> " rel="lightbox"> <%else%> " title="" rel="lightbox">" hspace="2" vspace="2" border="0" align="absmiddle" class="foto3"> <%End If%> <%End If%> <% If Len(rsnews("File4")) > 0 Then estensione2 = Mid(rsnews("File4"), InStrRev(rsnews("File4"), ".")) If estensione2 <> ".jpg" and estensione2 <> ".JPG" and estensione2 <> ".gif" and estensione2 <> ".GIF" and estensione2 <> ".bmp" and estensione2 <> ".BMP" Then%> " rel="lightbox"> <%else%> " title=""rel="lightbox">" hspace="2" vspace="2" border="0" align="absmiddle" class="foto3"> <%End If%> <%End If%>

 
 
<%rsnews.close%>
<%end if%> <% dim sql dim page dim iPageSize dim iPageCurrent dim iPageCount dim i dim j dim n ' !!!!!!!!!!!!!serve assolutamente per controllare le date!!!!!!!!!!!!!!!!!!! Session.lcid = 2057 ' !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! page = request("page") iPageSize = 15 if page = "" then iPageCurrent = 1 else iPageCurrent = CInt(page) end if sql = "SELECT * FROM attivita ORDER BY id Asc" 'response.write sql & "" set rs = server.createobject("ADODB.Recordset") rs.pagesize = iPageSize rs.cachesize = iPageSize rs.open sql, db, adOpenStatic, adLockReadOnly, adCmdText iPageCount = rs.PageCount if iPageCurrent < 1 then iPageCurrent = 1 if iPageCurrent > iPageCount then iPageCurrent = iPageCount %> <% if iPageCount = 0 then%>
Al momento non ci sono news inserite.
 
<%else%><% Do while not rs.EOF i = i + 1 rs.MoveNext loop rs.Movefirst rs.AbsolutePage = iPageCurrent page = iPageCurrent %>
<% j = 1 id = request("id") if id = "" then id = rs("id") end if Do while not rs.EOF %> <% j = j + 1 rs.MoveNext loop %>
class="linea"<%else%>class="linea2"<%end if%> >

&page=<%=page%>"><%=Replace(rs("articolo"), "''", "'")%>

 
<% end if %> <% rs.close set rs= nothing set db = nothing %>