<% ' FP_ASP ASP Automatically generated by a Frontpage Component. Do not Edit. On Error Resume Next Session("FP_OldCodePage") = Session.CodePage Session("FP_OldLCID") = Session.LCID Session.CodePage = 1252 Err.Clear strErrorUrl = "" If Request.ServerVariables("REQUEST_METHOD") = "POST" Then If Request.Form("VTI-GROUP") = "0" Then Err.Clear Set fp_conn = Server.CreateObject("ADODB.Connection") FP_DumpError strErrorUrl, "Cannot create connection" Set fp_rs = Server.CreateObject("ADODB.Recordset") FP_DumpError strErrorUrl, "Cannot create record set" fp_conn.Open Application("lagoazzurro_ConnectionString") FP_DumpError strErrorUrl, "Cannot open database" fp_rs.Open "Risultati", fp_conn, 1, 3, 2 ' adOpenKeySet, adLockOptimistic, adCmdTable FP_DumpError strErrorUrl, "Cannot open record set" fp_rs.AddNew FP_DumpError strErrorUrl, "Cannot add new record set to the database" Dim arFormFields0(10) Dim arFormDBFields0(10) Dim arFormValues0(10) arFormFields0(0) = "Provincia" arFormDBFields0(0) = "Provincia" arFormValues0(0) = Request("Provincia") arFormFields0(1) = "Telefono" arFormDBFields0(1) = "Telefono" arFormValues0(1) = Request("Telefono") arFormFields0(2) = "Fax" arFormDBFields0(2) = "Fax" arFormValues0(2) = Request("Fax") arFormFields0(3) = "Indirizzo" arFormDBFields0(3) = "Indirizzo" arFormValues0(3) = Request("Indirizzo") arFormFields0(4) = "Nome" arFormDBFields0(4) = "Nome" arFormValues0(4) = Request("Nome") arFormFields0(5) = "Email" arFormDBFields0(5) = "Email" arFormValues0(5) = Request("Email") arFormFields0(6) = "Field6" arFormDBFields0(6) = "Città" arFormValues0(6) = Request("Field6") arFormFields0(7) = "CAP" arFormDBFields0(7) = "CAP" arFormValues0(7) = Request("CAP") arFormFields0(8) = "Cognome" arFormDBFields0(8) = "Cognome" arFormValues0(8) = Request("Cognome") arFormFields0(9) = "DataNascita" arFormDBFields0(9) = "DataNascita" arFormValues0(9) = Request("DataNascita") FP_SaveFormFields fp_rs, arFormFields0, arFormDBFields0 fp_rs.Update FP_DumpError strErrorUrl, "Cannot update the database" fp_rs.Close fp_conn.Close Session("FP_SavedFields")=arFormFields0 Session("FP_SavedValues")=arFormValues0 Session.CodePage = Session("FP_OldCodePage") Session.LCID = Session("FP_OldLCID") Response.Redirect "conferma.asp" End If End If Session.CodePage = Session("FP_OldCodePage") Session.LCID = Session("FP_OldLCID") %> <% Response.Buffer = True %> Pro Loco Campodolcino - SALVIAMO IL LAGO AZZURRO!
Salviamo il Lago Azzurro!
 


 

 

 

Da ormai due anni consecutivi, il Lago Azzurro di Motta Alta di Campodolcino, Lago alpino, è completamente prosciugato e non se ne conoscono attualmente le cause. Il FAI (Fondo per l'ambiente italiano), la Banca Intesa, la Fondazione "Sorella Natura" in sinergia con la Comunità Montana della Valchiavenna, i Comuni di Campodolcino e Madesimo, l'Istituto Leonardo da Vinci (Liceo, Ragioneria, Geometri) Chiavenna, le Parrocchie di Campodolcino e Madesimo e la Pro Loco di Campodolcino si sono attivati per una campagna a favore dello studio per il recupero del Lago Azzurro. Pertanto invitiamo a compilare via Internet il modulo che verrà inoltrato dalla Pro Loco agli Enti competenti o le cartoline disponibili presso gli Enti sopraelencati.

Naturalmente più cartoline e più moduli riusciremo a reperire, più probabilità avremo che la Banca Intesa e il FAI si accollino le spese per lo studio e per l'effettivo recupero del Lago Azzurro che potremo così ancora ammirare nella sua bellezza così come lo descrisse Giosuè Carducci nella sua poesia "Lago Azzurro" del 1888.

 

 

 Il mio Luogo del Cuore è
 
 Tipologia
 
 Località
 

 Nome
  		  Cognome
  
 Indirizzo
  		  CAP
  
 Città
  		  Provincia
  
 Data di nascita
  		  Telefono
  
 Fax
  		  E-mail
 
   

 

I sottoscriventi essendo a conoscenza di quanto prescrive la Legge 675/96 concernente la
"Tutela delle persone ed altri soggetti rispetto al trattamento dei dati personali",
hanno espresso il loro consenso ed autorizzazione al trattamento ed
alla trasmissione dei dati personali per il recupero del Lago Azzurro.