<%@ LANGUAGE="VBSCRIPT" %> <% Option Explicit Response.Expires=0 'response.ExpiresAbsolute=0 Response.buffer=true %> <% Dim dbConnection dbConnection="DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("/sasolin/datasasol/dbassocia") Dim dbTabella Dim dbQuery dbTabella="associa" dbQuery="associa.Pswnum=" Dim Num Dim Citta Dim Associazione Dim Presso Dim Via Dim Cap Dim Tel1 Dim Fax1 Dim Tel2 Dim Fax2 Dim Apertura Dim Presidente Dim Vicepresidente Dim Direttore Dim Coordinatore Dim Referente Dim Link Dim Email1 Dim Email2 Dim Logo Dim Delegazioni Dim Messaggio Dim Pswnum Dim objConnection Dim objRecordset Dim strSQL Pswnum= request("Pswnum") %> csv e volontariato

Associazioni di Volontariato

In Sardegna
<% set objConnection = Server.CreateObject("ADODB.Connection") objConnection.Open dbConnection Set objRecordset = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT * FROM " & dbTabella strSQL = strSQL & " WHERE " & dbQuery & Pswnum objRecordset.Open strSQL, objConnection %>
  <% Do While Not objRecordset.EOF Num = objRecordset("Num") & "" Pswnum = objRecordset("Pswnum") & "" Citta = objRecordset("Citta") & "" Associazione=objRecordset("Associazione") & "" Presso = objRecordset("Presso") & "" Via = objRecordset("Via") & "" Cap = objRecordset("Cap") & "" Tel1 = objRecordset("Tel1") & "" Fax1 = objRecordset("Fax1") & "" Tel2 = objRecordset("Tel2") & "" Fax2 = objRecordset("Fax2") & "" Apertura = objRecordset("Apertura") & "" Presidente= objRecordset("Presidente") & "" Vicepresidente= objRecordset("Vicepresidente") & "" Direttore = objRecordset("Direttore") & "" Coordinatore= objRecordset("Coordinatore") & "" Referente = objRecordset("Referente") & "" Link = objRecordset("Link") & "" Email1 = objRecordset("Email1") & "" Email2 = objRecordset("Email2") & "" Logo = objRecordset("Logo") & "" Delegazioni= objRecordset("Delegazioni") & "" Messaggio= objRecordset("Messaggio") & "" %> <% objRecordset.MoveNext Loop objRecordset.Close objConnection.Close Set objRecordset = Nothing Set objConnection = Nothing %>
(<%=CStr(Pswnum)%> )

<% if logo<>"" Then %> " border="0" align="right"> <% End if %> <% If Associazione <> "" Then %> <%=Associazione%>

<% End if %>

<% If Presso <> "" Then %> c/o: <%=Presso%>

<% End if %> <% If Via <> "" Then %> Via: <%=Via%>   <% End if %> <% If Cap <> "" Then %> <%=Cap%>   <% End if %> <% If Citta <> "" Then %> <%=Citta%>

<% End if %> <% If Tel1<> "" or Fax1 <> "" Then %> <% If Tel1<> "" Then %> Tel. <%=Tel1%> <% End if %> <% If Fax1 <> "" Then %> Fax. <%=Fax1%> <% End if %>

<% End if %> <% If Tel2<> "" or Fax2 <> "" Then %> <% If Tel2<> "" Then %> Tel. <%=Tel2%> <% End if %> <% If Fax2 <> "" Then %> Fax. <%=Fax2%> <% End if %>

<% End if %> <% If Apertura <> "" Then %> Apertura: <%=Apertura%>
<% End if %> <% If Presidente <> "" Then %> Presidente: <%=Presidente%>
<% End if %> <% If Vicepresidente <> "" Then %> Vicepresidente: <%=Vicepresidente%>
<% End if %> <% If Direttore <> "" Then %> Direttore: <%=Direttore %>
<% End if %> <% If Coordinatore <> "" Then %> Coordinatore: <%=Coordinatore%>
<% End if %> <% If Referente <> "" Then %> Referente: <%=Referente%>
<% End if %>

<% If Link<> "" Then %> INTERNET:    <%=Link%>

<% End if %> <% If Email1<> "" Then %>      E-MAIL: ">   <%=Email1%>

<% End if %> <% If Email2<> "" Then %>      E-MAIL: ">   <%=Email2%>

<% End if %>

<% If Messaggio <> "" Then %> <%=Messaggio%>
<% End if %>