Erreur HTTP 500

**nicolasferraris** · 08/03/2007, 10h06

Bonjour,
J'ai erreur HTTP 500 sous IE alors que ca marche très bien sous Firefox avec le code ci-dessous

Quelqu'un a t'il une idée ?

Merci

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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
 
<%
'  Variables
'  *********
 
   Dim Conn
   Dim SQL
   Dim Rs
   Dim thenum
   Dim thelog
   Dim thepass
   Dim i
   Dim thenom
   Dim theprenom
   Dim theemail
   DIm thenomarticle
 
    nomfichier=session("nomfichier")
	thenom=session("thenom")
	theprenom=session("theprenom")
	thenomarticle=session("thenomarticle")
	theemaildepositaire = session("emaildepositaire")
 
Set conn = Server.CreateObject("ADODB.Connection")
 
connstring="DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ=" & Server.MapPath(".") & "/../admin/ems07.mdb" 
conn.Open connstring 
 
'**************** Envoi mail aux Admin et Superadmin *******************************************************
 
Set JMail = Server.CreateObject("Persits.MailSender") 
 
  ' Ne pas toucher sujet du mail
 Subject = "Call for paper - EMSLIBS 2007"
 
' Ne pas toucher ce parametre adresse du serveur SMTP 
 JMail.Host = "smtp.internet-fr.net" 
 
' Ne pas toucher ces parametres adresse du demandeur et sujet du mail defini ci dessus
JMail.From = theemaildepositaire
JMail.Subject = Subject 
JMail.AddAddress "abstract@emslibs.com", "Euradif"
JMail.AddCC "emslibs2007@cea.fr" ,  "PLANI"
 
JMail.Body = body                      
 
'codage type html
JMail.IsHTML = True 
 
 
'définition du corp du texte
Dim Ct
Ct="<html>"
ct=ct&"<body>"
Ct = ct&"<p>Hello,</p><p>The file <a href=http://www.analyses.fr/upload/"& nomfichier &">"& nomfichier &"</a></p><p>has been successfully saved in the call for paper rubric</p><p>Nom du dépositaire: <a href=mailto:" & theemaildepositaire & ">" & thenom &" " & theprenom &"</a></p><p>Nom du résumé : "& thenomarticle &"</p><p>See you soon on (<a href=http://www.emslibs.com>www.emslibs.com</a>)</p>"
Ct=ct&"</body>"
ct=ct&"</html>"
JMail.Body = ct
 
JMail.Priority = 3 
 
 
 
JMail.Send
 
set Jmail=nothing
 
'*************************Envoi  mail au depositaire*************************************************************
 
'
Set JMail = Server.CreateObject("Persits.MailSender") 
 
  ' Ne pas toucher sujet du mail
 Subject = "Call for paper - EMSLIBS 2007"
 
' Ne pas toucher ce parametre adresse du serveur SMTP 
 JMail.Host = "smtp.internet-fr.net" 
 
' Ne pas toucher ces parametres adresse du demandeur et sujet du mail defini ci dessus
JMail.From =  "abstract@emslibs.com"
JMail.Subject = Subject 
JMail.AddAddress theemaildepositaire
JMail.Body = body                       
 
'codage type html
JMail.IsHTML = True 
 
 
'définition du corp du texte
Dim Ct1
Ct1="<html>"
ct1=ct1&"<body>"
Ct1 = ct1&"<p>Hello,</p><p>Your file has been successfully saved.</p><p>See you soon on(<a href=www.emslibs.com>www.emslibs.com</a>)</p>"
 
Ct1=ct1&"</body>"
ct1=ct1&"</html>"
JMail.Body = ct1
 
JMail.Priority = 3 
 
 
 
JMail.Send
 
set Jmail=nothing
 
 
 
response.redirect ("revueconfirmuploademsUS.asp")
 
%>

**Poussy-Puce** · 08/03/2007, 12h04

Bonjour,

HTTP 500 n'est pas l'erreur par défaut de IE?

Si tu va ds Outils --> Option Internet --> Avancé --> Sous la section Navigation, décoche Afficher des messages d'erreur HTTP simplifiés.

As-tu toujours le même message ? Si oui, assure toi que l'url que tu as être est bonne, si oui... heu.... on verra!

**nicolasferraris** · 08/03/2007, 13h58

Ok ça me permet de debuggeur.

Du coup il me mais l'erreur suivante :

"Microsoft VBScript runtime error '800a0035'

File not found

/revue/revuerecordnewemsUS.asp, line 128 "

Cela correspond à la ligne "set filePt = FSO.getFile(dir &"\Upload\" & up)"

dans le code ci-dessous

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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
 
<%
'  Variables
'  *********
   Dim mySmartUpload
   Dim intCount
   Dim Conn
   Dim SQL
   Dim Rs
   Dim file
   Dim thenum
   Dim i
   Dim thenom
   Dim theprenom
   Dim theemail
   Dim thenomarticle
 
Set conn = Server.CreateObject("ADODB.Connection")
 
connstring="DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ=" & Server.MapPath(".") & "/../admin/ems07.mdb" 
conn.Open connstring 
 
 
 
   sql = "SELECT * from upload "
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 1, 3
 
'On Error Resume Next
Set mySmartUpload = Server.CreateObject("Persits.Upload.1")
 
   mySmartUpload.SetMaxSize 2000000, True
   mySmartUpload.IgnoreNoPost = True  
   mySmartUpload.SaveVirtual "../Upload/" 
 
 if instr(mySmartUpload.Form("emaildepositaire"),"@")=0 or instr(mySmartUpload.Form("emaildepositaire"),".")=0 then response.redirect "revuenewems.asp?email=bad" end if
 
if mySmartUpload.Form("nomarticle")="" or mySmartUpload.Form("genredepositaire")="" or mySmartUpload.Form("nomdepositaire")="" or mySmartUpload.Form("prenomdepositaire")="" or mySmartUpload.Form("adressedepositaire")="" or mySmartUpload.Form("cpdepositaire")="" or mySmartUpload.Form("villedepositaire")="" or mySmartUpload.Form("paysdepositaire")="" or mySmartUpload.Form("teldepositaire")="" or mySmartUpload.Form("orgadepositaire")="" or mySmartUpload.Form("emaildepositaire")="" or mySmartUpload.Form("nomdepositaire")="" or mySmartUpload.Form("prenomdepositaire")="" or mySmartUpload.Form("presentation")="" then response.redirect "revuenewems.asp?valid=bad" end if
 
 
 
 
 
'Set File = mySmartUpload.Files("fichier")
'Set File = Upload.Files("FILE1")
 
 
 
For Each toto in mySmartUpload.Files
thenomarticle = mySmartUpload.Form("nomarticle")
thenom = mySmartUpload.form("nomdepositaire")
theprenom = mySmartUpload.form("prenomdepositaire")
theemail = trim(mySmartUpload.Form("emaildepositaire"))
up = toto.FileName
nomfichier = thenom&"_"&day(date)&"_"&month(date)&"_"&year(date)&toto.Ext
'File.FileName = nomfichier
'For each file In File1
 
 
 
 
 
rs.addnew
num = rs.fields("num")
'file.FileToField Rs.Fields("fichier")
Rs.fields("fichier") = nomfichier
Rs.fields("taille") = toto.Size
rs.fields("nomarticle")=mySmartUpload.Form("nomarticle")
rs.fields("genredepositaire")=mySmartUpload.Form("genredepositaire")
rs.fields("nomdepositaire")=mySmartUpload.Form("nomdepositaire")
rs.fields("prenomdepositaire")=mySmartUpload.Form("prenomdepositaire")
rs.fields("adressedepositaire")=mySmartUpload.Form("adressedepositaire")
rs.fields("cpdepositaire")=mySmartUpload.Form("cpdepositaire")
rs.fields("villedepositaire")=mySmartUpload.Form("villedepositaire")
rs.fields("paysdepositaire")=mySmartUpload.Form("paysdepositaire")
rs.fields("teldepositaire")=mySmartUpload.Form("teldepositaire")
rs.fields("faxdepositaire")=mySmartUpload.Form("faxdepositaire")
rs.fields("orgadepositaire")=mySmartUpload.Form("orgadepositaire")
rs.fields("labodepositaire")=mySmartUpload.Form("labodepositaire")
rs.fields("emaildepositaire")=mySmartUpload.Form("emaildepositaire")
rs.fields("login")=mySmartUpload.Form("nomdepositaire")
rs.fields("password")=mySmartUpload.Form("prenomdepositaire")
rs.fields("presentation")=mySmartUpload.Form("presentation")
rs.fields("classementthematique")=mySmartUpload.Form("classementthematique")
rs.fields("version")="1"
rs.fields("datearticle")=date()
rs.fields("publicationrevue")="non"
thelog = mySmartUpload.Form("login")
thepass = mySmartUpload.Form("password")
rs.update
 
 
 
 
Next
 
 
 
 
 
   If Err Then
 
Response.Write("<b>Erreur : </b><br>This file is not a text format file or the size of your file exceeds the authorized size (2Mo)<br> Clic on Back in your browser")
 
 
else
 
' Fermeture de l'objet rs
rs.close
set rs=nothing
 
 
Set rs1 = Server.CreateObject("ADODB.Recordset")
rs1.Open sql, conn, 3, 3
 
rs1.movelast
thenum = rs1("num")
fichiermodif = thenum&"_"&nomfichier
 
SQL = "UPDATE upload SET fichier='"&fichiermodif
 
SQL= SQL & "' WHERE num = " & thenum
 
set myRCset = conn.Execute (SQL,nb,1)
 
 
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
dir = Server.MapPath("../")
set filePt = FSO.getFile(dir &"\Upload\" & up)
 
filePt.Move dir &"\Upload\" & fichiermodif 
 
 
	session("nomfichier")=fichiermodif
	session("thenom")=thenom
	session("theprenom")=theprenom
	session("emaildepositaire")=theemail
	session("thenomarticle")=thenomarticle
 
 response.redirect ("revuemailemsUS.asp")
end if
%>

**Poussy-Puce** · 08/03/2007, 14h18

C'est qu'il ne trouve pas ton fichier!
Assure toi qu'il n'y a pas de blanc ds tes variables avec un trim(). Ensuite fais un response.write de ton path de fichier! Assure toit encore qu'il existe bien!

Y'a une commande FSO qui dit: FileExist, utilise là pour déboguer!

Boucle a travers ton répertoire et liste les fichiers pour voir si ton fichier si trouve! Avec mon hyperlien tu devrais trouver tous les outils!

Tout ce que tu peux faire avec FSO:
http://www.w3schools.com/asp/asp_ref_filesystem.asp

**nicolasferraris** · 08/03/2007, 14h25

Merci, je vais essayer, mais pourquoi ça marche avec Fire Fox ?

**Poussy-Puce** · 08/03/2007, 15h27

Hummm, j'aimerais vraiment te répondre, mais c'est à force de tester que tu va découvrir!

Si c'est une image, je sais que lorsqu'elles sont en mode de couleurs CMJN à la place de RVB, explorer est incapable de les lire.

Mais si c'est pas une image, fait les tests, regarde si quand tu listes les fichiers du répertoire tu vois bien le fichier, et si oui c'est certainement un propriété du fichier qui pose problème à IE. Donc fait une recherche Google de l'extension de ton fichier + IE!

**nicolasferraris** · 09/03/2007, 09h45

Merci pour tout

Erreur HTTP 500

ASP

Discussions similaires

Partager

Partager