j'ai besoin avec l'email de l'utilisateur connecté sans l'afficher sur la page comment cacher ce code

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
 
<%
						dim c
						dim RD
						dim SQ 
						Set c = Server.CreateObject("ADODB.Connection")
						Set RD  = Server.createobject("ADODB.Recordset")
						c.Open session("nomDNS"),"PYRA","PYRADBA"
						SQ = "select nom,prenom,email,login from logi where login = '" & Session("login") & "'"	
						Set RD = c.Execute(SQ)	
						while not RD.EOF
							Response.write "<option value=" & RD("email").value & ">" & RD("prenom").value & " " & RD("nom").value & "</option>" 
							RD.MoveNext
						wend
						RD.Close
						set RD = nothing
						c.Close 
						set c = nothing	
					  	%>
        </select>
est-t-il possible