gracias por la aclaracion ya lo he solventado pero ahora tengo otro problema cuando hago la llamada la la pagina donde se ven los registros de la bd, la primera vez se ven correctamente pero salgo de ella y vuelvo a entrar y me da este error
Tipo de error:
Provider (0x80004005)
Error no especificado
/aikido/aikido/registro1.asp, línea 8
Recordset1.ActiveConnection = MM_usuarios_STRING
por lo que veo creo que mi problema es que al estar la db abierta por la primera vez y el puntero de registros situado en el ultimo debe crear un error al volver a intentar leer los registros de la bd
¿ es posible esto? te mando el codigo para que me digas algo
gracias
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="Connections/usuarios.asp" -->
<%
Dim Recordset1
Dim Recordset1_numRows
Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_usuarios_STRING
Recordset1.Source = "SELECT * FROM user_reg"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()
Recordset1_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = -1
Repeat1__index = 0
Recordset1_numRows = Recordset1_numRows + Repeat1__numRows
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>Acceso Consultas Usuarios</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<table border="1">
<tr>
<td>Id</td>
<td>nombre_usuario</td>
<td>Correo_electronico</td>
<td>clave_usuario</td>
</tr>
<% While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF)) %>
<tr>
<td><%=(Recordset1.Fields.Item("Id").Value)%></td>
<td><%=(Recordset1.Fields.Item("nombre_usuario").V alue)%></td>
<td><%=(Recordset1.Fields.Item("Correo_electronico ").Value)%></td>
<td><%=(Recordset1.Fields.Item("clave_usuario").Va lue)%></td>
</tr>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
Recordset1.MoveNext()
Wend
%>
</table>
</body>
</html>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>