Html, asp y access
Jimena
17 de Septiembre del 2004
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!!
perrogrun
17 de Septiembre del 2004
Parece que est谩 todo correcto, si quieres comprimelo todo en un zip y me lo mandas para ver d贸nde est谩 el fallo. (la base de datos tendr谩 contenido,no?)
Si quieres uno ya hecho mira este que hecho yo haber si te sirve http://217.125.80.67/foro
Si quieres uno ya hecho mira este que hecho yo haber si te sirve http://217.125.80.67/foro