Oggetto Excell

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>

<%
Response.Expires = 0
Response.ExpiresAbsolute = Now() - 1
Response.AddHeader "pragma", "no-cache"
Response.AddHeader "cache-control", "private, no-cache, no-store, must-revalidate"
%>

<%
if  Session("Autenticato") <> "OK" then
   Response.Redirect("Index.html")
end if    
%>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<link rel="stylesheet" href="w3.css">

 <title>Menu Interrogazione</title> 
<LINK REL="shortcut icon" HREF="immagini/icona.jpg" >
<style type="text/css">
.Bold {
	font-weight: bold;
	font-size: 16px;
}

#bottom-banner{
position:fixed;
bottom:0px;
height:23px;
width:100%;
background: #F60;
z-index:999999;
	font-weight: bold;
	font-size: 14px;
	font-size: 18px;
	alignment-adjust:central;
}

table {
    border-collapse: collapse;
    width: 50%;
}

th {
    text-align: center;
}

</style>

</head>
<body>

<td>
 <CENTER>
  <HR>
  <H2>Associazione Orti Urbani Tre Fontane </H2>
  <HR> </CENTER>
</td>
</tr>
</table>

<% 
 Dim sc, cn, rs,rs1
     sc = "driver={Microsoft Access Driver (*.mdb)};dbq="
    Set cn = Server.CreateObject("ADODB.Connection")
    cn.Open sc & Server.MapPath("/mdb-database/DBortitrefontane.mdb")

Set rs = Server.CreateObject("ADODB.Recordset")
        rs.CursorLocation = 3  'adUseClient
    rs.CursorType = 1 ' adOpenKeyset
    rs.LockType = 3 'adLockOptimistic

Set rs1 = Server.CreateObject("ADODB.Recordset")
        rs1.CursorLocation = 3  'adUseClient
    rs1.CursorType = 1 ' adOpenKeyset
    rs1.LockType = 3 'adLockOptimistic

'************* Response.Write(Server.MapPath("mdb-database/ConcaDoro.mdb"))  
'**************
%>
 
 <!--  <h2 align="center"> Lista Associati Pagamenti assenti<br />
       
   <center>
   
  <table  border="1" align="center" width="70%">
  <tr><td>

-->

<table width="90%" border="1" class="w3-table w3-striped w3-bordered w3-border w3-hoverable" align="center" >
   
   
 
  
  
  
  <%
  
	
dim Stringa
dim stringa1

dim iAnnoRicerca
iAnnoRicerca = request.form("ianno")

if  iAnnoRicerca  = "" then 
iAnnoRicerca = year(date())
end if

stringa1 =  "SELECT TabellaQuote.Anno, TabellaQuote.QuotaAssociativa, TabellaQuote.QuotaOrto " & _
            " FROM TabellaQuote WHERE TabellaQuote.Anno= " & iannoRicerca

<h2 align="center"> Visualizzazione Pagamenti Mancanti Anno <span class="Bold"><%=iAnnoRicerca%></span> <br /><br />    
    
    
		 <align="left"></align>

<tr>
            
		    <td ><span class="Bold" >Numero Socio</span></td>
            <td><span class="Bold">Cognome Nome</span></td>
            <td><span class="Bold">Data Cessazione</span></td>
            <td><span class="Bold">Numero Orto</span></td>
            <td><span class="Bold">Quota Orto</span></td>
		    <td><span class="Bold">Descrizione Stato</span></td>
		   
		  </tr>
<%

Stringa = "SELECT TabellaSoci.NumeroSocio, TabellaSoci.CognomeNome, TabellaSoci.Datacessazione, " & _
             " TabellaAssegnazioneOrti.NumeroOrto, TabellaAssegnazioneOrti.QuotaOrto, 'quota orto mancante' as descrizione from " & _
             " TabellaSoci, tabellaAssegnazioneOrti where TabellaSoci.numerosocio = tabellaAssegnazioneOrti.NumeroSocio " & _
             " and tabellaSoci.dataCessazione is null and tabellaAssegnazioneOrti.numeroOrto > 0 and " & _
             " tabellaAssegnazioneOrti.quotaOrto > 0 and " & _
             " not exists (select * from tabellaPagamenti where tabellaPagamenti.numerosocio = TabellaSoci.numerosocio and " & _
             " tabellaPagamenti.annoriferimento = " & iannoRicerca & " and tabellaPagamenti.codicepagamento ='" & "02"  & "') " & _
             " Union all " & _
             " SELECT TabellaSoci.NumeroSocio, TabellaSoci.CognomeNome, TabellaSoci.Datacessazione, " & _
             " TabellaAssegnazioneOrti.NumeroOrto, TabellaAssegnazioneOrti.QuotaOrto, 'quota associazione mancante' as descrizione from " & _
             " TabellaSoci, tabellaAssegnazioneOrti where TabellaSoci.numerosocio = tabellaAssegnazioneOrti.NumeroSocio  and " & _
             " tabellaSoci.dataCessazione is null and " & _
             " not exists (select * from tabellaPagamenti where tabellaPagamenti.numerosocio = TabellaSoci.numerosocio and " & _
             " tabellaPagamenti.annoriferimento = " & iannoRicerca & " and tabellaPagamenti.codicepagamento ='" & "01"  & "') " & _
             " order by TabellaSoci.CognomeNome; "

dim Numero_socio
  dim Data_cessazione
  dim Cognome_nome
  dim Numero_Orto
  dim Quota_Orto
  dim Descrizione

dim letti
  ' Response.Write( "Stringa " & Stringa)

rs.Open Stringa, cn, 3

''''''' creazione foglio excel

Set xl = CreateObject("Excel.Application")
  Set xlBk = xl.Workbooks.Add

With xlbk.Worksheets(1)
      For i = 0 To rs.Fields.Count - 1
        .Cells(1, i + 1) = rs.Fields(i).Name
      Next

.Cells(2, 1).CopyFromRecordset rs
    .Columns("B:B").NumberFormat = "m/d/yy h:mm"
  End With

xl.Visible=True

'''''''' fine creazione foglio excel

letti = rs.recordcount
 ' Response.Write( "letti " & letti) 
  rs.movefirst
   
  
  do while not rs.eof

Numero_socio = rs("numerosocio")
          Data_cessazione = rs("datacessazione")
          Cognome_nome = rs("cognomenome")
          Numero_orto = rs("numeroorto")
          Quota_orto = rs("QuotaOrto")
          Descrizione = rs("Descrizione")
         
 
 %>
  
          <tr align="left">
            
		            <td><span class="Bold"><%=Numero_Socio%></span></td>
                    <td><span class="Bold"><%=Cognome_nome%></span></td>
                    <td><span class="Bold"><%=Data_cessazione%></span></td>
		            <td><span class="Bold"><%=Numero_orto%></span></td>
		            <td><span class="Bold"><%=Quota_orto%></span></td>
		            <td><span class="Bold"><%=Descrizione%></span></td>
		                       		   		  
  
          </tr>
  
  <%
   
   
   
    
  rs.movenext

loop

rs.close
  cn.close
  set cn = nothing
  
  %>
  
  
</table>
 
</td>
</tr>
</table>
</Center>

<br /><br /><br /><br /><br /><br />

</body>
</html>

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>

<%
Response.Expires = 0
Response.ExpiresAbsolute = Now() - 1
Response.AddHeader "pragma", "no-cache"
Response.AddHeader "cache-control", "private, no-cache, no-store, must-revalidate"
%>

<%
if Session("Autenticato") <> "OK" then
Response.Redirect("Index.html")
end if
%>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<link rel="stylesheet" href="w3.css">

<title>Menu Interrogazione</title>
<LINK REL="shortcut icon" HREF="immagini/icona.jpg" >
<style type="text/css">
.Bold {
font-weight: bold;
font-size: 16px;
}

#bottom-banner{
position:fixed;
bottom:0px;
height:23px;
width:100%;
background: #F60;
z-index:999999;
font-weight: bold;
font-size: 14px;
font-size: 18px;
alignment-adjust:central;
}

table {
border-collapse: collapse;
width: 50%;
}

th {
text-align: center;
}

</style>

</head>
<body>

<CENTER>
<table width="55%">
<tr>
<td><a href="menu.asp"><img src="Immagini/home4.jpg" width="80" height="70" align="middle" title="Pagina Indietro"/></a> </td>

<td>
<CENTER>
<HR>
<H2>Associazione Orti Urbani Tre Fontane </H2>
<HR> </CENTER>
</td>
</tr>
</table>

<%
Dim sc, cn, rs,rs1
sc = "driver={Microsoft Access Driver (*.mdb)};dbq="
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open sc & Server.MapPath("/mdb-database/DBortitrefontane.mdb")

Set rs = Server.CreateObject("ADODB.Recordset")
rs.CursorLocation = 3 'adUseClient
rs.CursorType = 1 ' adOpenKeyset
rs.LockType = 3 'adLockOptimistic

Set rs1 = Server.CreateObject("ADODB.Recordset")
rs1.CursorLocation = 3 'adUseClient
rs1.CursorType = 1 ' adOpenKeyset
rs1.LockType = 3 'adLockOptimistic

'************* Response.Write(Server.MapPath("mdb-database/ConcaDoro.mdb"))

'**************

%>



<table width="90%" border="1" class="w3-table w3-striped w3-bordered w3-border w3-hoverable" align="center" >



<%

dim Stringa
dim stringa1

dim iAnnoRicerca
iAnnoRicerca = request.form("ianno")

if iAnnoRicerca = "" then
iAnnoRicerca = year(date())
end if

stringa1 = "SELECT TabellaQuote.Anno, TabellaQuote.QuotaAssociativa, TabellaQuote.QuotaOrto " & _
" FROM TabellaQuote WHERE TabellaQuote.Anno= " & iannoRicerca

%>

<h2 align="center"> Visualizzazione Pagamenti Mancanti Anno <span class="Bold"><%=iAnnoRicerca%></span> <br /><br />

<align="left"></align>

<tr>

<td ><span class="Bold" >Numero Socio</span></td>
<td><span class="Bold">Cognome Nome</span></td>
<td><span class="Bold">Data Cessazione</span></td>
<td><span class="Bold">Numero Orto</span></td>
<td><span class="Bold">Quota Orto</span></td>
<td><span class="Bold">Descrizione Stato</span></td>

</tr>
<%

Stringa = "SELECT TabellaSoci.NumeroSocio, TabellaSoci.CognomeNome, TabellaSoci.Datacessazione, " & _
" TabellaAssegnazioneOrti.NumeroOrto, TabellaAssegnazioneOrti.QuotaOrto, 'quota orto mancante' as descrizione from " & _
" TabellaSoci, tabellaAssegnazioneOrti where TabellaSoci.numerosocio = tabellaAssegnazioneOrti.NumeroSocio " & _
" and tabellaSoci.dataCessazione is null and tabellaAssegnazioneOrti.numeroOrto > 0 and " & _
" tabellaAssegnazioneOrti.quotaOrto > 0 and " & _
" not exists (select * from tabellaPagamenti where tabellaPagamenti.numerosocio = TabellaSoci.numerosocio and " & _
" tabellaPagamenti.annoriferimento = " & iannoRicerca & " and tabellaPagamenti.codicepagamento ='" & "02" & "') " & _
" Union all " & _
" SELECT TabellaSoci.NumeroSocio, TabellaSoci.CognomeNome, TabellaSoci.Datacessazione, " & _
" TabellaAssegnazioneOrti.NumeroOrto, TabellaAssegnazioneOrti.QuotaOrto, 'quota associazione mancante' as descrizione from " & _
" TabellaSoci, tabellaAssegnazioneOrti where TabellaSoci.numerosocio = tabellaAssegnazioneOrti.NumeroSocio and " & _
" tabellaSoci.dataCessazione is null and " & _
" not exists (select * from tabellaPagamenti where tabellaPagamenti.numerosocio = TabellaSoci.numerosocio and " & _
" tabellaPagamenti.annoriferimento = " & iannoRicerca & " and tabellaPagamenti.codicepagamento ='" & "01" & "') " & _
" order by TabellaSoci.CognomeNome; "

dim Numero_socio
dim Data_cessazione
dim Cognome_nome
dim Numero_Orto
dim Quota_Orto
dim Descrizione

dim letti
' Response.Write( "Stringa " & Stringa)

rs.Open Stringa, cn, 3

''''''' creazione foglio excel

Set xl = CreateObject("Excel.Application")
Set xlBk = xl.Workbooks.Add

With xlbk.Worksheets(1)
For i = 0 To rs.Fields.Count - 1
.Cells(1, i + 1) = rs.Fields(i).Name
Next

.Cells(2, 1).CopyFromRecordset rs
.Columns("B:B").NumberFormat = "m/d/yy h:mm"
End With

xl.Visible=True

'''''''' fine creazione foglio excel

letti = rs.recordcount
' Response.Write( "letti " & letti)

rs.movefirst

do while not rs.eof

Numero_socio = rs("numerosocio")
Data_cessazione = rs("datacessazione")
Cognome_nome = rs("cognomenome")
Numero_orto = rs("numeroorto")
Quota_orto = rs("QuotaOrto")
Descrizione = rs("Descrizione")

%>

<tr align="left">

<td><span class="Bold"><%=Numero_Socio%></span></td>
<td><span class="Bold"><%=Cognome_nome%></span></td>
<td><span class="Bold"><%=Data_cessazione%></span></td>
<td><span class="Bold"><%=Numero_orto%></span></td>
<td><span class="Bold"><%=Quota_orto%></span></td>
<td><span class="Bold"><%=Descrizione%></span></td>

</tr>

<%

rs.movenext

loop

rs.close
cn.close
set cn = nothing

%>

</table>

</td>
</tr>
</table>
</Center>

<br /><br /><br /><br /><br /><br />


</body>
</html>