<% @Page aspcompat=true Language = VB %> Acceso a datos con compatibilidad ASP (COM)

CALENDARIO CIRCUITOS ESCÉNICOS ANDALUCES 2008 MÚSICA

Claves de "Estado": ?: Sin confirmación de fecha; P: Pendiente de confirmación fecha con Coordinación Circuitos; C: Confirmada fecha por el Municipio; G: Confirmada fecha por el grupo; M: Enviado ficha producción a Municipio; F: Enviada ficha de producción a Compañía/Formación; R: Repasada ficha de producción; ¡: Atención a posibles problemas (consultar con equipo Opencultura)



<% ' Variables usadas para crear los objetos, etc. Dim Rst, Cnn Dim sConn, sTip Dim CI_Nombre, CIC_Nombre,PRO_Estado, PRO_FechaInicio, PRO_Nombre, Nombre, MU_Nombre, MU_Provincia, ES_Nombre, PRO_Hora, PRO_IDPRO Dim s, i ' Crear los objetos Cnn = Server.CreateObject("ADODB.Connection") ' Crear la conexión a la base de datos sConn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("BASE\OpenCulturaT08.mdb") & ";" Cnn.Open(sConn) ' Crear la cadena SQL s = "SELECT * FROM CALENDARIOMUSICA ORDER BY PRO_FechaInicio ASC" Rst = Cnn.Execute(s) On Error Resume Next Err.Clear %> <% ' Buscar desde el principio Rst.MoveFirst i = 0 Do While Not (Rst.BOF Or Rst.EOF) i = i + 1 With Rst ' Asignar a las variables el contenido del registro CIC_Nombre = .Fields("CIC_Nombre").Value & "" PRO_FechaInicio = .Fields("PRO_FechaInicio").Value & "" PRO_Nombre = .Fields("PRO_Nombre").Value & "" CI_Nombre = .Fields("CI_Nombre").Value & "" MU_Provincia = .Fields("MU_Provincia").Value & "" PRO_Estado = .Fields("PRO_Estado").Value & "" PRO_FechaInicio = .Fields("PRO_FechaInicio").Value & "" Nombre = .Fields("AR_Nombre").Value & "" MU_Nombre = .Fields("MU_Nombre").Value & "" ES_Nombre = .Fields("ES_Nombre").Value & "" PRO_Hora = .Fields("PRO_Hora").Value & "" PRO_IDPRO = .Fields("PRO_IdProgramacion").Value & "" ' Mostrar los datos hallados Response.Write("") End With ' ' Mostrar el siguiente registro Rst.MoveNext Loop %>
IDCICLO/FORMATOESTADOFECHAPROGRAMA/ESPECTÁCULOCOMPAÑÍA/FORMACIÓNMUNICIPIOPROVINCIAESPACIO ESCÉNICOHORA
" & PRO_IDPRO & "" & CIC_Nombre & "" & PRO_Estado & "" & PRO_FechaInicio & "" & PRO_Nombre & "" & Nombre & "" & MU_Nombre & "" & MU_Provincia & "" & ES_Nombre & "" & PRO_Hora & "
<% Response.Write("
") Err.Clear If i = 0 Then Response.Write("
No se ha encontrado ningún registro que contenga lo que has especificado.
") Response.Write("Pulsa en este link para Mostrar todos los registros.
") End If ' Rst.Close Cnn.Close Rst = Nothing Cnn = Nothing ' %>