Html, asp y access
Hola, quiero hacer un foro en mi pagina web:
He creado un base de datos en access llamada foro.mdb, con una unica tabla TbForo. (He metido dos registros de prueba)
En el archivo foro.asp va el siguiente código:
<html>
<head>
<title>(Foro)</title>
</head>
<body bgcolor="white" text="black">
<%
Dim Conn
Dim Rs
Dim SqlTxt
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("foro.mdb")
Set Rs = Server.CreateObject("ADODB.Recordset")
SqlTxt = "SELECT * FROM TbForo;"
Rs.Open SqlTxt, Conn
%>
<div align="center">
<center>
<table border="0" width="575">
<tr>
<td width="62" align="center" bordercolor="#FFFFFF" bgcolor="#008000"><font face="Verdana" size="1" color="#FFFFFF">Fecha</font></td>
<td width="100" align="center" bordercolor="#FFFFFF" bgcolor="#008000"><font face="Verdana" size="1" color="#FFFFFF">Autor</font></td>
<td width="500" align="center" bordercolor="#FFFFFF" bgcolor="#008000"><font face="Verdana" size="1" color="#FFFFFF">Texto</font></td>
</tr>
<%if Rs.EOF then%>
<tr><td colspan=5 width="662" bgcolor="#FFCCCC">No hay nada</td></tr>
<%else
Do while not Rs.EOF%>
<tr>
<td width="62" bgcolor="#FFCCCC"><font face="Verdana" size="1"><%=formatdatetime(Rs("Fecha"),2)%></font></td>
<td width="100" bgcolor="#FFCCCC"><font face="Verdana" size="1"><%=Rs("Autor")%></font></td>
<td width="500" bgcolor="#FFCCCC"><p align="center"><font face="Verdana" size="1"><%=Rs("Texto")%></font></td>
</tr>
<%Rs.movenext
Loop
End If
Rs.Close
Set Rs = Nothing
Set Conn = Nothing
%>
</table>
</center>
</div>
</body>
</html>
El problema es que no me da ningun error pero nunca se me rellena la tabla.
Alguien que vea algo que se me ha pasado??? Gracias!!
He creado un base de datos en access llamada foro.mdb, con una unica tabla TbForo. (He metido dos registros de prueba)
En el archivo foro.asp va el siguiente código:
<html>
<head>
<title>(Foro)</title>
</head>
<body bgcolor="white" text="black">
<%
Dim Conn
Dim Rs
Dim SqlTxt
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("foro.mdb")
Set Rs = Server.CreateObject("ADODB.Recordset")
SqlTxt = "SELECT * FROM TbForo;"
Rs.Open SqlTxt, Conn
%>
<div align="center">
<center>
<table border="0" width="575">
<tr>
<td width="62" align="center" bordercolor="#FFFFFF" bgcolor="#008000"><font face="Verdana" size="1" color="#FFFFFF">Fecha</font></td>
<td width="100" align="center" bordercolor="#FFFFFF" bgcolor="#008000"><font face="Verdana" size="1" color="#FFFFFF">Autor</font></td>
<td width="500" align="center" bordercolor="#FFFFFF" bgcolor="#008000"><font face="Verdana" size="1" color="#FFFFFF">Texto</font></td>
</tr>
<%if Rs.EOF then%>
<tr><td colspan=5 width="662" bgcolor="#FFCCCC">No hay nada</td></tr>
<%else
Do while not Rs.EOF%>
<tr>
<td width="62" bgcolor="#FFCCCC"><font face="Verdana" size="1"><%=formatdatetime(Rs("Fecha"),2)%></font></td>
<td width="100" bgcolor="#FFCCCC"><font face="Verdana" size="1"><%=Rs("Autor")%></font></td>
<td width="500" bgcolor="#FFCCCC"><p align="center"><font face="Verdana" size="1"><%=Rs("Texto")%></font></td>
</tr>
<%Rs.movenext
Loop
End If
Rs.Close
Set Rs = Nothing
Set Conn = Nothing
%>
</table>
</center>
</div>
</body>
</html>
El problema es que no me da ningun error pero nunca se me rellena la tabla.
Alguien que vea algo que se me ha pasado??? Gracias!!