<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/WG.asp" -->

<%

set Rs_Expo = Server.CreateObject("ADODB.Recordset")
Rs_Expo.ActiveConnection = MM_WG_STRING
Rs_Expo.Source = "SELECT *  FROM Exposiciones Where Visible=1 order by Fecha_fin"
Rs_Expo.CursorType = 0
Rs_Expo.CursorLocation = 2
Rs_Expo.LockType = 3
Rs_Expo.Open()
Rs_Expo_numRows = 0

n=0
while  not Rs_Expo.Eof
if Cdate(Rs_Expo.Fields.Item("Fecha_fin").Value) >= Cdate(Date) then
Response.Redirect("exposiciones_dat.asp?offset="+ Cstr(n))
end if 
'Response.Write(Cstr(Rs_Expo.Fields.Item("Fecha_Ini").Value) +"-----"+ Cstr(date))
Rs_Expo.MoveNext
n=n+1
wend

Rs_Expo.Close()
%>