Variable de session FireFox ok IE niet

[nicolasferraris]

Bonjour,

J'ai un petit soucis, j'ai des variables de session qui passe d'un asp à un autre.
- Sous Firefox, ça marche nickel
- Sous IE7, sans frames ça marche nickel
- Sous IE7, avec frames ça passe rien du tout

Une idée ?



Merci

[lapanne]

Aucune idée à priori, post du code

[nicolasferraris]

l'asp qui traite le formulaire (revuerecordnewemsUS.asp)

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
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
 
<%
'  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 
   Dim thenomfichier
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 "revuenewemsUS.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
thenomfichier = 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") = thenomfichier
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
 
 
	session("thenomfichier")=thenomfichier
	session("thenom")=thenom
	session("theprenom")=theprenom
	session("emaildepositaire")=theemail
	session("thenomarticle")=thenomarticle
 
 response.redirect ("revuemailemsUS.asp")
 
%>

l'asp qui envoie des mail de confirmation à celui qui a rempli le formulaire et à un administrateur (revuemailemsUS.asp)

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
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
   Dim thenomfichier
 
    thenomfichier=session("thenomfichier")
	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 = "abstract@emslibs.com"
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/"& thenomfichier &">"& thenomfichier &"</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 "abstract@emslibs.com"
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")
 
%>