Petição contra a discriminação

 dos pais casados e viúvos em sede de IRS

(por motivo de protecção de dados o nº de BI não estará visível nesta lista pública de assinantes da petição)

<% ' Constants ripped from adovbs.inc: Const adOpenStatic = 3 Const adLockReadOnly = 1 Const adCmdText = &H0001 ' Our own constants: Const PAGE_SIZE = 50 ' The size of our pages. ' Declare our variables... always good practice! Dim strURL ' The URL of this page so the form will work ' no matter what this file is named. Dim cnnSearch ' ADO connection Dim rstSearch ' ADO recordset Dim strDBPath ' path to our Access database (*.mdb) file Dim strSQL ' The SQL Query we build on the fly Dim iPageCurrent ' The page we're currently on Dim iPageCount ' Number of pages of records Dim iRecordCount ' Count of the records returned Dim I ' Standard looping variable ' Retreive the URL of this page from Server Variables strURL = Request.ServerVariables("URL") ' Retreive the term being searched for. I'm doing it on ' the QS since that allows people to bookmark results. ' You could just as easily have used the form collection. ' Retrieve page to show or default to the first If Request.QueryString("page") = "" Then iPageCurrent = 1 Else iPageCurrent = CInt(Request.QueryString("page")) End If ' Since I'm doing this all in one page I need to see if anyone ' has searched for something. If they have we hit the DB. ' O/W I just show the search form and quit. %><% ' MapPath of virtual database file path to a physical path. ' If you want you could hard code a physical path here. ' Create an ADO Connection to connect to the sample database. ' We're using OLE DB but you could just as easily use ODBC or a DSN. Set cnnSearch = Server.CreateObject("ADODB.Connection") ' This line is for the Access sample database: cnnSearch.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Inetpub\vhosts\forumdafamilia.com\db\peticao.mdb" ' We're actually using SQL Server so we use this line instead: //cnnSearch.Open "Provider=SQLOLEDB;Data Source=10.2.1.214;" _ // & "Initial Catalog=samples;User Id=samples;Password=password;" _ // & "Connect Timeout=15;Network Library=dbmssocn;" ' Build our query based on the input. strSQL = "SELECT * " _ & "FROM Peticao " _ & "ORDER BY id;" // ' Execute our query using the connection object. It automatically ' creates and returns a recordset which we store in our variable. Set rstSearch = Server.CreateObject("ADODB.Recordset") rstSearch.PageSize = PAGE_SIZE rstSearch.CacheSize = PAGE_SIZE ' Open our recordset rstSearch.Open strSQL, cnnSearch, adOpenStatic, adLockReadOnly, adCmdText ' Get a count of the number of records and pages ' for use in building the header and footer text. iRecordCount = rstSearch.RecordCount iPageCount = rstSearch.PageCount If iRecordCount = 0 Then ' Display no records error. %>

<% Else ' Move to the page we need to show. rstSearch.AbsolutePage = iPageCurrent ' Show a quick status line letting people know where they are: %>

(existem <%= iRecordCount %> assinantes da petição)

Nome

Distrito ou R. Autónoma

Se não encontra a sua assinatura envie um email para peticao@forumdafamilia.com

 

 

Voltar à página inicial

 

Esta petição tem o apoio de:

ADAV Coimbra

Associação Famílias

Associação Mais Família

Associação Mulheres em Acção

Associação Portuguesa de Famílias Numerosas

Associação Portuguesa de Síndrome de Asperger

CEIFAC - Centro Integrado de Apoio Familiar de Coimbra

Centro de Orientação Familiar

CNAF - Confederação Nacional das Associações de Família

Federação Portuguesa pela Vida

Federação Regional das Associações de Pais de Viseu

In Familia

<% End If ' Close our recordset and connection and dispose of the objects rstSearch.Close Set rstSearch = Nothing cnnSearch.Close Set cnnSearch = Nothing %>