<% ' *** Validate request to log in to this site. MM_LoginAction = Request.ServerVariables("URL") If Request.QueryString<>"" Then MM_LoginAction = MM_LoginAction + "?" + Server.HTMLEncode(Request.QueryString) MM_valUsername=CStr(Request.Form("textfield")) If MM_valUsername <> "" Then MM_fldUserAuthorization="" MM_redirectLoginSuccess="areariservata.asp" MM_redirectLoginFailed="errorelogin.asp" MM_flag="ADODB.Recordset" set MM_rsUser = Server.CreateObject(MM_flag) MM_rsUser.ActiveConnection = MM_eelst_STRING MM_rsUser.Source = "SELECT Login, Password, Cognome,Nome " If MM_fldUserAuthorization <> "" Then MM_rsUser.Source = MM_rsUser.Source & "," & MM_fldUserAuthorization MM_rsUser.Source = MM_rsUser.Source & " FROM dbo.Soci WHERE Login='" & Replace(MM_valUsername,"'","''") &"' AND Password='" & Replace(Request.Form("textfield2"),"'","''") & "'" MM_rsUser.CursorType = 0 MM_rsUser.CursorLocation = 2 MM_rsUser.LockType = 3 MM_rsUser.Open If Not MM_rsUser.EOF Or Not MM_rsUser.BOF Then ' username and password match - this is a valid user Session("MM_Username") = MM_valUsername Session("Nome") = MM_rsUser("Nome") & " " & MM_rsUser("Cognome") If (MM_fldUserAuthorization <> "") Then Session("MM_UserAuthorization") = CStr(MM_rsUser.Fields.Item(MM_fldUserAuthorization).Value) Else Session("MM_UserAuthorization") = "" End If if CStr(Request.QueryString("accessdenied")) <> "" And false Then MM_redirectLoginSuccess = Request.QueryString("accessdenied") End If MM_rsUser.Close Response.Redirect(MM_redirectLoginSuccess) End If MM_rsUser.Close Response.Redirect(MM_redirectLoginFailed) End If %> Unitiberio:: UNIVERSITÀ POPOLARE “VINCENZO TIBERIO”
UniversitÓ Popolare Vincenzo Tiberio.net
Cosa è
Aree di Intervento
Didattica
Didattica
I Ns Clienti
Organi
I Nostri Partner

EMAIL

www.unitiberio.it

docenti@unitiberio.it

formazione@unitiberio.it

segreteria@unitiberio.it



British School Napoli British School Napoli


Regione Campania Pubblica Istruzione Università di Cambridge
Netminds.it

Università Popolare “Vincenzo Tiberio”

Libero Ateneo per lo sviluppo socio-economico

 
Iscriviti alla mailing list, riceverai tutte
le novità sui corsi e le attività dell'ente!


La Tua email:
La tua email sarà utilizzata ESCLUSIVAMENTE per inviarti NEWS <% if request.form("emailing") = "vero" then ' execute the insert set MM_rsUser = Server.CreateObject("ADODB.Recordset") MM_rsUser.ActiveConnection = "Provider=SQLOLEDB;Data Source=localhost;Database=unitiberio;User ID=Collegatore; Password=goldy99;" MM_rsUser.Source = "SELECT * FROM dbo.Utenti WHERE EMAIL='" & request.form("email") & "' " MM_rsUser.CursorType = 2 MM_rsUser.CursorLocation = 2 MM_rsUser.LockType = 3 MM_rsUser.Open if MM_rsUser.eof then Set MM_editCmd = Server.CreateObject("ADODB.Command") MM_editCmd.ActiveConnection = "Provider=SQLOLEDB;Data Source=localhost;Database=UniversitÓ Popolare Vincenzo Tiberio;User ID=Collegatore; Password=goldy99;" MM_editCmd.CommandText = "INSERT INTO Utenti (EMAIL,datareg) values('" & request.form("email") & "','" & request.form("datareg") & "')" MM_editCmd.Execute MM_editCmd.ActiveConnection.Close response.write("REGISTRAZIONE AVVENUTA CON SUCCESSO") else response.write("EMAIL GIA' PRESENTE IN ARCHIVIO") end if MM_rsUser.close end if %>

INIZIO CORSI INFORMATICA
MICROSOFT IC3 / MOS


CALENDARIO CORSI E CONVEGNI


L'UniversitÓ Popolare Vincenzo Tiberio

  • Ministero della Pubblica Istruzione
  • AIBSE - Associazione Internazionale British Schools
  • Università di Cambridge - Local Examinator Syndicate
  • MEC Center Microsoft

Aree di Intervento:

  • Formazione Continua Giovani ed Adulti
    Area Informatica
    Area Automazione d'Ufficio
    Area Marketing & Business
    Area Imprenditoria & Contabilità
    Area Lingua Inglese
  • Formazione Superiore
  • Formazione Continua del Personale della Scuola
FAQ
Contatti
Dove Siamo
Link Utili