28/12/2002, 16:06
|
 | | | Fecha de Ingreso: noviembre-2001 Ubicación: Vilanova i la Geltrú
Mensajes: 1.942
Antigüedad: 23 años, 5 meses Puntos: 0 | |
| Hola, perdona que sea tan pesado...
Estoy usando éste código:
<%
id = request.querystring("foro")
Set con = Server.CreateObject("ADODB.Connection")
Con.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
Server.MapPath("****.mdb"))
SQL = "SELECT * FROM mensajes Where foro = " & id &" "
Set registros = conexion.Execute(SQL)
max = 0
do until registros.EOF
max = max+1
registros.MoveNext
Loop
registros.Close
Set registros = Nothing
conexion.Close
%>
Mensajes: <%=max%>
Y me da error:
Microsoft VBScript runtime error '800a01a8'
Object required: ''
/forov/prueba.asp, line 17 |