[Débutant] End of statement uniquement sur IE7

**crazymonkey** · 11/08/2011, 14h23

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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** · 11/08/2011, 14h42

Bonjour

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

**tumoo** · 11/08/2011, 14h45

Enfin bizarre que l'erreur se produise uniquement sur IE7

Peux tu montrer plus de code stp

**roro06** · 11/08/2011, 14h48

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

)

**crazymonkey** · 11/08/2011, 14h56

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** · 11/08/2011, 14h59

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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** · 11/08/2011, 15h08

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** · 11/08/2011, 15h12

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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** · 11/08/2011, 15h17

Tu devrais avoir une fonction getCurrency()

Tu as des includes dans ton fichier ? ( en début de fichier

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

**crazymonkey** · 11/08/2011, 15h28

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Et le fichier se nomme DatabaseFunctions.asp.

**tumoo** · 11/08/2011, 15h37

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Et le fichier se nomme DatabaseFunctions.asp.

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

**crazymonkey** · 11/08/2011, 16h04

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

**roro06** · 11/08/2011, 16h29

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

**crazymonkey** · 11/08/2011, 17h11

Je vais tenter de retrouver cette fonction alors (=

**kaiser59** · 14/08/2011, 20h00

Salut,

Envoyé par crazymonkey

Bonjour à tous et à toutes,

Alors voici mon erreur :

Et voici les lignes 425-426 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

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** · 19/08/2011, 19h01

Re,

Merci à tous pour aide.

J'ai trouvé la fonction getCurrency :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Et voici la fonction getRegistrationProperty :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :/.

[Débutant] End of statement uniquement sur IE7

ASP

Discussions similaires

Partager

Partager