Iscrizione_Europae

<%@LANGUAGE="VBSCRIPT"%> <% Dim nome_ut Dim pass nome_ut = Replace(Request.Form("nome_utente"), "'", "''") pass = Replace(Request.Form("password"), "'", "''") Dim cn Set cn = Server.CreateObject("ADODB.Connection") cn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("utenti.mdb") Dim sql sql = "SELECT ID FROM Utenti WHERE NOMEUTENTE='" &nome_ut&_ "' AND PASSWORD='" &pass& "'" Dim rs Set rs = cn.Execute(sql) Dim autenticato if rs.eof then autenticato = false else autenticato = true end if rs.Close cn.Close Set rs = Nothing Set cn = Nothing if autenticato = true then Session("Autenticato") = "OK" Response.Redirect("riservato.asp") else Response.Redirect("index.asp") end if %> Iscrizione_Europae_Fami.li.a.

Le famiglie o i loro componenti che desiderano iscriversi all'Associazione Europae Fami.li.a. possono richiedere la scheda di adesione inviando una e-mail al seguente indirizzo: info@eurofamilia.it.

Dovranno aggiungere, oltre al nome e al cognome, il numero di telefono ed eventualmente l'indirizzo. Saranno contattati al più presto.

I suddetti dati, in caso di non iscrizione, verrano cancellati.

Se credi nella Famiglia e nei valori che essa rappresenta, aiutaci a difenderla.

Home - Chi siamo - News - Biblioteca - Convenzioni - Riservato ai Soci