Sommaire

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")%>