|
Associazione
|
|
L’Associazione
Mamme Separate onlus nasce a Como nel mese maggio 1999 registrata
all’ufficio del Registro di Como il 4 Novembre 1999 nr. 11501, serie III.
Iscritta al Registro Generale Regionale del Volontariato Foglio 677
- progressivo 2702 - sezione B (CIVILE) il 22 febbraio 2000, ai sensi
della l.r. 24 luglio 1993, n. 22.
Iscritta al Registro Regionale della Associazioni di Solidarietà
Familiare, istituito ai sensi dell’art.5 della l.r. n.23/99 “Politiche
per la famiglia” decreto n. 28608 del 14 novembre 2000.
Iscritta all’Albo
Regionale delle associazioni, movimenti e organizzazioni femminili
- Politiche Femminili e Pari opportunità - con decreto n. 13819 del 22
luglio 2002.
L'associazione vuole essere un luogo in cui, attraverso l'ascolto e lo
scambio di reciproche esperienze, si crea accoglienza, solidarietà e
collaborazione oltre che un luogo in cui, attraverso l'assistenza sociale
e umana, si offrono assistenza e sostegno alle mamme ed ai padri in
difficoltà nella loro funzione naturale di genitore e nell'affrontare i
problemi quotidiani con i propri figli.
è un'organizzazione non
lucrativa di utilità sociale, che si autofinanzia solamente con le quote
associative e con contributi privati.
Sostieni l'associazione attraverso:
contributi liberi oppure
acquisto del nostro libro
Perchè
La "madre affidataria" incontra molteplici difficoltà nello svolgimento
del difficile ruolo genitoriale in quanto da sola deve tutelare e
salvaguardare la vita dei figli trasmettendo loro serenità e sicurezza;
poiché sta vivendo la propria separazione con un coinvolgimento emotivo,
fisico e di malessere psicologico perde di vista il proprio ruolo,
mettendo in serio pericolo l'orientamento e l'equilibrio dei figli.
L'Associazione Mamme Separate, in questi anni di attività di volontariato,
ha aiutato molti genitori ad interiorizzare ed elaborare il dolore e il
disagio che scaturiscono dalla sofferenza di avere fallito un progetto di
vita che si era creato col coniuge.
Il padre a sua volta vive lo stesso malessere in quanto con la separazione
si trova a dover riformulare un nuovo percorso di vita. Egli infatti
essendo "genitore non affidatario" perde con la separazione non solo la
casa, i suoi effetti e affetti personali, le sue
emozioni, i suoi ricordi, ma soprattutto perde di vista la quotidianità di
"padre". Questo perché quasi sempre nella separazione (nel 97% dei casi i
figli vengono affidati alla madre) tra il padre e la madre cresce una
forte conflittualità che fa perdere loro di vista il ruolo di genitore.
Per la madre affidataria questo diventa strumento ricattatorio e di
allontanamento del padre dalla vita dei figli, escludendolo
nell'educazione, nella crescita, nella scuola spesso sostituendolo anziché
renderlo partecipe.
Il genitore non affidatario, che si allontana dall'educazione e dalla
crescita dei figli, non avendo supporti affettivi e dovendo riorganizzare
da solo una nuova vita, una nuova casa, (a volte stanco delle continue
lotte per esercitare "invano" il ruolo del padre) spesso si ricostruisce
una nuova famiglia allontanandosi progressivamente e inesorabilmente dai
propri figli. La priorità e la assoluta utilità del progetto derivano dall'esperienza
acquisita e dalla conseguente verifica fatta sullo scambio di esperienze e
sulla positività dei risultati ottenuti.
Parliamo di numeri...
Statuto dell'Associazione
Pieghevole dell'associazione<%
'******************************************************************************
'* File: count.asp *
'* Version: 0.4.0 Launch *
'* Description: Called by an image (blank gif) to log hit to the website *
'* writes the hit details to database before redirecting to the *
'* actual image file, if any *
'* Author: Andrew Pilgrim *
'* Copyright: Copyright 2003 Andrew Pilgrim, andrewpilgrim@fswebdesign.com *
'* Licence: Free for personal and commercial use as long as copyright notice *
'* remains in place. Distribution prohibited without the express *
'* permission of the owner (andrewpilgrim@fswebdesign.com) *
'* full licence at http://www.fswebdesign.com/fsstats/ *
'******************************************************************************
'-----------------------------------------------------------------------------
' Version History
'-----------------------------------------------------------------------------
' 9 June 2002: Version 0.1.0a
' 14 June 2002: Version 0.2.0 Beta Launch
' 27 April 2003: Version 0.4.0 Launch
'Please report all bugs to fsstats@fswebdesign.com or go to:
' http://www.fswebdesign.com/fsstats/
Dim DataConn
Function GetBrowserID(Browser_Name, Raw_Browser_Version)
'##Returns the ID of the browser if it already exists otherwise it adds the browser then returns ID
Dim SQL_Query
Dim BrowserRS
Dim Browser_Version
Dim Start_Position
Browser_Name = BrowserName()
Browser_Version = BrowserVersion()
'##Define query
SQL_Query = "SELECT * FROM tbl_Browser WHERE Name = '" & Browser_Name & "' AND Version = '" & Browser_Version & "'"
'##Create recordset object
Set BrowserRS = Server.CreateObject("ADODB.RecordSet")
'##Run query
BrowserRS.Open SQL_Query,DataConn,1,3
'##Check if any records were returned
If BrowserRS.EOF And BrowserRS.BOF Then
'##No records exist so add new browser record
'##Add new record, not the quickest method but allows for instant retreval of ID
BrowserRS.AddNew
'##Plug in the values to be added
BrowserRS("Name") = Browser_Name
BrowserRS("Version") = Browser_Version
'##Insert the record
BrowserRS.Update
End If
'##Get the value of the ID
GetBrowserID = BrowserRS("Browser_ID")
'##Close Connections
BrowserRS.Close
Set BrowserRS = Nothing
End Function
Function GetOSID (OS_Name)
'##Returns the ID of the operating system if it exists, otherwise adds the OS and returns ID
Dim SQL_Query
Dim OSRS
'##Lower case the OS_Name
OS_Name = LCase(OS_Name)
OS_Name = OperatingSystem(OS_Name)
'##Define SQL Query
SQL_Query = "SELECT * FROM tbl_Operating_Systems WHERE OS_Name = '" & OS_Name & "'"
'##Create recordset
Set OSRS = Server.CreateObject("ADODB.RecordSet")
'##Run Query
OSRS.Open SQL_Query,DataConn,1,3
'##Check to see if OS exists
If OSRS.EOF And OSRS.BOF Then
'##OS doesn't exost so add it
OSRS.AddNew
'##Plug in the value
OSRS("OS_Name") = OS_Name
'##Add record
OSRS.Update
End If
'##Return ID
GetOSID = OSRS("Operating_System_ID")
'##Close Connections
OSRS.Close
Set OSRS = Nothing
End Function
Function GetColorDepthID (Color_Depth)
'##Returns the ID of the color depth if it exists, otherwise adds the depth and returns ID
Dim SQL_Query
Dim ColorDepthRS
'##Sort it out if the values passed are bad
If LCase(Color_Depth) = "undefined" Or LCase(Color_Depth) = "" Then Color_Depth = "Unknown"
'##Define SQL Query
SQL_Query = "SELECT * FROM tbl_Color_Depths WHERE Name = '" & Color_Depth & "'"
'##Create recordset
Set ColorDepthRS = Server.CreateObject("ADODB.RecordSet")
'##Run Query
ColorDepthRS.Open SQL_Query,DataConn,1,3
'##Check to see if color depth exists
If ColorDepthRS.EOF And ColorDepthRS.BOF Then
'##color depth doesn't exist so add it
ColorDepthRS.AddNew
'##Plug in the value
ColorDepthRS("Name") = Color_Depth
'##Add record
ColorDepthRS.Update
End If
'##Return ID
GetColorDepthID = ColorDepthRS("Color_Depth_ID")
'##Close Connections
ColorDepthRS.Close
Set ColorDepthRS = Nothing
End Function
Function GetRefererID (Referer)
'##Returns the ID of the Referer if it exists, otherwise adds the Referer and returns ID
Dim SQL_Query
Dim RefererRS
'##Set direct Hit if no referer
If Referer = "" Then Referer = "(Direct Hit)"
'##Define SQL Query
SQL_Query = "SELECT * FROM tbl_Referers WHERE URL = '" & Referer & "'"
'##Create recordset
Set RefererRS = Server.CreateObject("ADODB.RecordSet")
'##Run Query
RefererRS.Open SQL_Query,DataConn,1,3
'##Check to see if Referer exists
If RefererRS.EOF And RefererRS.BOF Then
'##Referer doesn't exist so add it
RefererRS.AddNew
'##Plug in the value
RefererRS("URL") = Referer
'##Add record
RefererRS.Update
End If
'##Return ID
GetRefererID = RefererRS("Referer_ID")
'##Close Connections
RefererRS.Close
Set RefererRS = Nothing
End Function
Function GetResolutionID (Resolution)
'##Returns the ID of the Resolution if it exists, otherwise adds the Resolution and returns ID
Dim SQL_Query
Dim ResolutionRS
'##Sort it out if the values passed are bad
If LCase(Resolution) = "undefined" Or LCase(Resolution) = "" Then Resolution = "Unknown"
'##Define SQL Query
SQL_Query = "SELECT * FROM tbl_Resolutions WHERE Name = '" & Resolution & "'"
'##Create recordset
Set ResolutionRS = Server.CreateObject("ADODB.RecordSet")
'##Run Query
ResolutionRS.Open SQL_Query,DataConn,1,3
'##Check to see if Resolution exists
If ResolutionRS.EOF And ResolutionRS.BOF Then
'##Resolution doesn't exist so add it
ResolutionRS.AddNew
'##Plug in the value
ResolutionRS("Name") = Resolution
'##Add record
ResolutionRS.Update
End If
'##Return ID
GetResolutionID = ResolutionRS("Resolution_ID")
'##Close Connections
ResolutionRS.Close
Set ResolutionRS = Nothing
End Function
Function GetHitID(IP_Addr, Session_ID)
'##Checks to see if the user has been logged as a hit already in this session, if they have not
'##then their details are added to a new record. It returns the hits ID number to be used in the
'##page views table.
Dim SQL_Query
Dim HitsRS
'##Define SQL Query, this works on the basis that a hit counts as a unqiue IP address and session
'##ID combination. There is a possibility of a mistaken hit counted as a pageview but this is very
'##very unlikely. May be corrected in later versions.
SQL_Query = "SELECT * FROM tbl_Hits WHERE IP_Addr = '" & IP_Addr & "' And Session_ID = '" & Session_ID & "'"
'##Create recordset
Set HitsRS = Server.CreateObject("ADODB.RecordSet")
'##Run Query
HitsRS.Open SQL_Query,DataConn,1,3
'##Check to see if HIT already exists
If HitsRS.EOF And HitsRS.BOF Then
'##Hit has yet to be logged so log it!
HitsRS.AddNew
'##Plug in values from the server variables
HitsRS("IP_Addr") = IP_Addr
HitsRS("Session_ID") = Session_ID
HitsRS("Client") = GetBrowserID(Request.QueryString("client"),Request.QueryString("version"))
HitsRS("Color_Depth") = GetColorDepthID(Request.QueryString("color_depth"))
HitsRS("Resolution") = GetResolutionID(Request.QueryString("width") & "*" & Request.QueryString("height"))
HitsRS("Operating_System") = GetOSID(Request.QueryString("version"))
HitsRS("Referer") = GetRefererID(Request.QueryString("referrer"))
'##Add record
HitsRS.Update
End If
'##Return Hit ID
GetHitID = HitsRS("Hit_ID")
'##Close Connections
HitsRS.Close
Set HitsRS = Nothing
End Function
Function OperatingSystem(strUserAgent)
strUserAgent = LCase(Request.ServerVariables("HTTP_USER_AGENT"))
If InStr(1,strUserAgent,"windows nt 5.1") <> 0 Then
OperatingSystem = "Windows XP"
ElseIf InStr(1,strUserAgent,"windows nt 5.0") <> 0 Then
OperatingSystem = "Windows 2000"
ElseIf InStr(1,strUserAgent,"win 9x 4.90") <> 0 Then
OperatingSystem = "Windows ME"
ElseIf InStr(1,strUserAgent,"win98") <> 0 Or InStr(1,strUserAgent,"windows 98") <> 0 Then
OperatingSystem = "Windows 98"
ElseIf InStr(1,strUserAgent,"win95") <> 0 Or InStr(1,strUserAgent,"windows 95") <> 0 Then
OperatingSystem = "Windows 95"
ElseIf InStr(1,strUserAgent,"windows 3.1") <> 0 Or InStr(1,strUserAgent,"win16") <> 0 Or InStr(1,strUserAgent,"16bit") <> 0 Or InStr(1,strUserAgent,"windows 16-bit") <> 0 Then
OperatingSystem = "Windows 3.1"
ElseIf InStr(1,strUserAgent,"os/2") <> 0 Then
OperatingSystem = "OS/2"
ElseIf InStr(1,strUserAgent,"mac") <> 0 Then
If InStr(1,strUserAgent,"68k") <> 0 Or InStr(1,strUserAgent,"68000") <> 0 Then
OperatingSystem = "Mac 68k"
ElseIf InStr(1,strUserAgent,"ppc") <> 0 Or InStr(1,strUserAgent,"power-pc") <> 0 Or InStr(1,strUserAgent,"powerpc") <> 0 Then
OperatingSystem = "Mac PowerPC"
ElseIf InStr(1,strUserAgent,"macos") <> 0 Or InStr(1,strUserAgent,"mac os") <> 0 Then
OperatingSystem = "Mac OS"
ElseIf InStr(1,strUserAgent,"os8") <> 0 Or InStr(1,strUserAgent,"os 8") <> 0 Then
OperatingSystem = "Mac OS8"
ElseIf InStr(1,strUserAgent,"os9") <> 0 Or InStr(1,strUserAgent,"os 9") <> 0 Then
OperatingSystem = "Mac OS9"
ElseIf InStr(1,strUserAgent,"osx") <> 0 Or InStr(1,strUserAgent,"os x") <> 0 Then
OperatingSystem = "Mac OSx"
Else
OperatingSystem = "Mac Unknown"
End If
ElseIf InStr(1,strUserAgent,"sunos 5") <> 0 Then
OperatingSystem = "Sun 5"
ElseIf InStr(1,strUserAgent,"sunos 4") <> 0 Then
OperatingSystem = "Sun 4"
ElseIf InStr(1,strUserAgent,"sunos") <> 0 Then
OperatingSystem = "Sun"
ElseIf InStr(1,strUserAgent,"irix6") <> 0 Or Instr(1,strUserAgent,"irix 6") <> 0 Then
OperatingSystem = "IRIX 6"
ElseIf InStr(1,strUserAgent,"irix 5") <> 0 Then
Operating System = "IRIX 5"
ElseIf InStr(1,strUserAgent,"irix") <> 0 Then
OperatingSystem = "IRIX"
ElseIf InStr(1,strUserAgent,"freebsd") <> 0 Then
OperatingSystem = "FreeBSD"
ElseIf InStr(1,strUserAgent,"bsd") <> 0 Then
OperatingSystem = "BSD"
ElseIf InStr(1,strUserAgent,"aix") <> 0 Then
OperatingSystem = "AIX"
ElseIf InStr(1,strUserAgent,"linux") <> 0 Then
OperatingSystem = "Linux"
ElseIf InStr(1,strUserAgent,"unix") <> 0 Then
OperatingSystem = "Unix"
ElseIf InStr(1,strUserAgent,"windows nt") <> 0 Then
OperatingSystem = "Windows NT"
ElseIf InStr(1,strUserAgent,"windows") <> 0 Then
OperatingSystem = "Windows Unknown"
Else
OperatingSystem = "Unknown"
End If
End Function
Function BrowserName()
Dim strUserAgent
strUserAgent = LCase(Request.ServerVariables("HTTP_USER_AGENT"))
If InStr(1,strUserAgent,"opera") <> 0 Then
BrowserName = "Opera"
ElseIf InStr(1,strUserAgent,"msn") <> 0 Then
BrowserName = "MSN"
ElseIf InStr(1,strUserAgent,"aol") <> 0 Then
BrowserName = "AOL"
ElseIf InStr(1,strUserAgent,"webtv") <> 0 Then
BrowserName = "WebTV"
ElseIf InStr(1,strUserAgent,"navio") <> 0 Or InStr(1,strUserAgent,"navio_aoltv") <> 0 Then
BrowserName = "TVNavigator"
ElseIf InStr(1,strUserAgent,"netscape") <> 0 Then
BrowserName = "Netscape"
ElseIf InStr(1,strUserAgent,"msie") <> 0 Then
BrowserName = "Microsoft Internet Explorer"
ElseIf InStr(1,strUserAgent,"mozilla") <> 0 Then
BrowserName = "Mozilla"
Else
BrowserName = "Unknown"
End If
End Function
Function BrowserVersion()
Dim strUserAgent,i,FirstNumberPos
strUserAgent = LCase(Request.ServerVariables("HTTP_USER_AGENT"))
If Instr(1,strUserAgent,"msie 6") <> 0 Or Instr(1,strUserAgent,"netscape6/6") Or Instr(1,strUserAgent,"opera/6") <> 0 Or Instr(1,strUserAgent,"opera 6") <> 0 Then
BrowserVersion = 6
ElseIf Instr(1,strUserAgent,"aol/7") <> 0 Or Instr(1,strUserAgent,"aol 7") <> 0 Or Instr(1,strUserAgent,"netscape/7") Or Instr(1,strUserAgent,"opera/7") <> 0 Or Instr(1,strUserAgent,"opera 7") <> 0 Then
BrowserVersion = 7
ElseIf Instr(1,strUserAgent,"msie 5.5") <> 0 Then
BrowserVersion = 5.5
ElseIf Instr(1,strUserAgent,"msie 5") <> 0 Then
BrowserVersion = 5
Else
'##Do a loop to find the first number and use that
FirstNumberPos = 0
For i = 1 To Len(strUserAgent)
If Instr(1,"1234567890",Mid(strUserAgent,i,1))<> 0 Then
FirstNumberPos = i
i = Len(strUserAgent)
End If
Next
'##Loop until numbers stop
If FirstNumberPos <> 0 Then
While Instr(1,"1234567890.",Mid(strUserAgent,FirstNumberPos,1)) <> 0 And FirstNumberPos<=Len(strUserAgent)
BrowserVersion = BrowserVersion & Mid(strUserAgent,FirstNumberPos,1)
FirstNumberPos = FirstNumberPos + 1
Wend
Else
BrowserVersion = ""
End If
End If
End Function
'---------------------------------------------------------------------
'##Main Page
'##Open global database connection
Set DataConn = Server.CreateObject("ADODB.Connection")
DataConn.Open Conn_String
'##Log the page view
DataConn.Execute "INSERT INTO tbl_Page_Views(Hit_ID,Date_Time,Page) values(" & GetHitID(Request.ServerVariables("REMOTE_ADDR"),Session.SessionID) & ",#" & formatdatetime(now(),vbgeneraldate) & "#,'" & Request.QueryString("url") & "')"
'##Close Connections
DataConn.Close
Set DataConn = Nothing
'##Show the image
Response.Redirect Image_URL
%>
|