<%@ Language=VBScript %> <% Response.Charset = "utf-8" Session.Codepage = 1252 if not IsNull(Request("idl")) and Request("idl") <> "" then Session("idl") = Request("idl") end if if IsNull(Session("idl")) or Session("idl") = "" or CInt(Session("idl")) < 1 then Session("idl") = "1" end if titolo = "Proponi la tua candidatura" tit = "Titolo" nome = "Nome" cognome = "Cognome" email = "E-mail" telefono = "Telefono" via = "Via" cap = "CAP" provincia = "Provincia" nazione = "Nazione" note = "Note" cv = "CV Allegato" privacy = "Inviando a ebilling S.p.A questo modulo, ai sensi e degli articoli 7, 13 e 23 del D.Lgs. n. 196/2003, dichiaro di aver preso conoscenza dell’ informativa per il trattamento dei miei dati personali, di essere informato in merito ai miei diritti e di conoscere come e dove esercitare gli stessi, pertanto PRESTO IL MIO CONSENSO a ebilling S.p.A. per il trattamento delle informazioni rilasciate per le finalità indicate." successo = "La ringraziamo per la sua candidatura, i dati inviati sono stati correttamente registrati." invia = "Invia" if Session("idl") = "2" then titolo = "Present your candidature" tit = "Title" nome = "Name" cognome = "Surname" email = "E-mail" telefono = "Telephon" via = "Street" cap = "ZIP Code" provincia = "Province" nazione = "State" note = "Note" cv = "Attached CV" privacy = "By sending ebilling S.p.A. this form, pursuant to articles 7, 13 and 23 of Law Decree no. 196/2003, I declare having read the informative document relating to the processing of my persona data and having been informed about my rights and that I know how and when to exercise these. I therefore AUTHORISE ebilling S.p.A. to process the data provided for the purposes indicated." successo = "Thank you for your candidature. The received data have been correctly recorded" invia = "Send" end if %> ebilling

career
<% Set cmdCareer = Server.CreateObject("ADODB.Command") cmdCareer.CommandType = 1 Set cmdCareer.ActiveConnection = Session("CONNECTION") cmdCareer.CommandText = "SELECT * FROM career WHERE lingua_id = " & Session("idl") & " ORDER BY data DESC" Set rsCareer = Server.CreateObject("ADODB.Recordset") rsCareer.Open cmdCareer, , 1, 3 if not(rsCareer.BOF and rsCareer.EOF) then while not rsCareer.EOF %>

<%=ShowDate(rsCareer("data"))%>

<%=rsCareer("titolo")%>

n. rif. <%=rsCareer("riferimento")%>

<%=rsCareer("testo")%>

<% rsCareer.MoveNext wend end if rsCareer.Close %>
<% if not IsNull(Request("salvato")) and Request("salvato") <> "si" then %>
<%= titolo%>
<% else %> <% end if %>
<%= tit%>
<%= nome%> * ">
<%= cognome%> * ">
<%= email%> * ">
<%= telefono%> ">
<%= via%> ">
<%= cap%> ">
<%= provincia%>
<%= nazione%>
<%= note%>
<%= cv%> * ">
   
<%= privacy%>
 
<%= successo%>
 
<% if Request("errmsg") <> "" then %> <% end if %>