<%
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
%>
Partager