<% Response.Buffer = True ' load object Dim load Set load = new Loader ' calling initialize method load.initialize Dim fnomeInput fnomeInput = load.getValue("fnome") Dim fbiInput fbiInput = load.getValue("fbi") Dim farquivoInput farquivoInput = load.getValue("farquivo") ' destroying load object Set load = Nothing %> <% Dim iRecordCount Dim strSQL Dim cnnSearch Dim rstSearch Set cnnSearch = Server.CreateObject("ADODB.Connection") cnnSearch.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Domains\hocnet\forumdafamilia-com\forumdafamilia.com\db\peticao.mdb" strSQL = "SELECT * " _ & "FROM Peticao " _ & "ORDER BY id;" Set rstSearch = Server.CreateObject("ADODB.Recordset") rstSearch.Open strSQL, cnnSearch, 3, 1 iRecordCount = rstSearch.RecordCount rstSearch.Close Set rstSearch = Nothing cnnSearch.Close Set cnnSearch = Nothing %> Fórum da Família - Petição

<% Set cnnSearch = Server.CreateObject("ADODB.Connection") cnnSearch.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Domains\hocnet\forumdafamilia-com\forumdafamilia.com\db\peticao.mdb" strSQL = "SELECT * " _ & "FROM Peticao " _ & "ORDER BY id;" Set rstSearch = Server.CreateObject("ADODB.Recordset") rstSearch.Open strSQL, cnnSearch, 3, 1 iRecordCount = rstSearch.RecordCount rstSearch.Close Set rstSearch = Nothing cnnSearch.Close Set cnnSearch = Nothing if ((fnomeInput<>"") and (fbiInput<>"")and (farquivoInput<>"")) then ' Adding data Dim connStr connStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Domains\hocnet\forumdafamilia-com\forumdafamilia.com\db\peticao.mdb" ' Recordset object Dim rs Set rs = Server.CreateObject("ADODB.Recordset") rs.Open "Peticao", connStr, 2, 2 rs.AddNew rs("Nome") = fnomeInput rs("BI")= fbiInput rs("Arquivo")= farquivoInput rs.Update rs.Close Set rs = Nothing end if %>

Petição sobre programa de Educação Sexual nas escolas

Vamos entregar na Assembleia da República ambas as petições, quer com as assinaturas obtidas em papel, quer pela internet.

Agradecemos a todos os que colaboraram nesta iniciativa.

Com esta petição foi possível mostrar a indignação de muitos portugueses pelo que se está a passar nas escolas dos nossos filhos.

Assinaram a petição online <%= iRecordCount %> pessoas

ver a lista dos assinantes da petição

 

 

info@move.com.pt

Para mais informações vá a www.move.com.pt