<% '------------------------------------------------------------------------------------ 'Copyright (C) 2004 Demetrio G. Milea ' 'This program is free software; you can redistribute it and/or 'modify it under the terms of the GNU General Public License 'as published by the Free Software Foundation; either version 2 'of the License, or (at your option) any later version. ' 'This program is distributed in the hope that it will be useful, 'but WITHOUT ANY WARRANTY; without even the implied warranty of 'MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 'GNU General Public License for more details. ' 'A copy of the license may be found at www.fsf.org (Free Software Foundation) 'or inside the folder registrazione_e_gestione_utenti '------------------------------------------------------------------------------------ %> <% Server.Execute("header.asp") %> <% If Request.QueryString("step") = 2 Then Dim str_db_username 'username Dim str_wanted_username 'richiesto username Dim str_new_usercode 'generare user code Dim int_random_number 'numero random Dim int_random_number_max 'valore massimo del numero randomico Dim int_random_number_min 'valore minimo del numero randomico Dim str_password 'password Dim rs_new_user 'Recordsheet per il nuovo utente Dim rs_check_username 'Recordsheet per controllare username 'Richiamo i valori str_wanted_username = Request.form("username") str_password = Request.form("pw1") 'Creo una nuova stringa SQL strSQL = "SELECT * FROM tbl_authors" 'Creo un nuovo RecordSet set rs_check_username=Server.CreateObject("ADODB.Recordset") 'Apro il recordset e eseguo SQL rs_check_username.Open strSQL,adoCon 'Eseguo un ciclo fino alla fine Do While NOT rs_check_username.EOF 'Set variable to hold a database username value str_db_username = rs_check_username("name") 'See l'username è già inserito nel database response.Redirect("errore.asp") If str_db_username = str_wanted_username Then Response.Redirect("errore.asp") 'passo al record successivo rs_check_username.MoveNext 'Loop Loop rs_check_username.Close Set rs_check_username = Nothing new_name = Request.form("username") new_email = Request.form("email") new_pass = Request.form("pw1") new_nome = Request.form("nome") new_cognome = Request.form("cognome") new_citta = Request.form("citta") new_provincia = Request.form("provincia") new_cap = Request.form("cap") new_authority = "user" new_date = Now() new_code = str_new_usercode new_pagina_web = Request.form("pagina_web") If new_name = "" OR new_email = "" OR new_pass = "" OR new_nome = "" OR new_cognome = "" OR new_citta = "" OR new_cap = "" Then emptyValue = True Else If Request.Form("pw1") <> Request.Form("pw2") Then badPass = True Else badPass = False End If emptyValue = False End If If emptyValue = False AND badPass = False Then 'Creo un numero random Randomize int_random_number_Min = 1 int_random_number_Max = 999999999 int_random_number = Int(((int_random_number_Max-int_random_number_Min+1) * Rnd) + int_random_number_Min) 'converto il numero in una stringa int_random_number = Cstr(int_random_number) 'concateno username e il numero random str_new_usercode = str_wanted_username + int_random_number 'Creo una nuova stringa SQL strsql="SELECT * FROM tbl_authors" 'Creo un nuovo recordset set rs_new_user = Server.CreateObject("ADODB.Recordset") rs_new_user.CursorType = 2 rs_new_user.LockType = 3 'apro recordsheet e eseguo la stringa SQL rs_new_user.open strsql,adocon 'setto recordsheet e aggiungo un nuovo record rs_new_user.AddNew 'Enter a new record into the database rs_new_user.Fields("name") = new_name rs_new_user.Fields("email") = new_email rs_new_user.Fields("pass") = new_pass rs_new_user.Fields("nome") = new_nome rs_new_user.Fields("cognome") = new_cognome rs_new_user.Fields("citta") = new_citta rs_new_user.Fields("provincia") = new_provincia rs_new_user.Fields("cap") = new_cap rs_new_user.Fields("authority") = "user" rs_new_user.Fields("dataregistrazione") = Now rs_new_user.Fields("code") = str_new_usercode rs_new_user.Fields("pagina_web") = Request.form("pagina_web") If conf_email = "False" Then rs_new_user.Fields("stato") = "Active" End If 'aggiorno il recordset rs_new_user.Update rs_new_user.Close set rs_new_user = Nothing curSubFolders = "" tempArray = Split(Replace(Request.ServerVariables("URL"), "\", "/"), "/") Dim i i = 0 For each chunk in tempArray i = i + 1 Next For j = 0 to (i-2) curSubFolders = curSubFolders & tempArray(j) & "/" Next If conf_email = "True" AND tipoMail <> "None" Then strFromName = pageTitle & " Webmaster" strFromEmail = adminEmail strRecipientsEmail = new_email strRecipientsName = new_name strSubject = pageTitle & " Registration" strMessage = "------------------------------------------" & vbCrLf & _ "Grazie per esserti registrato, " & strRecipientsName & "! Per completare la registrazione, inserisci un indirizzo email valido." & vbCrLf & _ "Per completare la registrazione, clikka sul seguente indirizzo:" & vbCrLf & _ " " & homePage & curSubFolders & "attivo.asp?userCode=" & str_new_usercode & vbCrLf & vbCrLf & _ "Grazie," & vbCrLf & pageTitle & " Webmaster" Select Case LCase(tipoMail) Case "aspemail" Set objNewMail = Server.CreateObject("Persits.MailSender") objNewMail.Host = mailServer objNewMail.FromName = strFromName objNewMail.AddReplyTo strFromEmail objNewMail.From = strFromEmail objNewMail.AddAddress strRecipientsEmail, strRecipientsName objNewMail.Subject = strSubject objNewMail.Body = strMessage On Error Resume Next '## Ignora Errore objNewMail.Send If Err <> 0 Then Err_Msg = Err_Msg & "
  • Impossibile spedire l'email: " & Err.Description & "
    • " End if Case "aspmail" Set objNewMail = Server.CreateObject("SMTPsvg.Mailer") objNewMail.FromName = strFromName objNewMail.FromAddress = strFromEmail 'objNewMail.AddReplyTo = strFromEmail objNewMail.RemoteHost = mailServer objNewMail.AddRecipient strRecipientsName, strRecipientsEmail objNewMail.Subject = strSubject objNewMail.BodyText = strMessage On Error Resume Next '## Ignora Errore SendOk = objNewMail.SendMail If not(SendOk) <> 0 Then Err_Msg = Err_Msg & "
  • Impossibile spedire l'email. Errore: " & objNewMail.Response & "
    • " End if Case "cdonts" Set objNewMail = Server.CreateObject ("CDONTS.NewMail") objNewMail.BodyFormat = 1 objNewMail.MailFormat = 0 On Error Resume Next '## Ignora Errore objNewMail.Send strFromEmail, strRecipientsEmail, strSubject, strMessage If Err <> 0 Then Err_Msg = Err_Msg & "
  • Impossibile spedire l'email. Errore: " & Err.Description & "
    • " End if On Error Resume Next '## Ignora Errore Case "cdosys" Set objMessage = CreateObject("CDO.Message") objMessage.Sender = strFromEmail objMessage.TextBody = strMessage objMessage.To = strFromEmail objMessage.Subject = strSubject objMessage.Send If Err <> 0 Then Err_Msg = Err_Msg & "
  • Impossibile spedire l'email. Errore: " & Err.Description & "
    • " End if On Error Resume Next '## Ignora Errore Case "chilicdonts" Set objNewMail = Server.CreateObject ("CDONTS.NewMail") On Error Resume Next '## Ignora Errore objNewMail.Host = mailServer objNewMail.To = strRecipientsEmail objNewMail.From = strFromEmail objNewMail.Subject = strSubject objNewMail.Body = strMessage objNewMail.Send If Err <> 0 Then Err_Msg = Err_Msg & "
  • Impossibile spedire l'email. Errore: " & Err.Description & "
    • " End if On Error Resume Next '## Ignora Errore Case "jmail" Set objNewMail = Server.CreateObject("Jmail.smtpmail") objNewMail.ServerAddress = mailServer objNewMail.AddRecipient strRecipientsEmail objNewMail.Sender = strFromEmail objNewMail.Subject = strSubject objNewMail.Body = strMessage objNewMail.Priority = 3 On Error Resume Next '## Ignora Errore objNewMail.Execute If Err <> 0 Then Err_Msg = Err_Msg & "
  • Impossibile spedire l'email. Errore: " & Err.Description & "
    • " End if Case "jmail4" Set objNewMail = Server.CreateObject("Jmail.Message") 'objNewMail.MailServerUserName = "mioUserName" 'objNewMail.MailServerPassword = "MiaPassword" objNewMail.From = strFromEmail objNewMail.FromName = strFromName objNewMail.AddRecipient strRecipientsEmail, strRecipientsName objNewMail.Subject = strSubject objNewMail.Body = strMessage On Error Resume Next '## Ignora Errore objNewMail.Send(mailServer) If Err <> 0 Then Err_Msg = Err_Msg & "
  • Impossibile spedire l'email. Errore: " & Err.Description & "
    • " End if Case "smtp" Set objNewMail = Server.CreateObject("SmtpMail.SmtpMail.1") objNewMail.MailServer = mailServer objNewMail.Recipients = strRecipientsEmail objNewMail.Sender = strFromEmail objNewMail.Subject = strSubject objNewMail.Message = strMessage On Error Resume Next '## Ignora Errore objNewMail.SendMail2 If Err <> 0 Then Err_Msg = Err_Msg & "
  • Impossibile spedire l'email. Errore: " & Err.Description & "
    • " End if End Select Set objNewMail = Nothing On Error Goto 0 Response.Redirect("benvenuto.asp") Else Session("tmpUN") = new_name Response.Redirect("login.asp?disp=login") End If End If End If %> <%=pageTitle%> - Registrazione
    7
    IL PORTALE DELLA

    FINANZA AGEVOLATA
     
    .
    6
    A
    LE LEGGI
    OPERATIVE
    2347 Leggi Nazionali
    24676 Leggi Regionali
    6547765 Leggi Europee
     
    224

    Le forme agevolative
    765

    Scegliere la legge

    2432   Gazzette e Bollettini Ufficiali
    654 Comunità europea G.U.C.E.
    654 Repubblica italiana G.U.R.I.
    6543 Per regione
    654 INDICI ISTAT

    cc


    PRIVACY POLICE di Contributi.it


    In questa pagina sono descritte le modalità di gestione del sito web in riferimento al trattamento dei dati personali dei visitatori e dei clienti che lo consultano.
    Si tratta di un'informativa resa anche ai sensi dell'art 13 del D.lgs. n. 196/2003 a coloro che interagiscono con i servizi web di Contributi.it accessibili per via telematica a partire dall'indirizzo http://www.contributi.it/ corrispondente alla pagina iniziale del sito ufficiale di Marketing Service Srl e delle eventuali consociate e partner.
    L'informativa è resa solo per il sito Contributi.it e non anche per altri siti web eventualmente consultati dall'utente tramite link.

    I PRINCIPI DI RIFERIMENTO
    In primis si desidera evidenziare che la Politica e gli Standard di Privacy utilizzati da Marketing Service Srl per la protezione dei dati personali sono fondati sui seguenti principi:

    PRINCIPIO DI TRASPARENZA
    Al momento del conferimento dei dati, secondo quanto previsto dall'art. 13 del Dlgs 196/03, viene fornita all'interessato un'informativa sulle finalità e modalità dei trattamenti, sul carattere obbligatorio o facoltativo del conferimento dei dati, sulle conseguenze del mancato conferimento, sui soggetti o sulle categorie di soggetti cui i dati personali possono essere comunicati e l'ambito di diffusione dei dati medesimi, sui diritti di cui all'art. 7 del Dlgs 196/03, sull'identità e sulla sede del titolare e del o dei responsabili del trattamento.

    PRINCIPIO DI PERTINENZA DELLA RACCOLTA
    I dati personali sono trattati in modo lecito e secondo correttezza; sono registrati per scopi determinati, espliciti e legittimi; sono pertinenti e non eccedenti le finalità del trattamento; sono conservati per il tempo necessario agli scopi della raccolta.

    PRINCIPIO DI FINALITÀ DELL'UTILIZZO
    Le finalità del trattamento dei dati personali, conseguente l'iscrizione al sito o ai forum o a altri sistemi, sono di ricerca, utilizzo del servizio web, e uso per fini di promozione delle attività di Marketing Service e partner e può esser ceduto a terzi per le finalità di cui sopra e sono rese note agli interessati tramite web. Eventuali nuovi trattamenti di dati, se estranei agli scopi dichiarati, sono attivati solo previa nuova informativa all'interessato ed eventuale richiesta di consenso, quando richiesto dal Dlgs 196/03. In ogni caso, i dati personali non sono comunicati a terzi o diffusi senza il preventivo consenso dell'interessato, salvo nei casi espressamente indicati in precedenza e dall'art. dall'art. 24 del Dlgs 196/03.

    PRINCIPIO DI VERIFICABILITÀ
    I dati personali sono quelli forniti dagli iscritti e di cui Marketing Service Srl non ha controllo di veridicità. Sono altresì organizzati e conservati in modo che sia data all'interessato la possibilità di conoscere, se lo desidera, quali dati sono stati raccolti e registrati, nonché di controllarne la qualità e richiederne l'eventuale correzione, integrazione, cancellazione, sempre tramite web o le forme consuete, per violazione di legge od opposizione al trattamento e di esercitare tutti gli altri diritti, ai sensi e nei limiti dell'art. 7 del Dlgs 196/03.

    LUOGO DEL TRATTAMENTO DEI DATI
    I trattamenti connessi ai servizi web di questo sito hanno luogo presso la sede operativa di Marketing Service Srl , viale San Gimignano, 6 Milano, e nelle sedi dei partner, delle consociate e eventuali terzi approvati esclusivamente da Marketing service Srl e da essi sono curati , oppure da eventuali incaricati di occasionali operazioni di manutenzione.

    TIPI DI DATI TRATTATI
    A seguito della consultazione di questo sito, possono essere trattati dati relativi a persone identificate o identificabili.
    I sistemi informatici e le procedure software preposte al funzionamento di questo sito web acquisiscono inoltre, nel corso del loro normale esercizio, alcuni dati personali la cui trasmissione è implicita nell'uso dei protocolli di comunicazione di Internet.
    Si tratta di informazioni che non sono raccolte per essere associate a interessati identificati, ma che per loro stessa natura potrebbero, attraverso elaborazioni ed associazioni con dati detenuti da terzi, permettere di identificare gli utenti.
    In questa categoria di dati rientrano gli indirizzi IP o i nomi a dominio dei computer utilizzati dagli utenti che si connettono al sito, gli indirizzi in notazione URI (Uniform Resource Identifier) delle risorse richieste, l'orario della richiesta, il metodo utilizzato nel sottoporre la richiesta al server, la dimensione del file ottenuto in risposta, il codice numerico indicante lo stato della risposta data dal server (buon fine, errore, ecc.) ed altri parametri relativi al sistema operativo e all'ambiente informatico dell'utente.
    Questi dati vengono utilizzati al solo fine di ricavare informazioni statistiche anonime sull'uso del sito e per controllarne il corretto funzionamento.
    L'invio facoltativo, esplicito e volontario di indirizzi di posta elettronica agli indirizzi indicati su questo sito comporta la successiva acquisizione dell'indirizzo del mittente, necessario per rispondere alle richieste, nonché degli eventuali altri dati personali inseriti nella missiva.

    COOKIES
    Dati personali degli utenti possono venir in proposito acquisiti dal sito.
    Può venir fatto uso di cookies per la trasmissione di informazioni vari o identificazioni utenti o qualt'altro.

    MODALITÀ DEL TRATTAMENTO
    I dati personali sono trattati con strumenti automatizzati per il tempo strettamente necessario a conseguire gli scopi per cui sono stati raccolti.
    Oltre al rispetto delle Misure Minime di Sicurezza di cui all'Allegato B del D.lgs. 196/03, vengono osservate specifiche misure di sicurezza al fine di evitare la perdita dei dati, usi illeciti o non corretti ed accessi non autorizzati.

    DIRITTI DEGLI INTERESSATI
    Si informa inoltre che, ai sensi dell'art. 7 del D.lgs. 196/2003, l'interessato al trattamento dei dati ha diritto:
    - di avere conferma, in modo intelligibile e gratuito, dell'esistenza o meno di dati personali che lo riguardano presso Marketing Service Srl;
    - di ottenere l'aggiornamento, la rettifica ovvero, quando vi ha interesse, l'integrazione dei dati;
    - di ottenere la cancellazione, la trasformazione in forma anonima o il blocco dei dati trattati in violazione di legge o dopo la cessata necessità di conservazione;
    - di opporsi al trattamento per motivi legittimi o al trattamento a fini di invio di materiale pubblicitario, vendita diretta, ricerche di mercato, comunicazioni commerciali.

    Per ogni richiesta in tema di privacy e per esercitare i diritti stabiliti dall'art. 7 del D.lgs. 196/2003 può scrivere a Marketing Service Srl, Viale San Gimignano, 6 20146 Milano


    8

    STRUMENTI
    OPERATIVI
    4 Leasing
    4 Lease-back
    3 Mutui
     
    2 Finanza straordinaria
    1

    Legge sabatini

     

    4
    Partner di 
    progetto di 

    45 444
    Google

     
    Vai ai links Siti utili
    79876 Servizi di utilità
    45 Web consulenza
    Vai ai links 867
    Vai ai links 63
    Vai ai links 5432
    :: Webdesign by Bonfanti - Donati
    Marketing Service non può essere ritenuta responsabile per danni diretti, accidentali o indiretti che possano essere causati
    dall'uso del sito contributi.it per le informazioni in esso contenute, nè potrà essere perseguibile per l'uso del contenuto del sito
    pubblicato in rete e per gli eventuali errori ed omissioni. Ogni diritto è riservato e la riproduzione è concessa previa approvazione o indicazione della fonte tramite la dicitura: "Fonte: Contributi.it" e relativo link di collegamento alla pagina di riferimento o la home-page.
    Marketing Service Srl Sede principale a Milano P.I. 08242770157: rich. iscr. Albo Med. Creditizi