<%' FP_ASP File ASP generato automaticamente da un componente di Frontpage. Non modificare. On Error Resume Next Session("FP_OldCodePage") = Session.CodePage Session("FP_OldLCID") = Session.LCID Session.CodePage = 1252 Session.LCID = 1040 Err.Clear strErrorUrl = "" If Request.ServerVariables("REQUEST_METHOD") = "POST" Then If Request.Form("VTI-GROUP") = "0" Then Err.Clear Set fp_conn = Server.CreateObject("ADODB.Connection") FP_DumpError strErrorUrl, "Impossibile creare la connessione." Set fp_rs = Server.CreateObject("ADODB.Recordset") FP_DumpError strErrorUrl, "Impossibile creare il set di record." fp_conn.Open Application("feedback1_ConnectionString") FP_DumpError strErrorUrl, "Impossibile aprire il database." fp_rs.Open "Risultati", fp_conn, 1, 3, 2 ' adOpenKeySet, adLockOptimistic, adCmdTable FP_DumpError strErrorUrl, "Impossibile aprire il set di record." fp_rs.AddNew FP_DumpError strErrorUrl, "Impossibile aggiungere nuovi set di record al database." Dim arFormFields0(7) Dim arFormDBFields0(7) Dim arFormValues0(7) arFormFields0(0) = "PostaElettronica" arFormDBFields0(0) = "PostaElettronica" arFormValues0(0) = Request("PostaElettronica") arFormFields0(1) = "Commenti" arFormDBFields0(1) = "Commenti" arFormValues0(1) = Request("Commenti") arFormFields0(2) = "Societa" arFormDBFields0(2) = "Societa" arFormValues0(2) = Request("Societa") arFormFields0(3) = "Telefono" arFormDBFields0(3) = "Telefono" arFormValues0(3) = Request("Telefono") arFormFields0(4) = "Nome" arFormDBFields0(4) = "Nome" arFormValues0(4) = Request("Nome") arFormFields0(5) = "Fax" arFormDBFields0(5) = "Fax" arFormValues0(5) = Request("Fax") arFormFields0(6) = "Categoria" arFormDBFields0(6) = "Categoria" arFormValues0(6) = Request("Categoria") FP_SaveFormFields fp_rs, arFormFields0, arFormDBFields0 If Request.ServerVariables("REMOTE_USER") <> "" Then FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_USER"), "Nome_utente" End If If Request.ServerVariables("REMOTE_HOST") <> "" Then FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_HOST"), "Nome_computer_remoto" End If FP_SaveFieldToDB fp_rs, Now, "Data_e_ora" If Request.ServerVariables("HTTP_USER_AGENT") <> "" Then FP_SaveFieldToDB fp_rs, Request.ServerVariables("HTTP_USER_AGENT"), "Tipo_browser" End If fp_rs.Update FP_DumpError strErrorUrl, "Impossibile aggiornare il database." fp_rs.Close fp_conn.Close FP_FormConfirmation "text/html; charset=windows-1252",_ "Conferma modulo",_ "Grazie per averci inviato le seguenti informazioni:",_ "feedback.htm",_ "Torna al modulo" End If End If Session.CodePage = Session("FP_OldCodePage") Session.LCID = Session("FP_OldLCID") %> Pagina Modulo utente U.G.L.

    

Home
le vignette
modelli
Controversie
Dicono di noi
La nostra piattaforma
Volantini più votati
Commenti on line

Vi preghiamo di inviarci le vostre opinioni sul nostro sito Web, sulla organizzazione sindacale e sui nostri servizi offerti.Potete votare  in forma anonima il volantino  che più vi piace indicandoci il titolo.Se  desiderate invece fornirci il vostro recapito, potremo contattarvi in caso dovessimo porvi qualche domanda o inviarvi documenti riservati che non è possibile, per ovvie ragioni di privacy, pubblicare in web.

Commenti

Categoria

Dati personali

Nome
Società
Telefono
Fax
Posta elettronica

 

Compila la scheda con i tuoi dati e potrai   stampare  on line  27 modelli di autocertificazioni

 speciale "privacy".In un solo file tutti i documenti che evidenziano le "chiusure" aziendali.

preleva il modello prestampato per richiedere all'azienda i tuoi dati personali

i risultati delle elezioni rsu a Montesilvano

 

 

Home ] Bacheca 2000 ] Bacheca '95 '98 ]

 Copyright © 2001 UGL Energia
Aggiornato il: 19 novembre 2001