Código:
<% 'Declaración de variables Dim conn Dim rs Dim sql 'Fijación del valor de Path (lugar donde esta la base de datos) Const Path = "usuarios.mdb" 'Establecemos la conección a la base de datos Set conn = Server.CreateObject("ADODB.Connection") conn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("" & Path & "")) 'Creación de la sentencia SQL correspondiente (cambiar el valor de tabla por el nombre de la tabla que queremos seleccionar) sql="Selectr * From clientes" 'Ejecución de la orden Set rs = Conn.Execute(sql) %> <form method="post" action="editar.asp"> <table border="0" width="100%" cellspacing="0" cellpadding="0"> <tr> <td width="100%">ID</td> <td width="100%">NOMBRE</td> <td width="100%">APELLIDO</td> <td width="100%">TELEFONO</td> <td width="100%">CIUDAD</td> </tr> <% Do While Not rs.Eof %> <tr> <td width="100%"><input type="radio" name="id" value="<% = rs("id") %>"></td> <td width="100%"><% = rs("nombre") %></td> <td width="100%"><% = rs("apellido") %></td> <td width="100%"><% = rs("telefono") %></td> <td width="100%"><% = rs("ciudad") %></td> </tr> <% rs.MoveNext Loop %> </table> <input type=submit> </form>