<%if request.QueryString("type")="text" then%>
     <%
          Set Conn1 = Server.CreateObject("ADODB.Connection")
          Conn1.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & server.mappath("../base/magazines.MDB") & ";"
          SQL1 = "DELETE * FROM textes WHERE id="&request.QueryString("id")
          Set rst1 = Conn1.Execute(SQL1)
               %>
 <%response.redirect("admin.asp")%>  
 
 <%else%>
 
     <%
          n=request.QueryString("page")
          Set Conn1 = Server.CreateObject("ADODB.Connection")
          Conn1.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & server.mappath("../base/magazines.MDB") & ";"
          SQL="UPDATE textes SET page"&n&"=' ' WHERE id="&request.QueryString("id")
          Set rst1 = Conn1.Execute(SQL)
     %>
          <%response.redirect("admin.asp")%>  
 <%end if%>