28/12/2002, 16:39
|
| | | Fecha de Ingreso: febrero-2001
Mensajes: 149
Antigüedad: 24 años, 2 meses Puntos: 0 | |
| prueba con este
*******************
<%
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 = con.Execute(SQL)
max = 0
do until registros.EOF
max = max+1
registros.MoveNext
Loop
registros.Close
Set registros = Nothing
con.Close
%>
Mensajes: <%=max%>
**************************************** |