<%
Dim Recordset__MMColParam
Recordset__MMColParam = "1"
If (Request.QueryString("fecha") <> "") Then
Recordset__MMColParam = Request.QueryString("fecha")
End If
%>
<%
Dim Recordset
Dim Recordset_numRows
Set Recordset = Server.CreateObject("ADODB.Recordset")
Recordset.ActiveConnection = MM_foroconect_STRING
Recordset.Source = "SELECT * FROM eventos WHERE fecha >= '" + Replace(Recordset__MMColParam, "'", "''") + "'"
Recordset.CursorType = 0
Recordset.CursorLocation = 2
Recordset.LockType = 1
Recordset.Open()
Recordset_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = 10
Repeat1__index = 0
Recordset_numRows = Recordset_numRows + Repeat1__numRows
%>
<%
Dim Repeat2__numRows
Dim Repeat2__index
Repeat2__numRows = 10
Repeat2__index = 0
Recordset2_numRows = Recordset2_numRows + Repeat2__numRows
%>
<html>
<head>
<title>Foro de las ciencias</title>
<meta http-equiv="" content="text/html; charset=iso-8859-1">
<meta http-equiv="" content="text/html; charset=iso-8859-1">
<meta http-equiv="" content="text/html; charset=iso-8859-1">
<meta http-equiv="" content="text/html; charset=iso-8859-1">
<style type="text/css">
<!--
@import url("css/estilos.css");
body {
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
}
.Estilo3 {font-size: 10px; font-family: Verdana, Arial, Helvetica, sans-serif; }
.Estilo16 {font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif; }
-->
</style>
<meta http-equiv="" content="text/html; charset=iso-8859-1"><meta http-equiv="" content="text/html; charset=iso-8859-1"><meta http-equiv="Content-Type" content="text/html; charset="></head>
<body>
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="100%" height="100%" valign="top" background="imagenes/fondo.gif">
<table width="703" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#F0F0F0" class="recuadro">
<tr>
<td height="1" colspan="2">
<!--#include file="top.asp" -->
</td>
</tr>
<tr bgcolor="#999999">
<td height="1" colspan="2"><img src="imagenes/trans.gif" width="20" height="1"></td>
</tr>
<tr>
<td width="190" height="219" valign="top" bgcolor="#F2F2F2"><div align="left">
<!--#include file="incmenugeneral.asp" -->
</div></td>
<td width="511" rowspan="2" valign="top" bgcolor="#F2F2F2"><div align="left"></div>
<table width="60%" height="425" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="20" colspan="5"><font color="#000033" size="2" face="Verdana, Arial, Helvetica, sans-serif"><img src="imagenes/cabeseraEventos.jpg" width="510" height="20"></font></td>
</tr>
<tr>
<td width="1"><img src="imagenes/trans.gif" width="1" height="1"></td>
<td width="507" height="404" colspan="4" valign="top" bgcolor="#FFFFFF"><table width="508" border="0">
<tr class="boton_troquel">
<td height="17" colspan="5"><strong>Eventos a realizar </strong></td>
</tr>
<%
While ((Repeat1__numRows <> 0) AND (NOT Recordset.EOF))
%>
<tr class="boton_troquel">
<td height="14"><span class="Estilo3"><%=(Recordset.Fields.Item("eventot itulo").Value)%></span></td>
<td><span class="Estilo3"><%=(Recordset.Fields.Item("eventoc ompleto").Value)%></span></td>
<td><span class="Estilo3"><%=(Recordset.Fields.Item("fecha") .Value)%></span></td>
<td><span class="Estilo3"><%=(Recordset.Fields.Item("imagen" ).Value)%></span></td>
<td><span class="Estilo3"><%=(Recordset.Fields.Item("link"). Value)%></span></td>
</tr>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
Recordset.MoveNext()
Wend
%>
</table>
<p> </p></td>
</tr>
</table></td>
</tr>
<tr>
<td height="163" valign="top" bgcolor="#F2F2F2"><p> </p></td>
</tr>
<tr bgcolor="#333333">
<td height="19" colspan="2"> <div align="center">
<!--#include file="incpie.asp" -->
</div></td>
</tr>
</table></td>
</tr>
</table>
</body>
</html>
<%
Recordset.Close()
Set Recordset = Nothing
%>