Global asax [Résolu]

Signaler
Messages postés
121
Date d'inscription
lundi 20 octobre 2003
Statut
Membre
Dernière intervention
24 juin 2010
-
Messages postés
121
Date d'inscription
lundi 20 octobre 2003
Statut
Membre
Dernière intervention
24 juin 2010
-
Bonjour à tous,
je viens de mettre un site en ligne et j'ai un problème par rapport un array dans mon global.asax.

Après transfert de mes modifs (dll et autres fichiers) sur le serveur, la premiere connection fonctionne sans problème. Si je referme mon navigateur et que je me reconnecte à nouveau, il génère l'erreur ci-dessous :

Server Error in '/' Application.
<HR width= "100%" color=silver SIZE=1>


Index was outside the bounds of the array.
Description: An unhandled exception occurred during the execution of the current web request. Please review the stack trace for more information about the error and where it originated in the code.

Exception Details: System.IndexOutOfRangeException: Index was outside the bounds of the array.

Source Error:


An unhandled exception was generated during the execution of the current web request. Information regarding the origin and location of the exception can be identified using the exception stack trace below.


Stack Trace:


[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&amp; completedSynchronously) +173



Mon fichier global asax (l'erreur est en rouge)



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") & "
")
'Response.Write("NomStat = " & Application("NomStat") & "
")
'Response.Write("infocookie = " & infocookie & "
")
'Response.Write("CodeLang = " & CodeLang & "
")
'Response.Write("navigt = " & navigt & "
")
'Response.Write("os = " & os & "
")
'Response.Write("DecalHoraire = " & Application("DecalHoraire") & "
")



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

Thierry

3 réponses

Messages postés
121
Date d'inscription
lundi 20 octobre 2003
Statut
Membre
Dernière intervention
24 juin 2010

Un problème de declartion de tableau en shared dans une classe appelée par mon global.asax

Je coche la réponse acceptée.

Merci,

Thierry
Messages postés
121
Date d'inscription
lundi 20 octobre 2003
Statut
Membre
Dernière intervention
24 juin 2010

J'ai trouvé mon erreur!
Merci de ne pas répondre à ce message.

Thierry
Messages postés
1642
Date d'inscription
samedi 6 novembre 2004
Statut
Modérateur
Dernière intervention
28 avril 2011
3
Salut,



Met toi un "Réponse Acceptée" à toi même, pour dire que le problème est résolu



Simple curiosité : quel était le problème, en fait ??


Nurgle