Associazione

presentazione

 

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 %>