<% If Request.Form <> "" Then Dim C_SQL, V_Notas, s_Autos, s_Tema, s_Fecha, s_Juzgado Dim DB, TBL Set DB = Server.CreateObject("ADODB.Connection") Set TBL = Server.CreateObject("ADODB.RecordSet") DB.Mode = adModeReadWrite DB.Open ("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" + Server.MapPath("Fallos.mdb")) s_Autos = Request.Form("t_Autos") s_Tema = Request.Form("t_Tema") s_Fecha = Request.Form("F_Dia") & "/" & Request.Form("F_Mes") & "/" & Request.Form("F_Anio") s_Juzgado = Request.Form("Sel_Juzgado") C_SQL = "SELECT * FROM Fallos_Autos WHERE Auto LIKE '%" & s_Autos & "%' and Juzgado LIKE '%" & s_Juzgado & "%' and Fecha LIKE '%" & s_Fecha & "' and Tipo <> 2 ORDER BY Fallos_Autos.Auto" TBL.Open C_SQL ,DB Response.Write( "' ") While NOT TBL.EOF Response.Write("") Response.Write("") TBL.MoveNext Wend TBL.Close DB.Close Set DB = Nothing Set TBL = Nothing Else %> <% end if %>

Fecha	Juzgado	Fallo	KB
" & TBL("Fecha") & "	" & TBL("Juzgado") & "	" & TBL("Auto") &"	" & TBL("Peso") & "
		Fecha Ej. 2/Marzo / 2003	- 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 / - Enero Febrero Marzo Abril Mayo Junio Julio Agosto Septiebre Octubre Noviembre Diciembre / - 2002 2003 2004
		Juzgado Ej. C.A Nº 1 La Plata	<% 'Dim C_SQL 'Dim DB, TBL Set DB = Server.CreateObject("ADODB.Connection") Set TBL = Server.CreateObject("ADODB.RecordSet") DB.Mode = adModeReadWrite DB.Open ("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" + Server.MapPath("Fallos.mdb")) C_SQL = " SELECT Juzgado FROM Fallos_Autos GROUP BY Juzgado;" TBL.Open C_SQL ,DB Response.Write( "-") While NOT TBL.EOF Response.Write "" & TBL("Juzgado") & "" TBL.MoveNext Wend Response.Write("") TBL.Close DB.Close Set DB = Nothing Set TBL = Nothing %>
		Auto Ej. Ledesma
		Tema Nota:. próximamente...