ISSI Institute - Cursos

<%@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) %>

2005 - January | February | March | April | May | June | July | August | September | October | November | December

<% 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">More information...

">

<% rsData.MoveNext Loop ElseIf rsData.EOF And CInt(myMonth) <= 12 Then Else %>

we are sorry, but for the moment we do not have any course available
for the the day that you have requested for!

Please, choose another day and try again...

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

ISRAELI SHOOTING SYSTEM COURSES

At the Military base of Campo de Mayo, Province of Buenos Aires

All Fridays of the month in course.

More information...

<% Else End If %>

home >

powered by >

Copyright © 1999-2007 - ISSI Institute ® All rights reserved.

<% rsData.Close() %>