Administración de la WEB.

<% dim catego dim sql Dim objRecordset SET objRecordset = Server.CreateObject("ADODB.Recordset") catego=Request.QueryString("catego") if(catego<>"")then sql="DELETE FROM jornada WHERE catego=" & catego objRecordset.Open sql,objConnection end if %>
<% objRecordset.Open "SELECT * FROM jornada order by catego",objConnection %> <% do While Not objRecordset.EOF%> <% objRecordset.MoveNext loop%>
CategoriaAccion
<%=objRecordset("catego")%>">Eliminar