<%@LANGUAGE="VBSCRIPT"%> <% If CStr(Request.QueryString("IDMonth")) = "" Then myMonth = Month(Date) Else myMonth = Request.QueryString("IDMonth") End If Set Conn = Server.CreateObject("ADODB.Connection") Conn.ConnectionString = "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("datos/agenda.mdb") & ";uid=;pwd=;" Conn.Open() set rsData = Server.CreateObject("ADODB.Recordset") rsData.ActiveConnection = Conn rsData.Source = "SELECT * FROM Agenda WHERE (Inicio >= " & myMonth & " AND Cierre <= " & myMonth & ") OR (Inicio >= " & myMonth & " AND Inicio <= " & myMonth & ") OR (Cierre >= " & myMonth & " AND Cierre <= " & myMonth & ")" rsData.CursorType = 0 rsData.CursorLocation = 2 rsData.LockType = 3 rsData.Open() %> ISSI Institute - Cursos

<% Response.Write(dStartDate & "
" & dEndDate) %>

<% If Not rsData.EOF Then Do While Not rsData.EOF %>

<%=(rsData.Fields.Item("Titulo").Value)%>

<%=(rsData.Fields.Item("Descripcion").Value)%>

<%=(rsData.Fields.Item("Fecha").Value)%>

" class="txt">Más información...
">
<% rsData.MoveNext Loop ElseIf rsData.EOF And CInt(myMonth) <= 12 Then Else %>



Lo sentimos, pero por el momento no tenemos ningún
Curso disponible para la fecha que Ud. ha solicitado!

Por favor, elija otra fecha e inténtelo nuevamente...

<% End If If CInt(myMonth) <= 12 Then %> <% Else End If %>

volver a la página principal
home >
home >

powered by >

 


 

Copyright © 1999-2007 - ISSI Institute ® All rights reserved.
home > <% rsData.Close() %>