[IndexOutOfRangeException: Index was outside the bounds of the array.]    LibStats.NamesStatistique.Stats1.StatPage()    LibStats.NamesStatistique.Stats1.Stats(String RefConc, String NomStat, Int16 infocookie, String CodeLang, String navigt, String os, Int16 DecalHServeur)    auto_besancon.Global.Session_Start(Object sender, EventArgs e) in c:\inetpub\wwwroot\auto-besancon\Global.asax.vb:171    System.Web.SessionState.SessionStateModule.RaiseOnStart(EventArgs e) +132    System.Web.SessionState.SessionStateModule.CompleteAcquireState() +514    System.Web.SessionState.SessionStateModule.BeginAcquireState(Object source, EventArgs e, AsyncCallback cb, Object extraData) +697    System.Web.AsyncEventExecutionStep.System.Web.HttpApplication+IExecutionStep.Execute() +66    System.Web.HttpApplication.ExecuteStep(IExecutionStep step, Boolean& completedSynchronously) +173 

Sub Application_Start(ByVal sender As Object, ByVal e As EventArgs)
' référence du client
Application("RefConc") = "a724" 'a724

'récupération des paramettres du client du client
Dim dr As SqlDataReader
Dim requete As String = "SELECT [N°VoitConc],[N°Departement],[N°Pays], EmailContact, ParcConc, AdresseSite, DecalHoraire FROM VoitConc WHERE (VoitConc.RefConc = '" & Application("RefConc") & "')"
dr = LibData.AccesBD.GetReader(requete)

While dr.Read()
Application("ParcConc") = dr("ParcConc")
Application("IdVoitConc") = dr("N°VoitConc")
Application("IdDepartement") = dr("N°Departement")
Application("IdPays") = dr("N°Pays")
Application("EmailContact") = dr("EmailContact")
Application("AdresseSite") = dr("AdresseSite")
Application("DecalHoraire") = dr("DecalHoraire")
End While
dr.Close()

End Sub

Sub Session_Start(ByVal sender As Object, ByVal e As EventArgs)

'**** DEBUT STATISTIQUES *****

Dim CodeLang, USER_AGENT, navigt, os As String
CodeLang = Request.ServerVariables("HTTP_ACCEPT_LANGUAGE")
USER_AGENT = Request.ServerVariables("HTTP_USER_AGENT")

If InStr(USER_AGENT, "Firebird") Then
navigt = "Firebird"
ElseIf InStr(USER_AGENT, "Crazy Browser") Then
navigt = "Crazy Browser"
ElseIf InStr(USER_AGENT, "AOL") Then
navigt = "AOL"
ElseIf InStr(USER_AGENT, "opera") Then
navigt = "opera"
ElseIf InStr(USER_AGENT, "Netscape") Then
navigt = "Netscape"
ElseIf InStr(USER_AGENT, "MSIE") Then
navigt = "MSIE"
Else
navigt = ""
End If

If InStr(USER_AGENT, "Windows") Then
os = "Windows"
ElseIf InStr(USER_AGENT, "Linux") Then
os = "Linux"
ElseIf InStr(USER_AGENT, "MAC") Then
os = "MAC"
ElseIf InStr(USER_AGENT, "SunOS") Then
os = "SunOS"
Else
os = ""
End If

'Récupération du cookie "dernieracces"
Dim infocookie As Int16 = 0
Dim Cook As HttpCookie
Cook = Request.Cookies("dernieracces")
If Not Cook Is Nothing Then 'cookies existe

'Verification du passage dans la journée par la date
If DateValue(Cook.Value) = DateValue(DateTime.Now.AddHours(Application("DecalHoraire"))) Then
'le client est déja passé dans la journée
infocookie = 1
Else
End If

Else
infocookie = 0
End If

'traitement des statistisques Class LibStats.CStats1.Stats
'Response.Write("RefConc = " & Application("RefConc") & "<br>")
'Response.Write("NomStat = " & Application("NomStat") & "<br>")
'Response.Write("infocookie = " & infocookie & "<br>")
'Response.Write("CodeLang = " & CodeLang & "<br>")
'Response.Write("navigt = " & navigt & "<br>")
'Response.Write("os = " & os & "<br>")
'Response.Write("DecalHoraire = " & Application("DecalHoraire") & "<br>")

Dim voObj As New Stats1
voObj.Stats(Application("RefConc"), Application("NomStat"), infocookie, CodeLang, navigt, os, Application("DecalHoraire"))

'Mise à jour du cookie
Dim MC As New HttpCookie("dernieracces", DateTime.Now)
MC.Expires = DateTime.Now.AddDays(1)
Response.Cookies.Add(MC)

'**** FIN STATISTIQUES *****

End Sub