caché un lien [Résolu]

[mademoizel]

Bonjour,

Je souhaiterai caché un lien a une seul condition que l'utilisateur ne soit pas client. Autrement dit, si l'utilisateur est client le lien n'est plus caché.

Merci d'avance!!

Voici mon code mais il ne fonctionne pas :

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
<%@ Language=VBScript %>
<%Set objConnexion = Server.CreateObject("ADODB.Connection")
	objConnexion.Provider = "Microsoft.Jet.OLEDB.4.0"
	objConnexion.ConnectionString = "Data Source=" &( "C:\Inetpub\wwwroot\SiteDVD\bd.mdb")
	objConnexion.Open 
 
	SQL="SELECT Nom,Prenom,Type " & _
		"FROM T_Client " & _
		"WHERE (Login='" & txtLogin & "') and (MotPasse='" & txtMotPasse & "')"
 
	set rstConnecte = objConnexion.Execute(SQL)
%>
<table>
	<tr>
		<td>
			<P align="center"><STRONG><FONT size="5">Menu</FONT></STRONG></P>
			<P> <A href="acceuil.asp">Acceuil</A><br>
				<A href= "film.asp">Film</A><BR>
			 	<A href="acteur.asp">Acteur</A><BR>
				<A href="realisateur.asp">Réalisateur</A><BR>
				<%(If session("estConnecte") = True) and (if rstConnecte("Type").value="Client") then%>
					<A href="Compte.asp">Modification du login et/ou du mot de passe</A></P>
				<%end if%>
 
		</td>
	</tr>
</table>

[Balise CODE rajoutée par Oluha]

[ryan]

Guten Taag,

En tout cas, il y a une ch'tite erreur de syntaxe dans le If. Ce devrait être:

Code :

1
2
 
<% If session("estConnecte")=True and  rstConnecte("Type").value="Client" then%>

Pour le reste, je n'ai rien vu qui devrait poser probleme si ta variable session("estconnecté") est bien un boolean. Si c'est une string, il faut des guillemets.


Ryan
Alles hat eine Ende nur die Wurst hat zwei...

[mademoizel]

Je te remercie ça marche maintenant

[Oluha]

pense à cliquer sur résolu