<% set objConn = Server.CreateObject("ADODB.Connection") connstring="DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ=" & Server.MapPath(".") & "../bd/asft_sftv.mdb" objConn.Open connstring set objRS = Server.CreateObject("ADODB.Recordset") objRS.Open "SELECT * FROM table_comite WHERE NO_TRI = 1", objConn,3,3 adresse = objRS.fields("ADRESSE") IF NOT adresse = "" THEN adresse = adresse & ", " END IF np_lieu = objRS.fields("NP_LIEU") no_tel_prive = objRS.fields("NO_TEL_PRIVE") IF no_tel_prive = "" THEN no_tel_prive = "---" END IF no_tel_prof = objRS.fields("NO_TEL_PROF") IF no_tel_prof = "" THEN no_tel_prof = "---" END IF no_mobile = objRS.fields("NO_MOBILE") IF no_mobile = "" THEN no_mobile = "---" END IF e_mail = objRS.fields("E_MAIL") objRS.Close set objRS = nothing set objRS = Server.CreateObject("ADODB.Recordset") objRS.Open "SELECT * FROM administrator WHERE username = 'admin'", objConn,3,3 wm_email = objRS.fields("email") objRS.Close set objRS = nothing objConn.Close set objConn = nothing %>
Association Suisse de FutNet
Partie sécurisée
<%=adresse%><%=np_lieu%> | Tél. privé : <%=no_tel_prive%> | Té prof. : <%=no_tel_prof%> | Mobile : <%=no_mobile%> Webmaster • ASFT
PAGE DE CONNEXION POUR LE « SINGLE MASTERS »
Nom d'utilisateur :
Mot de passe :

UMBRO UMBRO - Site de la Boutique La Griffe Sponsor officiel