Yo te recomiendo que te leas los articulos de
http://www.aspfacil.com con ellos yo hace 2 semanas volvi a las andadas y aprendes rapido.
Solo ponte un poco y veras que hay ejemplos y explicaciones muy buenas.
No obstante, a pesar que no entiendo mucho de tu codigo porque esta con dreamweaver te pongo mas como deberia estar.
Te faltaria poner y verificar:
-el nombre de la base de datos
-el nombre de los campos de la base de datos
Código:
<%
Dim cadena, RS, Conn, SQL, Recordset_numRows, Repeat1__index, Repeat1__numRows
cadena = 1
If (Request.QueryString("fecha") <> "") Then
cadena = Request.QueryString("fecha")
End If
Set Conn = Server.Createobject("ADODB.Connection")
Set RS = Server.CreateObject("ADODB.Recordset")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("TU_BASE_DE_DATOS.mdb")
SQL = "SELECT * FROM eventos WHERE fecha >= '" + Replace(cadena, "'", "''") + "'"
RS.CursorType = 1
RS.LockType = 3
RS.Open SQL, Conn
Recordset_numRows = 0
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">
<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>
</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 RS.EOF
%>
<tr class="boton_troquel">
<td height="14"><span class="Estilo3"><%=RS.Fields("eventotitulo")%></span></td>
<td><span class="Estilo3"><%=RS.Fields("eventocompleto")%></span></td>
<td><span class="Estilo3"><%=RS.Fields("fecha")%></span></td>
<td><span class="Estilo3"><%=RS.Fields("imagen")%></span></td>
<td><span class="Estilo3"><%=RS.Fields("link")%></span></td>
</tr>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
RS.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>
<%
RS.Close
Set RS = Nothing
Conn.Close
Set Conn = Nothing
%>
SALUDOSSSS