Administración de la WEB.

<% Dim objRecordset SET objRecordset = Server.CreateObject("ADODB.Recordset") objRecordset.Open "SELECT * FROM jornada order by catego",objConnection do While Not objRecordset.EOF%> <% objRecordset.MoveNext Loop %>
Jornadas
Todos en la misma fecha.
<% dim fechahoy fechahoy=Now fechahoy=Split(fechahoy," ") %>
Categoria Fecha Hora
<%=objRecordset("catego")%> " name="categorias" type="hidden" value="<%=objRecordset("catego")%>"> " name="fechas" type="text" value="<%=objRecordset("dia")%>"> );return false;" HIDEFOCUS> <% dim hora hora=split(objRecordset("hora")," ") %> " name="horas" type="text" value="<%=hora(1)%>">