Administración de la WEB.

El equipo se almacenó correctamente
<% dim fecha fecha=Request.Form("fecha") dim sql Dim objRecordset Set objRecordset= Server.CreateObject("ADODB.Recordset") if(fecha<>0)then sql="insert into jornada (catego) values (" & fecha & ")" objRecordset.Open sql,objConnection end if %>