voir mes replys juste en dessous..
dsl.
voir mes replys juste en dessous..
dsl.
j'ai teste en faisant ca:
directement..
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>
et meme erreur:
sauf que l'erreur est considere comme un lien...
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
alors la je suis perdu...
Parce que insert_dep_admin_mod_del n'est pas équivalent à insert_dep_admin_mod_rel
jv peter un cable, jai remis comme c'etait dans l'exemple de mon premier post a savoir:
et maintenant l'erreur:
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>
il va bien dans la fonction mais plante apres..
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
EDIT: Javoue Fiquet. dsl.. bon n'empeche maintenant ca plante plus loin
bon j'ai trouve.. c'etait tordu..
en gros:
je fais ca:
puis j'appelle la fonction:
Code : Sélectionner tout - Visualiser dans une fenêtre à part set rs = doSQL(str)
qui elle meme appelle:
Code : Sélectionner tout - Visualiser dans une fenêtre à part insert_admin_mod_del(rs)
et translate_site qui elle meme fait :
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
donc ca fait conflit semble t'il...
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 set rs = dosql(sqlstr) .. du code rs.close
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:
ne marcherait pas?? je vais tester ce code pour voir.. ca me parait bizarre..
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
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
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() %>
si qqun une idee de mon pb alors??!
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4 bar:bar foo: foo:foo bar:
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager