Bonjour,
Je demande votre aide car après pas mal de recherche je ne sais plus quoi faire et je bloque sur ce problème.
Je suis en train de faire migrer un "progiciel" (c'est à dire un site web entièrement personnalisable à l'aide d'interfaces...) d'un serveur à un autre.
J'ai déjà résolu pas mal de mes problème mais la je suis confronté à l'erreur :
[QUOTE]error '80020009'
/site1/site/activite/fiche_bien_modif.asp, line 62 [/QUOTE]
quand je veux créer une nouvelle page par l'interface (la page est bien crée mais j'arrive sur cette page d'erreur)
Je suis complétement bloqué. Je vous met le code du fichier ci-dessous :
[QUOTE]<%
if session("langue") = 1 then
set Con = Server.CreateObject("ADODB.Connection")
con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../clients/epa1971/outpost.mdb")
set connstring = Server.CreateObject("ADODB.Recordset")
elseif session("langue") = 2 then
set Con = Server.CreateObject("ADODB.Connection")
con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../clients/"&session("password")&"/outpost-langue2.mdb")
set connstring = Server.CreateObject("ADODB.Recordset")
elseif session("langue") = 3 then
set Con = Server.CreateObject("ADODB.Connection")
con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../clients/"&session("password")&"/outpost-langue3.mdb")
set connstring = Server.CreateObject("ADODB.Recordset")
elseif session("langue") = 4 then
set Con = Server.CreateObject("ADODB.Connection")
con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../clients/"&session("password")&"/outpost-langue4.mdb")
set connstring = Server.CreateObject("ADODB.Recordset")
elseif session("langue") = 5 then
set Con = Server.CreateObject("ADODB.Connection")
con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../clients/"&session("password")&"/outpost-langue5.mdb")
set connstring = Server.CreateObject("ADODB.Recordset")
end if
%>
<%
response.buffer=true
set rs5 = server.createobject("ADODB.Recordset")
sql5 = "select * from bouton_lien"
rs5.open sql5,con,2,3,1
%>
<%
session("id")=request("id")
id=session("id")
login_intranet=session("login_intranet")
SQL_INTRANET = "SELECT * FROM INTRANET WHERE login_intranet LIKE '" & login_intranet & "' "
sql = "select * from biens where id like '"&id&"'"
set rs = con.execute(SQL)
set rs_INTRANET = con.execute(SQL_INTRANET)
set rs1 = server.createobject("ADODB.Recordset")
sql1 = "select * from test_maj"
rs1.open sql1,con,2,3,1
set rs1 = con.execute(SQL1)
if rs("dossier")<> "non" then
if rs_INTRANET.EOF then
Response.Redirect "login_membre.htm"
else
end if
if session("dossier_intranet") <> rs("dossier") then
response.redirect"login_membre.htm"
end if
else
end if
a=rs("dossier")
%>
<html>
<head>
<%if rs5("lien_activite")="../activite/fiche_vierge.asp" then
response.redirect"fiche_vierge.asp"
end if%>
<%if rs5("lien_activite")="../activite/fiche_bien2.asp" then
response.redirect"fiche_bien2.asp"
end if%>
<%if rs5("lien_activite")="../activite/fiche_menu.asp" then
response.redirect"../gd/fiche_menu_modif.asp"
end if%>
<%if rs5("lien_activite")="../activite/fiche_menu_deroulant.asp" then
response.redirect"../gd/fiche_menu_deroulant_modif.asp"
end if%>
<% rs.close
set rs = nothing
rs1.close
set rs1 = nothing
rs5.close
set rs5 = nothing
con.close
set con=nothing
%>[/QUOTE]
et l'erreur se situe dans cette ligne :
[QUOTE]if rs("dossier")<> "non" then [/QUOTE]
Un grand merci d'avance à ceux qui s'attarderont sur mon problème.
++