<% If request.cookies("AUTH-TYPE") <> "B488944A" Then response.redirect("http://www.lesincos.com/admin/index.htm") response.end end if %> Administration
SOMMAIRE
<% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "lesincos" Set rs = Server.CreateObject("ADODB.Recordset") sql = "SELECT * FROM Table_JeuDesQuestions;" rs.open sql, Conn, 3 If Not rs.EOF Then rs.MoveFirst Do While Not rs.EOF %>  "><%=rs(1) & " / " & rs(2)%>
<% rs.MoveNext Loop end if rs.Close Conn.Close %>
<% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "lesincos" Set rs = Server.CreateObject("ADODB.Recordset") sql = "SELECT * FROM Table_JeuDesQuestions WHERE ID = " & request.QueryString("ID") & ";" rs.open sql, Conn, 3 If Not rs.EOF Then %>
">
Categorie :
" >
TextQuestion :

Choix1 :

Choix2 :

Choix3 :

Choix4 :

Choix5 :

Reponse :
" >
 
" onClick="return confirm('Etes vous certain de vouloir supprimer cette fiche ?')">              

<% end if rs.Close Conn.Close %>
Extranet réalisé par Signo (c) 2001