Discussion :

[escafr]

voir mes replys juste en dessous..

dsl.

[escafr]

j'ai teste en faisant ca:

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
<table border="0" >
<tr>
	<td valign="top"><b>
	<%
	set rs = doSQL(str)
	do while not rs.eof
	%>
	<a href="view_profiles.asp?dep=<%=rs("ID")%>"><%=trim(rs("Name"))%></a>
	<%
		if (cint(session("HRRights")) = 0) then 
			response.Write "<a  href=view_profiles.asp?modify=" & rs("ID") & ">"
			response.write "<img alt="""& translate_site("Modify",false) & """ border=""0"" src='images/page.gif' />"
ligne 27  ->>>	response.Write "</a> <a   href=view_profiles.asp?delete=" & rs("ID") & ">"
			response.write "<img alt="""& translate_site("Delete",false) & """ border=""0"" src='images/delete.gif'  /></a>"
		end if
		rs.movenext
	loop
	rs.close
	set rs = nothing
	%>
	</b></td>
</tr>
</table>

directement..

et meme erreur:

Code :

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

1
2
3
4
5
6
All  
Microsoft VBScript runtime error '800a000d' 
 
Type mismatch: 'rs' 
 
/habitat/includes/profile_dep.asp, line 27

sauf que l'erreur est considere comme un lien...

alors la je suis perdu...

[Fiquet]

Parce que insert_dep_admin_mod_del n'est pas équivalent à insert_dep_admin_mod_rel

[escafr]

jv peter un cable, jai remis comme c'etait dans l'exemple de mon premier post a savoir:

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
<!--#include file="search_profile.asp"-->
<%
 
function insert_dep_admin_mod_del(rs)
 
	response.Write "<a  href=view_profiles.asp?modify=" & rs("id") & ">"
	response.write "<img alt="""& translate_site("Modify",false) & """ border=""0"" src='images/page.gif' />"
	response.Write "</a> <a   href=view_profiles.asp?delete=" & rs("id") & ">"
	response.write "<img alt="""& translate_site("Delete",false) & """ border=""0"" src='images/delete.gif'  /></a>"
 
end function
 
str = "Select ID , Name from department_desc"
%>
<table border="0" >
<tr>
	<td valign="top"><b>
	<%
	set rs = doSQL(str)
	do while not rs.eof
	%>
	<a href="view_profiles.asp?dep=<%=rs("ID")%>"><%=trim(rs("Name"))%></a>
	<%
		if (cint(session("HRRights")) = 0) then 
			insert_dep_admin_mod_del(rs)
		end if
ligne 27 >>>		rs.movenext  
	loop
	rs.close
	set rs = nothing
	%>
	</b></td>
</tr>
</table>

et maintenant l'erreur:

Code :

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

1
2
3
4
5
Microsoft VBScript runtime error '800a01a8' 
 
Object required 
 
/habitat/includes/profile_dep.asp, line 27

il va bien dans la fonction mais plante apres..

EDIT: Javoue Fiquet. dsl.. bon n'empeche maintenant ca plante plus loin

[escafr]

bon j'ai trouve.. c'etait tordu..

en gros:

je fais ca:

Code :

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

set rs = doSQL(str)

puis j'appelle la fonction:

Code :

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

insert_admin_mod_del(rs)

qui elle meme appelle:

Code :

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

1
2
3
translate_site("Modify",false) qui passe
 .. du code puis ..
translate_site("Delete",false) qui passe aussi

et translate_site qui elle meme fait :

Code :

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

1
2
3
set rs = dosql(sqlstr)
.. du code
rs.close

donc ca fait conflit semble t'il...

alors j'ai renomme mon premier rs en rs_dep et maintenant ca passe...

mais j'amerais comprendre.. Pkoi ca fait ca..
ca veut dire qu'on peut passer une variable d'une fonction a une autre si ils ont les meme noms?? ca me parait fou..

genre:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
 
function foo ()
 set rs = "blabla"
 bar ()
 response.write "foo:" & rs & "<br>"
 set rs = nothing
end function
 
function bar()
 set rs = "tutu"
 response.write "bar:" & rs & "<br>"
 set rs = nothing
end function

ne marcherait pas?? je vais tester ce code pour voir.. ca me parait bizarre..

[escafr]

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
<%
 
function foo ()
 set rs = CreateObject("Scripting.Dictionary")
 rs.Add "foo" , "foo"
 bar ()
 response.write "foo:" & rs("foo") & "<br>"
 response.write "bar:" & rs("bar") & "<br>"
 set rs = nothing
end function
 
function bar()
 set rs = CreateObject("Scripting.Dictionary")
 rs.Add "bar" , "bar"
 response.write "bar:" & rs("bar") & "<br>"
 response.write "foo:" & rs("foo") & "<br>"
 set rs = nothing
end function
 
foo()
%>

jviens de tester ca et heureusement il se passe ce que l'on attend:

Code :

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

1
2
3
4
bar:bar
foo:
foo:foo
bar:

si qqun une idee de mon pb alors??!