<%@LANGUAGE="VBSCRIPT"%> <% ACCESSDB = "Bd/hale.mdb" ACCESSDB1 = "Bd/" ' seleccionamos los eventos de la base de datos set eventos = Server.CreateObject("ADODB.Recordset") eventos.ActiveConnection = "dsn=halesystemcom_hale;" eventos.Source = "select * from eventos where publico = 'S' and ver = 'S'" eventos.CursorType = 0 eventos.CursorLocation = 2 eventos.LockType = 3 eventos.Open eventos_numRows = 0 ' seleccionmos los diferentes grupos de eventos que existen en la base de datos set tipos = Server.CreateObject("ADODB.Recordset") tipos.ActiveConnection = "dsn=halesystemcom_hale;" tipos.Source = "select distinct(categoria) from eventos order by categoria" tipos.CursorType = 0 tipos.CursorLocation = 2 tipos.LockType = 3 tipos.Open tipos_numRows = 0 %> HALE SYSTEMS - EVENTOS
inicio | hale systems | eventos

EVENTOS


Busque los eventos de su interes utilizando el siguiente filtro:
Con costo Sin costo Todos
eventos entre el <% fecha2date = date() fecha2dia = day(fecha2date) fecha2mes = month(fecha2date) fecha2ano = year(fecha2date) if fecha2dia < 10 then fecha2dia = 0 & fecha2dia end if if fecha2mes < 10 then fecha2mes = 0 & fecha2mes end if fecha2nueva = fecha2dia&"/"&fecha2mes&"/"&(fecha2ano+1) %> y el
Referencia :

<% if eventos.eof <> true and eventos.bof <> true then %> <%do while eventos.Eof = false%> <% eventos.movenext loop%>
">" alt="Eventos" border="0" />

<%=eventos("nombre")%>

<%=eventos("detalle")%>... ')">ver más ...

Cupo:
<%if eventos("cupo") = 0 then cupo1 = "Ilimitado" else cupo1 = "Limitado" end if %> <%=cupo1%>
<% else response.write("No existe en este momento algun registro de eventos...") end if %>