[Débutant] End of statement uniquement sur IE7

[crazymonkey]

Bonjour à tous et à toutes,

Alors voici mon erreur :

Microsoft VBScript compilation error'800a0401'
Exepected end of statement
/test/test.asp, line 425

Et voici les lignes 425-426 :

Code :

1
2
Execute("Total" & getCurrency(ModuleID) & " = Total" & getCurrency(ModuleID) & " + " & CurrencyFormat(PaymentItemsRS("Total")))
Execute("ToBePaid" & getCurrency(ModuleID) & " = ToBePaid" & getCurrency(ModuleID) & " + " & CurrencyFormat(PaymentItemsRS("ToBePaid")))

Le problème vient il réellement de ses lignes ?

Merci par avance.

[roro06]

Bonjour

Il doit manquer un end if ou quelque chose comme ça dans ta page

[tumoo]

Enfin bizarre que l'erreur se produise uniquement sur IE7

Peux tu montrer plus de code stp

[roro06]

oui, principalement celui de getCurrency() où doit être l'erreur (d'où le numéro de ligne erroné )

[crazymonkey]

Merci pour cette réponse rapide.

Le end if ou la balise fermante manquante est forcément situé avant la ligne 425 ?

Parce qu'en faite je dois debugguer un fichier de 500 lignes sans commentaires et avec des if end if, while, for etc ... partout. Ça m'aiderait si ça pouvait m'indiquer si l'erreur est avant ou après .

[crazymonkey]

Envoyé par tumoo

Enfin bizarre que l'erreur se produise uniquement sur IE7

Peux tu montrer plus de code stp

Je ne peux malheureusement pas montrer tout le code, déjà parce que c'est un grand fichier (574 lignes), et parce que je n'ai pas le droit. Si j'arrive à cibler plus précisément l'erreur je pourrais mettre le bloc en question.

Envoyé par roro06

oui, principalement celui de getCurrency() où doit être l'erreur (d'où le numéro de ligne erroné )

Alors pour le getCurrency, la seule chose que j'ai trouvé c'est :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
 
Function getRegistrationProperty(FunctionName, ModuleID)
		if(FunctionName = "getCurrency") then
			Dim SQLQuery, RS, PropertyValue
			OpenConnection()
			'Dim ListName
			'ListName = "Currency"
			Dim MyModuleEvent 'II_Registration, II_Accommodation, II_Sessions, II_SocialProgram, II_Ancillary
			Select Case CInt(ModuleID)
				Case 13 ' Registration
					MyModuleEvent = "II_Registration"
				Case 14 ' Hotel
					MyModuleEvent = "II_Accommodation"
				Case 15 ' Tour
					MyModuleEvent = "II_SocialProgram"
				Case 16 ' Journal
					MyModuleEvent = "II_Ancillary"
				Case 17 ' Session
					MyModuleEvent = "II_Sessions"
				Case 18 ' Membership
					MyModuleEvent = ""
				Case 19 ' Session
					MyModuleEvent = ""
			End Select
 
			SQLQuery = "SELECT PropertyValue FROM Event WHERE PropertyName = '" & MyModuleEvent & "'"
			Set RS = dbiEvent.Execute(SQLQuery)
			If NOT RS.EOF Then
				PropertyValue = RS("PropertyValue")
				getRegistrationProperty = PropertyValue
			else
				getRegistrationProperty = ""
			End If
			Set RS = Nothing
		End If
	End function

[tumoo]

La fonction peut être partout, logiquement, elle peut être au début

comme l'a dit roro06, l'erreur doit venir de getCurrency(), ça peut aussi venir de CurrencyFormat()
tu peux nous montrer le code de ces fonctions stp

[crazymonkey]

Pas de problème pour getCurrency voir au dessus et pour CurrencyFormat :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Function CurrencyFormat(value)
	Dim tempStr, tempValue
	If Trim(value) <> "" And IsNumeric(value) Then
		tempValue = value - 0
		tempValue = (CLng(tempValue * 100)) / 100
		If CLng(tempValue) = tempValue Then
			CurrencyFormat = tempValue & ".00"
		Elseif CLng(tempValue * 10) = tempValue * 10 Then
			CurrencyFormat = tempValue & "0"
		Else
			CurrencyFormat = tempValue
		End If
	Else
		CurrencyFormat = "0"
	End If
End Function

[tumoo]

Tu devrais avoir une fonction getCurrency()

Tu as des includes dans ton fichier ? (<!--#include file="tonFichier.asp"--> en début de fichier

Si oui, la fonction y est peut être présente

[crazymonkey]

Il y a des includes, j'ai fais le tour et la seule chose que j'ai trouvé sur getCurrency est ce que j'ai posté :/.

Les includes sont ils case sensitive ? Un de mes includes est déclaré de cette manière :

Code :

<!--#INCLUDE FILE="databaseFunctions.asp"-->

Et le fichier se nomme DatabaseFunctions.asp.

[tumoo]

Envoyé par crazymonkey

Il y a des includes, j'ai fais le tour et la seule chose que j'ai trouvé sur getCurrency est ce que j'ai posté :/.

Les includes sont ils case sensitive ?

Non

Envoyé par crazymonkey

Un de mes includes est déclaré de cette manière :

Code :

<!--#INCLUDE FILE="databaseFunctions.asp"-->

Et le fichier se nomme DatabaseFunctions.asp.

Cherche dans ce fichier si la fonction n'y est pas

[crazymonkey]

Elle n'y est pas. La seule chose que j'ai trouvé sur getCurrency je l'ai posté un peu plus haut.

[roro06]

Il y a forcément une fonction nommée getCurrency() quelque-part puisque tu l'appelle dans ton script

[crazymonkey]

Je vais tenter de retrouver cette fonction alors (=

[kaiser59]

Salut,

Envoyé par crazymonkey

Bonjour à tous et à toutes,

Alors voici mon erreur :



Et voici les lignes 425-426 :

Code :

Le problème vient il réellement de ses lignes ?

Merci par avance.

Pour savoir, met les deux lignes en commentaire.

Comme le dit roro tu as forcement un fonction getCurrency elle n'est pas tombé du ciel toute seule

[crazymonkey]

Re,

Merci à tous pour aide.

J'ai trouvé la fonction getCurrency :

Code :

1
2
3
4
 
Function getCurrency(ModuleID)
     getCurrency = getRegistrationProperty("getCurrency", ModuleID)
End Function

Et voici la fonction getRegistrationProperty :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Function getRegistrationProperty(FunctionName, ModuleID)
		if(FunctionName = "getCurrency") then
			Dim SQLQuery, RS, PropertyValue
			OpenConnection()
			'Dim ListName
			'ListName = "Currency"
			Dim MyModuleEvent 'II_Registration, II_Accommodation, II_Sessions, II_SocialProgram, II_Ancillary
			Select Case CInt(ModuleID)
				Case 13 ' Registration
					MyModuleEvent = "II_Registration"
				Case 14 ' Hotel
					MyModuleEvent = "II_Accommodation"
				Case 15 ' Tour
					MyModuleEvent = "II_SocialProgram"
				Case 16 ' Journal
					MyModuleEvent = "II_Ancillary"
				Case 17 ' Session
					MyModuleEvent = "II_Sessions"
				Case 18 ' Membership
					MyModuleEvent = ""
				Case 19 ' Session
					MyModuleEvent = ""
End Select
 
	SQLQuery = "SELECT PropertyValue FROM T_Event WHERE PropertyName = '" & MyModuleEvent & "'"
			Set RS = dbiEvent.Execute(SQLQuery)
			If NOT RS.EOF Then
				PropertyValue = RS("PropertyValue")
				getRegistrationProperty = PropertyValue
			else
				getRegistrationProperty = ""
			End If
			Set RS = Nothing
		End If
	End function

@Kaiser59 :

Merci pour l'astuce. En commentant ces deux lignes le bug ne se manifeste pas. Je sais maintenant que le problème vient de ces lignes, mais je n'arrive toujours pas à le localiser précisement :/.