Créer une session

Informatique
	EXPERTISE, CONSEILS, FORMATION, ACCOMPAGNEMENT AU CHANGEMENT Solution Intranet, Extranet et Internet Accompagnement et formation au travail collaboratif Accès à la rubrique

Formation
	FORMATION SALARIES ETUDIANTS APPRENTIS. Bureautique, Internet, Sciences de la vie, Mathématique, Physiques Aéronautique Accès à la rubrique

Biologie
	RECHERCHE Biologie cellulaire Biologie moléculaire Génétique Accès à la rubrique

Aéronautique
	PILOTE PRIVE D'AVION Enseignant - aéronautique - aéromodélisme en savoir plus

Créer une session

<%@LANGUAGE="VBSCRIPT"%>
<%
Dim groupe_login
Dim login
Dim login2
Dim nom
Dim dte
Dim Datemois
Dim Datejour
Dim Dateannee
Dim Datemoment

Session.Timeout = 125

groupe_login = Request.Servervariables ("LOGON_USER")
login = split(groupe_login, "\")
login2 = login(1)
Session("login3") = UCase(cStr(login2))
response.write(Session("login3"))

nom = Session("login3")
dte = date()

'il faut convertir la date au format anglais pour la base de donnee
Datemois = DatePart("m",dte)
Datejour = DatePart("d",dte)
Dateannee = DatePart("yyyy",dte)

Datemoment = Datemois&"/"&Datejour&"/"&Dateannee

set Cnbd = Server.CreateObject("ADODB.Recordset")
Cnbd.ActiveConnection = "dsn=nombase;uid=password;"

Cnbd.Source = "INSERT INTO dbo.compteur (Compt_nom,Compt_date) Values ('"&nom&"','"&Datemoment&"')"
Cnbd.Open

response.Redirect("entre.asp")%>

  Internet
  Extranet
  Intranet

Développement
- Scripts Asp
- Script PHP
- Script CSS

Logiciels

Articles

LOI n°2004-575 du 21 juin 2004

eric desrentes : Informations légales