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