Administración de la WEB.

Los datos se actualizaron correctamente
<% dim sql Dim objRecordset dim n dim hora Set objRecordset= Server.CreateObject("ADODB.Recordset") dim ch_igualfecha dim igualfecha ch_igualfecha=Request.form("ch_igualfecha") if ch_igualfecha="on" then igualfecha=Request.form("igualfecha") partes=split(igualfecha,"/") igualfecha=trim(partes(2))&"-"&trim(partes(1))&"-"& trim(partes(0)) end if fechas=Request.Form("fechas") fechas=split(fechas,",") for x=0 to UBound(fechas) partes=split(fechas(x),"/") fechas(x)=trim(partes(2))&"-"&trim(partes(1))&"-"& trim(partes(0)) next horas=Request.Form("horas") horas=split(horas,",") n=0 For Each item In Request.Form("categorias") if ch_igualfecha="on" then sql="UPDATE jornada SET hora='" & horas(n) & "',dia='" & igualfecha & "' WHERE catego=" & item else sql="UPDATE jornada SET hora='" & horas(n) & "',dia='" & fechas(n) & "' WHERE catego=" & item end if objRecordset.Open sql,objConnection n= n +1 Next %>