<% ' Path long de la base de données 'dbPath = Server.MapPath("/rep_depro/ma_base.mdb") ' Création de l'objet permettant la connexion 'Set Conn = Server.CreateObject("ADODB.Connection") ' Connexion 'Conn.Open "DRIVER={SQL Server}; DSN=challenge" 'Set Conn = Server.CreateObject("ADODB.Connection") 'Conn.Open MM_Recup_inscriptions_STRING 'Conn.Open "challenge" 'Set Rs = Server.CreateObject("ADODB.Recordset")%> <% 'Rs.Open "Select * from inscrit ORDER BY nom" , Conn%> <%'Rs.MoveFirst 'do while not Rs.eof 'mailing=mailing & Rs("email") & "," 'Rs.MoveNext 'loop %> Challenge Jeunes Pousses Telecom Valley©
 

 
 
 
 
 

Accueil | Inscription | Projets | Partenaires | Calendrier | Documents | Contact
Challenge Jeunes Pousses Telecom Valley© 2006 - Tous droits réservés
Création - AgencePix